切换到宽版
  • 广告投放
  • 稿件投递
  • 繁體中文
    • 2580阅读
    • 1回复

    [原创]RP Fiber Power仿真设计掺铥光纤激光器代码详解 [复制链接]

    上一主题 下一主题
    离线小火龙果
     
    发帖
    932
    光币
    2176
    光券
    0
    只看楼主 倒序阅读 楼主  发表于: 2020-05-28
    (*  mN>7vJ  
    Demo for program"RP Fiber Power": thulium-doped fiber laser, ^8,Y1r9`$  
    pumped at 790 nm. Across-relaxation process allows for efficient sh $mOy  
    population of theupper laser level. 5t` :=@u  
    *)            !(*  *)注释语句 &3 QdQ n,  
    *Q?ZJS ~  
    diagram shown: 1,2,3,4,5  !指定输出图表 fl{wF@C6  
    ; 1: "Powersvs. Position"     !分号是注释;光纤长度对功率的影响 bITc9Hqc  
    ; 2:"Variation of the Pump Power"  !泵浦光功率变化对信号输出功率的影响 6$1dd#  
    ; 3:"Variation of the Fiber Length"!信号输出功率vs 光纤长度的变化,仿真最佳光纤长度 K#j<G]I( @  
    ; 4:"Transverse Profiles"             !横向分布,横坐标为半径位置 '=|2, H]  
    ; 5:"Transition Cross-sections"    !不同波长的跃迁横截面,横坐标波长,纵坐标为横截面  E*[dc  
    `yjHLg  
    include"Units.inc"         !读取“Units.inc”文件中内容 taS2b#6\+  
    )!h(oR  
    include"Tm-silicate.inc"    !读取光谱数据 q Ee1OB  
    [dm&I#m=  
    ; Basic fiberparameters:    !定义基本光纤参数 K;%P_f/KJP  
    L_f := 4 { fiberlength }      !光纤长度 4!'1o`8vs  
    No_z_steps := 50 {no steps along the fiber } !光纤步长,大括号{ }是注释,相当于备注 XcoV27  
    r_co := 6 um { coreradius }                !纤芯半径 _l?InNv  
    N_Tm := 100e24 { Tmdoping concentration }  !纤芯Tm离子掺杂浓度 D& Xh|}2A  
    KeU|E<|!  
    ; Parameters of thechannels:                !定义光信道 SZO$#  
    l_p := 790 nm {pump wavelength }                !泵浦光波长790nm <ptgFR+  
    dir_p := forward {pump direction (forward or backward) }   !前向泵浦 W6. )7Y,  
    P_pump_in := 5 {input pump power }                    !输入泵浦功率5W K[tQ>C@s2  
    w_p := 50 um {radius of pump cladding }               !包层泵浦相应的半径 50um sFqLxSo_I  
    I_p(r) := (r <=w_p) { pump intensity profile }          !泵浦光强度分布 <qG4[W,[  
    loss_p := 0 {parasitic losses of pump wave }           !泵浦光寄生损耗为0 Vej [wY-c  
    "O{_LOJ  
    l_s := 1940 nm {signal wavelength }                   !信号光波长1940nm Z`5jX;Z!  
    w_s := 7 um                          !信号光的半径 c/l%:!A  
    I_s(r) := exp(-2 *(r / w_s)^2)            !信号光的高斯强度分布 3 ;M7^DM  
    loss_s := 0                            !信号光寄生损耗为0 _ZM$&6EC  
     %2 A-u  
    R_oc := 0.70 {output coupler reflectivity (right side) }      !输出耦合反射率 9FB[`}  
    2nSX90@:  
    ; Function for defining themodel:   !定义模型函数,一定要有calc命令,否则函数只会被定义,但不会被执行 i/ED_<_ Vg  
    calc \;al@yC=T  
      begin (@t O1g  
        global allow all;                   !声明全局变量 bSOxM /N  
        set_fiber(L_f, No_z_steps, '');        !光纤参数 %4F Q~  
        add_ring(r_co, N_Tm); ET]PF,`  
        def_ionsystem();              !光谱数据函数 j]-0m4QF  
        pump := addinputchannel(P_pump_in, l_p,'I_p', loss_p, dir_p);  !泵浦光信道 tDWW 4H  
        signal_fw := addinputchannel(0, l_s, 'I_s',loss_s, forward);      !前向信号光信道 &`#k 1t'  
        signal_bw := addinputchannel(0, l_s, 'I_s',loss_s, backward);    !后向信号光信道 I r8,=  
        set_R(signal_fw, 1, R_oc);                                 !设置反射率函数 3AKT>Wy =  
        finish_fiber();                                   ~}uv4;0l]  
      end; ~%SmH [i  
    {M`yYeo  
    ; Display someoutputs in the Output window (on the right side): !在Output aera区域显示输出 'q158x  
    show "Outputpowers:"                                   !输出字符串Output powers: l(c2 B  
    show"pump:     ", P_out(pump):d3:"W"  !输出字符串pump:和计算值(格式为3个有效数字,单位W) i!H)@4jX  
    show"signal:   ",P_out(signal_fw):d3:"W" !输出字符串signal:和计算值(格式为3个有效数字,单位W) K U 2LJ_~Y  
    4*k>M+o/C4  
    nz{ ;]U1  
    ; ------------- ;yfKYN[  
    diagram 1:                   !输出图表1 bW"bkA80  
    bsfYz  
    "Powers vs.Position"          !图表名称 8Ld`$_E  
    w_c)iJ  
    x: 0, L_f                      !命令x: 定义x坐标范围 `pMI @"m  
    "position infiber (m)", @x      !x轴标签;@x 指示这些字符串沿坐标轴放置 ;^XF;zpg  
    y: 0, 15                      !命令y: 定义y坐标范围 75@!j[QL<  
    y2: 0, 100                    !命令y2: 定义第二个y坐标范围 *QKxrg  
    frame          !frame改变坐标系的设置 SM57bN  
    legpos 600, 500  !图行在图表窗口中的位置(相对于左上角而言) oRf.34  
    hx             !平行于x方向网格 0c2O'&$au  
    hy              !平行于y方向网格 &cZQ,o  
    C%2BDj  
    f: P(pump, x),    !命令f: 定义函数图;P(pump, x)函数是计算x位置处的泵浦光功率 kJQH{n+)R  
      color = red,  !图形颜色 x)35}mi){L  
      width = 3,   !width线条宽度 `IP?w&k)  
      "pump"       !相应的文本字符串标签 0ge"ISK  
    f: P(signal_fw, x),  !P(signal_fw ,x) 函数是计算x位置处的前向信号光功率 "_LDs(&  
      color = blue,     CbvP1*1  
      width = 3, L/ L#[  
      "fw signal" jeKqS  
    f: P(signal_bw, x),   !P(signal_bw ,x) 函数是计算x位置处的后向信号光功率 !,Ou:E?Bb  
      color = blue, @nC][gNv  
      style = fdashed, Cz1Q@<)  
      width = 3, Lud[.>i  
      "bw signal" UL{+mp  
    1X8P v*,  
    f: 100 * n(x, 2),    !n(x ,2) 函数是计算x位置处激活粒子数在能级2上的占比  lu_kir~  
      yscale = 2,            !第二个y轴的缩放比例 OC?a[^hB^)  
      color = magenta, tTjadnX  
      width = 3, 'E\/H17  
      style = fdashed, _GhP{ C$  
      "n2 (%, right scale)" ~Q+E""  
    0W_olnZ  
    f: 100 * n(x, 3),          !n(x ,3) 函数是计算x位置处激活粒子数在能级3上的占比 P O*;V<^  
      yscale = 2, d4ga6N3'  
      color = red, 8v<802  
      width = 3, M]Kx g;  
      style = fdashed, JXx[e  
      "n3 (%, right scale)" g~7x+cu0  
    <?2g\+{s9  
    *VUD!`F  
    ; ------------- A#o ~nC<  
    diagram 2:                    !输出图表2 }1xD*[W  
    lU\v8!Ji  
    "Variation ofthe Pump Power"  YW14X  
    r,43 gg  
    x: 0, 10 T`zUgZ]  
    "pump inputpower (W)", @x g=gM}`X%  
    y: 0, 10 ;L*Ku'6Mt  
    y2: 0, 100 vVbBg; {  
    frame 5cUz^ >  
    hx '?Jz8iu-  
    hy |e QwI&  
    legpos 150, 150 `i `F$;  
    #Dz. 58A  
    f: (set_P_in(pump, x);P_out(signal_fw)), !set_P_in(pump,x)改变泵浦信道功率;P_out(signal_fw)输出前向信号光 [g/ &%n0^  
      step = 5, Q4Zw<IZv5  
      color = blue, yI{4h $c  
      width = 3, W>_K+: t  
      "signal output power (W, leftscale)",     !相应的文本字符串标签 n8+_Uww  
      finish set_P_in(pump, P_pump_in) "C]v   
    <eh<4_<qF  
    f: (set_P_in(pump,x); 100 * n_av(2)),   !改变泵浦信号功率对能级2上激活粒子占比的影响 A{ a4;`}5  
      yscale = 2, e"d-$$'e  
      step = 5, ^KF%Z2:$  
      color = magenta, mgd)wZNV  
      width = 3, \H4$9lPk  
      "population of level 2 (%, rightscale)", 3/{,}F$  
      finish set_P_in(pump, P_pump_in) R:5uZAx  
    f-BPT2U+  
    f: (set_P_in(pump,x); 100 * n_av(3)),   !改变泵浦信号功率对能级3上激活粒子占比的影响 Q{o]^tN  
      yscale = 2, HhZ>/5'(  
      step = 5, FyhLMW3  
      color = red, 4[lym,8C  
      width = 3, ysH'X95  
      "population of level 3 (%, rightscale)",  ~LF/wx>  
      finish set_P_in(pump, P_pump_in) [*K.9}+G_  
    6n?0MMtR  
    ["H2H rI2  
    ; ------------- 3P*[ !KI  
    diagram 3:                         !输出图表3 c }7gHud  
    iu iVr$E  
    "Variation ofthe Fiber Length" {00Qg{;K|  
    >c@jl  
    x: 0.1, 5 O +u? Y  
    "fiber length(m)", @x p_B5fm7#6W  
    y: 0, 10 WkMB  
    "opticalpowers (W)", @y xUF5  
    frame ?~3Pydrb#  
    hx 3rj7]:Vr  
    hy W|L#Q/ RX  
    C <d]0)  
    f: (set_L(x);P_out(signal_fw)),     !改变光纤长度对信号光输出功率的影响 @:/H)F^x  
      step = 20,             ++!'6! l  
      color = blue, yIu_DFq%  
      width = 3, em9nuXG  
      "signal output" LlcH#L$  
    XD%GNZ  
    ;f: (set_L(x);P_out(pump)),                     !改变光纤长度对泵浦信号输出功率的影响 2AXf'IOqE  
       step = 20, color = red, width = 3,"residual pump" blKF78  
    `PtfPt<{  
    ! set_L(L_f) {restore the original fiber length } r]deVd G  
    cKB1o0JsYJ  
    ?/fC"MJq?  
    ; ------------- V X.9mt  
    diagram 4:                                  !输出图表4 4C }#lW9  
    sdBB(  
    "TransverseProfiles" T2_b5j3i  
    0V+v)\4FE  
    I_max :=maxr(I(pump, -1, 0, 0), I(signal_fw, -1, 0, 0)) 9*S9~  
    629ogJo8  
    x: 0, 1.4 * r_co /um @5h(bLEP  
    "radialposition (µm)", @x ,0@QBr5P  
    y: 0, 1.2 * I_max *cm^2 1b<[/g9  
    "intensity (W/ cm&sup2;)", @y Q"QZ^!zRl  
    y2: 0, 1.3 * N_Tm mq+x=  
    frame l^2m7 7)  
    hx M Al4g+es  
    hy !>:]k?$b  
    *{(tg~2'(  
    f: N_dop(1, x * um,0),      !掺杂浓度的径向分布 a(AYY<g  
      yscale = 2, ^|(VI0KO  
      color = gray, +ZR>ul-c  
      width = 3, ~{ucr#]C  
      maxconnect = 1, @!*I mNMI  
      "N_dop (right scale)" dN@C)5pm5`  
    K?Jo"oy7  
    f: I(pump, -1, x *um, 0) * cm^2,    !泵浦光沿光纤径向的强度分布 \;1nEjIA  
      color = red, @CS%=tE}U  
      maxconnect = 1,           !限制图形区域高度,修正为100%的高度 Pp.] /;  
      width = 3, HHL7z,%f  
      "pump" *-&+;|mM  
    CQs,G8 \/  
    f: I(signal_fw, -1,x * um, 0) * cm^2,  !信号光沿光纤径向的强度分布 i7mo89S  
      color = blue, 24k;.o  
      maxconnect = 1, <l< y R?  
      width = 3, Yo\%53w/  
      "signal" -d[Gy- J  
    =vsvx{o?  
    P}w0=  
    ; ------------- oK3PA  
    diagram 5:                                  !输出图表5 23X-h#w  
     Q!(qb  
    "TransitionCross-sections" B D [<>Wm  
    |(=b  
    I_max :=maxr(I(pump, -1, 0, 0), I(signal_fw, -1, 0, 0)) #&Rx?V  
    1]"S?  
    x: 1450, 2050 }[y_Fr0  
    "wavelength(nm)", @x AG|:mQO  
    y: 0, 0.6 sY* qf=  
    "cross-sections(1e-24 m&sup2;)", @y w& )ApfL  
    frame 5Vr#>W  
    hx esd9N'.Q*  
    hy 4!A(7 s4t  
    @2sr/gX^  
    f: s12_Tm(x * nm) /1e-24,      !Tm3+吸收截面与波长的关系 6M[OEI5  
      color = red, or(P?Ro  
      width = 3, %>1C ($^  
      "absorption" J I E0O`  
    f: s21_Tm(x * nm) /1e-24,  !Tm3+发射截面与波长的关系 $U'*}S  
      color = blue, e\ }'i-  
      width = 3, HE-ErEtGB  
      "emission" 'OU`$K7n  
    *JO%.QNg  
     
    分享到
    离线lileisgsz
    发帖
    14
    光币
    69
    光券
    0
    只看该作者 1楼 发表于: 2021-09-28
    感谢,视频上有点看不清楚