光纤激光器matlab数值模拟

包括对掺杂光纤激光器的matlab输出模拟，以及增益曲线的表现

R2=0.04
R1=0.96;
R3=0.94;
R4=0.94;
a1=R1^0.5;
h1=R2^0.5;
f1=a1*（1-R2）/（a1*（1-R2）+h1*（1-R1））;
s1=1/（a1*h1）^2;
Os=1.5e-25;
Tf=8.0e-4;
h=6.63e-34;
vp=2.654e+14;
aa=0.299;
c=-1/aa;
d=-aa;
fp=2.0408;
af=6.85e-11;
g0=8;
psat=1.908e-2;
L=0:0.01:20
p021=30;
p031=0;
pout31=p021.*（（1-exp（（-aa）.*L））;
pout41=p031.*（（1-exp（（-aa）.*（20-L））;
pout51=pout31+pout41;
go1=g0*pout51;
o=1/（1-R2）;
pout1=psat*f1.*（go1*（-c）-log（s1））;
g=go1/（1+o.*pout1*（1+R2））;
plot（Lg‘k‘）

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       2589  2005-01-26 15:05  Untitled2增益曲线.m

     文件       5624  2005-01-09 11:29  untitled01.fig

     文件      26680  2005-01-07 21:09  untitled1.fig

     文件      12872  2005-01-08 09:57  untitled001.fig

     文件        481  2005-01-19 20:56  Untitled2增.m

----------- ---------  ---------- -----  ----

                48464                    6