(* *xx'@e|<;
Demo for program"RP Fiber Power": thulium-doped fiber laser, wa<MRt W=
pumped at 790 nm. Across-relaxation process allows for efficient 9_# >aOqL
population of theupper laser level. rHC>z7+z.
*) !(* *)注释语句 `slL%j^"
`YFtL
diagram shown: 1,2,3,4,5 !指定输出图表 9TgIB
; 1: "Powersvs. Position" !分号是注释;光纤长度对功率的影响 zvYq@Mhr
; 2:"Variation of the Pump Power" !泵浦光功率变化对信号输出功率的影响 0LPig[
; 3:"Variation of the Fiber Length"!信号输出功率vs 光纤长度的变化,仿真最佳光纤长度 wj*,U~syB
; 4:"Transverse Profiles" !横向分布,横坐标为半径位置 )IP,;<
; 5:"Transition Cross-sections" !不同波长的跃迁横截面,横坐标波长,纵坐标为横截面 7]U"Z*
Ye"o6_U"
include"Units.inc" !读取“Units.inc”文件中内容 9=vMgW
$*^kY;
include"Tm-silicate.inc" !读取光谱数据 s`M9
N|8P)
; Basic fiberparameters: !定义基本光纤参数 Buf/@B7+\
L_f := 4 { fiberlength } !光纤长度 hEA<o67
No_z_steps := 50 {no steps along the fiber } !光纤步长,大括号{ }是注释,相当于备注 j#X.KM
r_co := 6 um { coreradius } !纤芯半径 L6t+zIUc-~
N_Tm := 100e24 { Tmdoping concentration } !纤芯Tm离子掺杂浓度 y~Bh
=}lh_
; Parameters of thechannels: !定义光信道 X\]L=>]C
l_p := 790 nm {pump wavelength } !泵浦光波长790nm \kp8S'qVo
dir_p := forward {pump direction (forward or backward) } !前向泵浦 <Y*+|T+&d
P_pump_in := 5 {input pump power } !输入泵浦功率5W ]mo-rhDsM
w_p := 50 um {radius of pump cladding } !包层泵浦相应的半径 50um 8|):`u
I_p(r) := (r <=w_p) { pump intensity profile } !泵浦光强度分布 k52/w)Ro,$
loss_p := 0 {parasitic losses of pump wave } !泵浦光寄生损耗为0 Qiua
Y'c>:;JEe
l_s := 1940 nm {signal wavelength } !信号光波长1940nm S'|,oUWDb
w_s := 7 um !信号光的半径 -MW_|MG
I_s(r) := exp(-2 *(r / w_s)^2) !信号光的高斯强度分布 T m_bz&Q
loss_s := 0 !信号光寄生损耗为0 _K`wG}YIE
=[H;orMr
R_oc := 0.70 {output coupler reflectivity (right side) } !输出耦合反射率 -(~.6WnhS
Vr )<\h
; Function for defining themodel: !定义模型函数,一定要有calc命令,否则函数只会被定义,但不会被执行 ?^H
`M|S
calc .\[`B.Q
begin O-ew%@_
global allow all; !声明全局变量 WB?jRYp
set_fiber(L_f, No_z_steps, ''); !光纤参数 p6]7&{>
add_ring(r_co, N_Tm); Q;[,Q~c[u
def_ionsystem(); !光谱数据函数 &