(* \mt0mv;c
Demo for program"RP Fiber Power": thulium-doped fiber laser, <3!jra,h
pumped at 790 nm. Across-relaxation process allows for efficient |!\(eLR9>
population of theupper laser level. V0]6F
*) !(* *)注释语句 wHQyMq^
J%
B(4`
diagram shown: 1,2,3,4,5 !指定输出图表 NA,)FmQjk
; 1: "Powersvs. Position" !分号是注释;光纤长度对功率的影响 6m$,t-f0b
; 2:"Variation of the Pump Power" !泵浦光功率变化对信号输出功率的影响 T/V 5pYl
; 3:"Variation of the Fiber Length"!信号输出功率vs 光纤长度的变化,仿真最佳光纤长度 S*o%#ZJN
; 4:"Transverse Profiles" !横向分布,横坐标为半径位置 &oWdBna"_
; 5:"Transition Cross-sections" !不同波长的跃迁横截面,横坐标波长,纵坐标为横截面 F:8cd^d~u
F1@gYNbI,
include"Units.inc" !读取“Units.inc”文件中内容 T/%s7!E
;b[% L&
include"Tm-silicate.inc" !读取光谱数据 1or4s{bmo
?PIOuN=
; Basic fiberparameters: !定义基本光纤参数
*Mt's[8
L_f := 4 { fiberlength } !光纤长度 pP&TFy#G+'
No_z_steps := 50 {no steps along the fiber } !光纤步长,大括号{ }是注释,相当于备注 e1dT~l
r_co := 6 um { coreradius } !纤芯半径 a&Ti44a[
N_Tm := 100e24 { Tmdoping concentration } !纤芯Tm离子掺杂浓度 89>U Koc?
(8<U+)[tPy
; Parameters of thechannels: !定义光信道 )w8h2=l
l_p := 790 nm {pump wavelength } !泵浦光波长790nm 9:bC{n
dir_p := forward {pump direction (forward or backward) } !前向泵浦 zY<=r.m4
P_pump_in := 5 {input pump power } !输入泵浦功率5W m~fA=#l
l
w_p := 50 um {radius of pump cladding } !包层泵浦相应的半径 50um +h6cAqm]
I_p(r) := (r <=w_p) { pump intensity profile } !泵浦光强度分布 |wKC9 O@%
loss_p := 0 {parasitic losses of pump wave } !泵浦光寄生损耗为0 ,y[wS5li
:[iWl8
l_s := 1940 nm {signal wavelength } !信号光波长1940nm i#t)tM"
w_s := 7 um !信号光的半径 Qa nE]
I_s(r) := exp(-2 *(r / w_s)^2) !信号光的高斯强度分布 g/b_\__A
loss_s := 0 !信号光寄生损耗为0 4VjP:>*p
F/\w4T
R_oc := 0.70 {output coupler reflectivity (right side) } !输出耦合反射率 z?HP%g'M~
-.|V S|y
; Function for defining themodel: !定义模型函数,一定要有calc命令,否则函数只会被定义,但不会被执行 ZJ9J*5!C
calc DiyviH
begin V`V
Z[
global allow all; !声明全局变量 sXm/+I^
set_fiber(L_f, No_z_steps, ''); !光纤参数 ?|8H|LBIr
add_ring(r_co, N_Tm); Y" &