(* <?h(Dchq
Demo for program"RP Fiber Power": thulium-doped fiber laser, @6*eS+t\
pumped at 790 nm. Across-relaxation process allows for efficient h+w1 D} *
population of theupper laser level. f# -\*
*) !(* *)注释语句 =3PZGdWD
q#K0EAgC
diagram shown: 1,2,3,4,5 !指定输出图表 c3WF!~1r
; 1: "Powersvs. Position" !分号是注释;光纤长度对功率的影响 8 %p+:6kP5
; 2:"Variation of the Pump Power" !泵浦光功率变化对信号输出功率的影响 Q.Y6
; 3:"Variation of the Fiber Length"!信号输出功率vs 光纤长度的变化,仿真最佳光纤长度 ,{_56j^d,
; 4:"Transverse Profiles" !横向分布,横坐标为半径位置 EqOhz II^
; 5:"Transition Cross-sections" !不同波长的跃迁横截面,横坐标波长,纵坐标为横截面 /Mj|Px%
jQ8
T
include"Units.inc" !读取“Units.inc”文件中内容 >^SQrB
TN<"X :x9
include"Tm-silicate.inc" !读取光谱数据 &{q<
EyHL&
; Basic fiberparameters: !定义基本光纤参数 u+c2
m
L_f := 4 { fiberlength } !光纤长度 KN&|&51p}
No_z_steps := 50 {no steps along the fiber } !光纤步长,大括号{ }是注释,相当于备注 >1HXC2 Y
r_co := 6 um { coreradius } !纤芯半径 k>~D
N_Tm := 100e24 { Tmdoping concentration } !纤芯Tm离子掺杂浓度 *VUJ);7k
MRT<hB
; Parameters of thechannels: !定义光信道 J+wnrGoK
l_p := 790 nm {pump wavelength } !泵浦光波长790nm b5?k gY
dir_p := forward {pump direction (forward or backward) } !前向泵浦 r.c:QY$
P_pump_in := 5 {input pump power } !输入泵浦功率5W rr>6;
w_p := 50 um {radius of pump cladding } !包层泵浦相应的半径 50um g ;XK3R
I_p(r) := (r <=w_p) { pump intensity profile } !泵浦光强度分布 ?)Je%H
loss_p := 0 {parasitic losses of pump wave } !泵浦光寄生损耗为0 Df$~=A}
{XV'C@B
l_s := 1940 nm {signal wavelength } !信号光波长1940nm "~KTLf
w_s := 7 um !信号光的半径 )u0/s'
I_s(r) := exp(-2 *(r / w_s)^2) !信号光的高斯强度分布 =E-o@#BS
loss_s := 0 !信号光寄生损耗为0 :ciD!Ly
2`A[<