有一個
函數(shù) set_R(channel,R1,R2)，用于定義某個正向傳播信道在
光纖兩端面的反射率。
tC[ZWL 這主要用于
激光建模。
4kOO3[r 例如，光纖
激光器可定義為：
e`*}?N4d pump := addinputchannel(P_p_in, l_p, 'I_p', 0, forward)
/dnwN7Gf signal_fw := addinputchannel(P_s_in, l_s, 'I_s', 0, forward)
9A .RD`fg signal_bw := addinputchannel(P_s_in, l_s, 'I_s', 0, backward)
SV7;B?e%Y calc set_R(signal_fw, 1, 0.90)
n<?U6 ~F&~ 在這里，激光
波長的反射率在左端（帶泵浦輸入）為 100%，在右端（用于激光輸出）為 90%。實際上，set_R()的調(diào)用將兩個信道耦合在一起。（后向信道 signal_bw 沒有明確指定，而是自動識別為相應(yīng)的信道，因為它具有相同的波長。）
$vn6%M[ 還可以定義
反射鏡內(nèi)部和外部的局部損耗。
KK|w30\f 注意，在調(diào)用 finish_fiber()之前必須調(diào)用函數(shù) set_R()。
sp
