(* X519}
l3
Demo for program"RP Fiber Power": thulium-doped fiber laser, br9`77J8
pumped at 790 nm. Across-relaxation process allows for efficient =
5E:C P
population of theupper laser level. 4{r_EV[(
*) !(* *)注释语句 a~-^$Fzgy
hsUP5_
diagram shown: 1,2,3,4,5 !指定输出图表 ~?c}=XL-
; 1: "Powersvs. Position" !分号是注释;光纤长度对功率的影响 q|A-h'
; 2:"Variation of the Pump Power" !泵浦光功率变化对信号输出功率的影响 3[jk}2R';p
; 3:"Variation of the Fiber Length"!信号输出功率vs 光纤长度的变化,仿真最佳光纤长度 :tA|g
; 4:"Transverse Profiles" !横向分布,横坐标为半径位置 O<x53MN^
; 5:"Transition Cross-sections" !不同波长的跃迁横截面,横坐标波长,纵坐标为横截面 RO"*&o'K'
\O7?!i
include"Units.inc" !读取“Units.inc”文件中内容 j8G>0f)
'*KP{"3\
include"Tm-silicate.inc" !读取光谱数据 (1vmtg.O
ZREAEGi{
; Basic fiberparameters: !定义基本光纤参数 ^gdg0y!5~
L_f := 4 { fiberlength } !光纤长度 X&<