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