该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

syms E U x U1 a a1 a2 k k1 k2 k3 b c d e f g h l S

%其中，b c d e f g h l是为计算简明而引入的字符，S为透射系数D与反射系数R之和。

E=input('请输入入射电子能量E=');

U=input('请输入势垒函数U=');

a1=input('请输入势垒起始坐标a1=');

a2=input('请输入势垒终止坐标a2=');

u=9.10908e-031;%u为电子质量

h=1.0545e-34; %h为约化普朗克常数

k1=sqrt(2*u*E)/h;

a=a2-a1; %a为势垒宽度

k=sqrt(2*u*(E-U));

k2=(int(k,a1,a2))/(h*(a2a1));

k3=-1i*k2;

U1=int(U,a1,a2)/(a2-a1); %势垒近似平均值

if numeric(E)>numeric(U1)

b=4*k1^2*k2^2;

c=(k1^2-k2^2)^2*(sin(a*k2))^2;

d=b+c;

D=b/d;

R=c/d;

% D = ( 4 * k 1 ^ 2 * k 2 ^ 2 ) / ( ( k 1 ^ 2 -k2^2)^2*(sin(a*k2))^2+4*k1^2*k2^2);

% R=(((k1^ 2-k 2 ^ 2)^ 2)*(s i n(a*k 2))^ 2))/((k1^ 2-k2^2)^2*(sin(a*k2))^2+4*k1^2*k2^2);

else

if numeric(E)==numeric(U1)

e=a^2*k1^2;

f=4+a^2*k1^2;

D=4/f;

R=e/f;

%D=4/(4+a^2*k1^2);

%R=(k1^2*a^2)/(4+a^2*k1^2);

else

g=4*(k1^2)*(k3^2);

h=((k1^2+k3^2)^2)*(sinh(a*k3))^2;

l=g+h;

D=g/l;

R=h/l; %D=(4*k1^2*k3^2)/((k1^2+k3^2)^2*((sinh(a*k3))^2)+4*k1^2*k3^2; %R=((k1^2+k3^2)^2*(sinh(a*k3))^2)/((k1^2+k3^2)^2*((sinh(a*k3))^2)+4*k1^2*k3^2);

end

end

D=numeric(D);

R=numeric(R);

S=D+R;