untitled2增.m

Study on LD Pumped Yb3+ -doped Double-clad Fiber Lasers数值分析对线形腔LD泵浦掺镱的双包层光纤激光器进行研究

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(L,g,'k')