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

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

    上一主题 下一主题
    离线小火龙果
     
    发帖
    932
    光币
    2176
    光券
    0
    只看楼主 倒序阅读 楼主  发表于: 2020-05-28
    (* G^Yg[*bJ^$  
    Demo for program"RP Fiber Power": thulium-doped fiber laser, sv?Lk4_  
    pumped at 790 nm. Across-relaxation process allows for efficient Bl)DuCV  
    population of theupper laser level. b6UD!tXp  
    *)            !(*  *)注释语句 4 '6HX#J  
    )o8]MWT\;  
    diagram shown: 1,2,3,4,5  !指定输出图表 9AdA|/WV  
    ; 1: "Powersvs. Position"     !分号是注释;光纤长度对功率的影响 C_DXg-a2lu  
    ; 2:"Variation of the Pump Power"  !泵浦光功率变化对信号输出功率的影响 =XT}&D6  
    ; 3:"Variation of the Fiber Length"!信号输出功率vs 光纤长度的变化,仿真最佳光纤长度 ueazAsk3g  
    ; 4:"Transverse Profiles"             !横向分布,横坐标为半径位置 <jvSV5%  
    ; 5:"Transition Cross-sections"    !不同波长的跃迁横截面,横坐标波长,纵坐标为横截面 {m+(j (6-  
    <U() *0  
    include"Units.inc"         !读取“Units.inc”文件中内容 ${F] N }  
    PxHH h{y%c  
    include"Tm-silicate.inc"    !读取光谱数据 gNG_,+=!  
    YAf`Fnmw  
    ; Basic fiberparameters:    !定义基本光纤参数 Xm2p<Xu8h  
    L_f := 4 { fiberlength }      !光纤长度 _7"G&nZ0  
    No_z_steps := 50 {no steps along the fiber } !光纤步长,大括号{ }是注释,相当于备注 AGxG*KuZ  
    r_co := 6 um { coreradius }                !纤芯半径 +8 AGs,  
    N_Tm := 100e24 { Tmdoping concentration }  !纤芯Tm离子掺杂浓度 u;qBW uO  
    |H'4];>R?  
    ; Parameters of thechannels:                !定义光信道 gjVKk  
    l_p := 790 nm {pump wavelength }                !泵浦光波长790nm 8E| Nf  
    dir_p := forward {pump direction (forward or backward) }   !前向泵浦 jQiK of>  
    P_pump_in := 5 {input pump power }                    !输入泵浦功率5W +5+?)8Ls  
    w_p := 50 um {radius of pump cladding }               !包层泵浦相应的半径 50um 4>&%N\$*  
    I_p(r) := (r <=w_p) { pump intensity profile }          !泵浦光强度分布 ' 4nR^,  
    loss_p := 0 {parasitic losses of pump wave }           !泵浦光寄生损耗为0 "NamP\hj  
    ]%PQ3MT.  
    l_s := 1940 nm {signal wavelength }                   !信号光波长1940nm P+~{q.|._c  
    w_s := 7 um                          !信号光的半径 uxd5XS  
    I_s(r) := exp(-2 *(r / w_s)^2)            !信号光的高斯强度分布 M6P`~emX2  
    loss_s := 0                            !信号光寄生损耗为0 p=65L  
    E$'Zd,|f=  
    R_oc := 0.70 {output coupler reflectivity (right side) }      !输出耦合反射率  S=o1k  
    ljij/C=  
    ; Function for defining themodel:   !定义模型函数,一定要有calc命令,否则函数只会被定义,但不会被执行 (*Jcx:rH  
    calc X;I;CZ={  
      begin :! h1S`wS  
        global allow all;                   !声明全局变量 !Rzw[~  
        set_fiber(L_f, No_z_steps, '');        !光纤参数 .}>DEpc:n  
        add_ring(r_co, N_Tm); M@V.?;F},  
        def_ionsystem();              !光谱数据函数 C]tHk)<|42  
        pump := addinputchannel(P_pump_in, l_p,'I_p', loss_p, dir_p);  !泵浦光信道 jQp7TdvLE$  
        signal_fw := addinputchannel(0, l_s, 'I_s',loss_s, forward);      !前向信号光信道 o#-K,|-  
        signal_bw := addinputchannel(0, l_s, 'I_s',loss_s, backward);    !后向信号光信道 \lnpsf  
        set_R(signal_fw, 1, R_oc);                                 !设置反射率函数 9oK#n'hjb  
        finish_fiber();                                   Q}N.DM@d3  
      end; >+w(%;i;  
    (C RY$+d  
    ; Display someoutputs in the Output window (on the right side): !在Output aera区域显示输出 Q}a 1P8?S  
    show "Outputpowers:"                                   !输出字符串Output powers: n\#RI9#\  
    show"pump:     ", P_out(pump):d3:"W"  !输出字符串pump:和计算值(格式为3个有效数字,单位W) ?]'Rz\70  
    show"signal:   ",P_out(signal_fw):d3:"W" !输出字符串signal:和计算值(格式为3个有效数字,单位W) 5{Xld,zw  
    q89#Ftkt  
    "-'w,g  
    ; ------------- 4|Dxyb>pS  
    diagram 1:                   !输出图表1 4,!S?:7  
    }2^_Gaj  
    "Powers vs.Position"          !图表名称 J?WT  
    cvR|qHNX  
    x: 0, L_f                      !命令x: 定义x坐标范围 .`OyC'  
    "position infiber (m)", @x      !x轴标签;@x 指示这些字符串沿坐标轴放置 `,mE '3&  
    y: 0, 15                      !命令y: 定义y坐标范围  m/)Wn  
    y2: 0, 100                    !命令y2: 定义第二个y坐标范围 0jsU^m<g  
    frame          !frame改变坐标系的设置 $q]:m+Fm  
    legpos 600, 500  !图行在图表窗口中的位置(相对于左上角而言) 3d^zLL  
    hx             !平行于x方向网格 3le/(=&1  
    hy              !平行于y方向网格 -vcHSwG b  
    dF2 &{D"J  
    f: P(pump, x),    !命令f: 定义函数图;P(pump, x)函数是计算x位置处的泵浦光功率 em  
      color = red,  !图形颜色 M+X>!Os  
      width = 3,   !width线条宽度 \dAh^BK1(  
      "pump"       !相应的文本字符串标签 jlV~-}QKb7  
    f: P(signal_fw, x),  !P(signal_fw ,x) 函数是计算x位置处的前向信号光功率 {%$eq{~m  
      color = blue,     w`(EW>i  
      width = 3, KJ]:0'T  
      "fw signal" OAu ?F}O  
    f: P(signal_bw, x),   !P(signal_bw ,x) 函数是计算x位置处的后向信号光功率 E?o1&(2p  
      color = blue, #2thg{5  
      style = fdashed, Ctpr.  
      width = 3, Ux~rBv''  
      "bw signal" c7mIwMhl~  
    2f8fA'|O  
    f: 100 * n(x, 2),    !n(x ,2) 函数是计算x位置处激活粒子数在能级2上的占比 }yup`R  
      yscale = 2,            !第二个y轴的缩放比例 zPp?D_t  
      color = magenta, NJfI9L  
      width = 3,  )_P|_(  
      style = fdashed, Ht UFl  
      "n2 (%, right scale)" .'md `@t  
    {{c/:FTEU  
    f: 100 * n(x, 3),          !n(x ,3) 函数是计算x位置处激活粒子数在能级3上的占比 cD&53FPXC  
      yscale = 2, / AFn8=9'^  
      color = red, F6*n,[5(  
      width = 3, jTbJL  
      style = fdashed, wu5]S)?*  
      "n3 (%, right scale)" hr&&"d {s  
    gVM9*3LH6  
    [hs_HYqJ  
    ; ------------- 9(>]6|XS  
    diagram 2:                    !输出图表2 H#IJ&w|  
    lwEJ)Bv  
    "Variation ofthe Pump Power" eMk?#&a)  
    0xbx2jlkY  
    x: 0, 10 Fp>iwdjFg  
    "pump inputpower (W)", @x `mTpL^f  
    y: 0, 10 Q}GsCmt=)O  
    y2: 0, 100 XUT,)dL  
    frame }D_h*9  
    hx 413,O~^  
    hy PtySPDClj  
    legpos 150, 150 ~Zbr7zVn  
    t\ J5np  
    f: (set_P_in(pump, x);P_out(signal_fw)), !set_P_in(pump,x)改变泵浦信道功率;P_out(signal_fw)输出前向信号光 7%C6hEP/*W  
      step = 5, H79XP.TtE  
      color = blue, iaAVGgA9+  
      width = 3, '_& Xemz  
      "signal output power (W, leftscale)",     !相应的文本字符串标签 D_oGhQYY4  
      finish set_P_in(pump, P_pump_in) cn&\q.!fh  
    Wk$ 7<gkr  
    f: (set_P_in(pump,x); 100 * n_av(2)),   !改变泵浦信号功率对能级2上激活粒子占比的影响 iiS^xqSNCt  
      yscale = 2, U)~?/s{v  
      step = 5, uMl.}t2uYu  
      color = magenta, UR|UGldt_T  
      width = 3, J-t5kU;L{  
      "population of level 2 (%, rightscale)", =h,6/cs  
      finish set_P_in(pump, P_pump_in) fHTqLYd-  
    tZlz0BY!  
    f: (set_P_in(pump,x); 100 * n_av(3)),   !改变泵浦信号功率对能级3上激活粒子占比的影响 h|h-<G?>  
      yscale = 2, LaL.C^K  
      step = 5, va \ 5  
      color = red, c,a+u  
      width = 3, qkB)CY7  
      "population of level 3 (%, rightscale)", ]O'dwC  
      finish set_P_in(pump, P_pump_in) {2<A\nW  
    nQ4s  
    9 p6QNDp  
    ; ------------- 1"J\iwN3  
    diagram 3:                         !输出图表3 N1rBpt  
    '<" eG!O  
    "Variation ofthe Fiber Length" Mf)0Y~_:R#  
    U$o\?4  
    x: 0.1, 5 t]?u<KD<  
    "fiber length(m)", @x ft oz0Vb  
    y: 0, 10 / sI0{  
    "opticalpowers (W)", @y >vE1,JD)w  
    frame bl. y4  
    hx 8&FnXhZg4  
    hy rW$ )f  
    )SG+9!AbMZ  
    f: (set_L(x);P_out(signal_fw)),     !改变光纤长度对信号光输出功率的影响 MQc|j'vEY  
      step = 20,             .]+Z<5Fo  
      color = blue, 0Lcd@3XL  
      width = 3, ({=: N  
      "signal output" T_ ifDQX;  
    rblEyCR  
    ;f: (set_L(x);P_out(pump)),                     !改变光纤长度对泵浦信号输出功率的影响 A<ca9g3  
       step = 20, color = red, width = 3,"residual pump" ]O Nf;RH  
    UN{_f)E?  
    ! set_L(L_f) {restore the original fiber length } '@1oM1  
    a f[<[2pma  
    )-$Od2u2c  
    ; ------------- &oJ=   
    diagram 4:                                  !输出图表4 \Z0-o&;w  
    P_11N9C  
    "TransverseProfiles" .nCF`5T!  
    s5 ? 1w   
    I_max :=maxr(I(pump, -1, 0, 0), I(signal_fw, -1, 0, 0)) PLDg'4DMg  
    j:'sbU  
    x: 0, 1.4 * r_co /um g.yr) LHt0  
    "radialposition (µm)", @x emp*j@9  
    y: 0, 1.2 * I_max *cm^2 ab ?   
    "intensity (W/ cm&sup2;)", @y DiMkcK_e  
    y2: 0, 1.3 * N_Tm J7:VRf|,?(  
    frame ZuIr=`"j  
    hx +4G]!tV6  
    hy r7w1~z  
    #rSm;'%,  
    f: N_dop(1, x * um,0),      !掺杂浓度的径向分布 * ^R?*vNs  
      yscale = 2, c@d[HstBJ  
      color = gray, 5Ug.J{d  
      width = 3, {+~}iF<%  
      maxconnect = 1, FncK#hZ.  
      "N_dop (right scale)" g?,\bmHE  
    oNHbQ&h  
    f: I(pump, -1, x *um, 0) * cm^2,    !泵浦光沿光纤径向的强度分布 4/Ub%t -  
      color = red, ]AoRK=aH  
      maxconnect = 1,           !限制图形区域高度,修正为100%的高度 ] ?!#*<t r  
      width = 3, 9PXG*r|D  
      "pump" `I|$U)'  
    '0QrM,B9  
    f: I(signal_fw, -1,x * um, 0) * cm^2,  !信号光沿光纤径向的强度分布 ;&B;RUUnTO  
      color = blue, GSzb  
      maxconnect = 1, Rlc$2y@pU  
      width = 3, ciRn"X=l  
      "signal" ,PH;j_  
    S?pWxHR]  
    '?]B ui  
    ; ------------- LIfQh  
    diagram 5:                                  !输出图表5 'Fi\Qk'D@  
    Pn:L=*  
    "TransitionCross-sections" ;&mefaFlWp  
    wLn,x;;<  
    I_max :=maxr(I(pump, -1, 0, 0), I(signal_fw, -1, 0, 0)) w|$i<OIi)  
    ) #G5XS+)  
    x: 1450, 2050 '1'#,u!  
    "wavelength(nm)", @x O$ dz=)  
    y: 0, 0.6 [(Z{5gK  
    "cross-sections(1e-24 m&sup2;)", @y Ox .6]W~  
    frame uE{r09^q\  
    hx nf#;]FijB  
    hy G 3))3]  
    M7U:UV)  
    f: s12_Tm(x * nm) /1e-24,      !Tm3+吸收截面与波长的关系 Nn/me  
      color = red, )b^yAzL?  
      width = 3, 3 !W M'i  
      "absorption" VX+:k.}  
    f: s21_Tm(x * nm) /1e-24,  !Tm3+发射截面与波长的关系 \@")2o+  
      color = blue, DZPg|*KT  
      width = 3, ~mAv)JK  
      "emission" dk<) \C"  
    'ii5pxeNI  
     
    分享到
    离线lileisgsz
    发帖
    14
    光币
    69
    光券
    0
    只看该作者 1楼 发表于: 2021-09-28
    感谢,视频上有点看不清楚