有一個(gè)函數(shù) set_R(channel,R1,R2)，用于定義某個(gè)正向傳播信道在光纖兩端面的反射率。 L?C\Q^0"`G  
這主要用于激光建模。 37#cx)p^f  
例如，光纖激光器可定義為： bi+9R-=&  
pump := addinputchannel(P_p_in, l_p, 'I_p', 0, forward) P_Z M'[  
signal_fw := addinputchannel(P_s_in, l_s, 'I_s', 0, forward) a-fv[oB  
signal_bw := addinputchannel(P_s_in, l_s, 'I_s', 0, backward) N
A8 sN  
calc set_R(signal_fw, 1, 0.90) -4