无码日韩精品一区二区免费_极品尤物一区二区三区_国产在线乱码一区二三区_内射女校花一区二区三区

首頁 -> 登錄 -> 注冊 -> 回復主題 -> 發(fā)表主題

光行天下 -> MATLAB,SCILAB,Octave,Spyder -> 利用MATLAB光學仿真（2） [點此返回論壇查看本帖完整版本]

[打印本頁]

200833

2017-11-26 22:37

利用MATLAB光學仿真（2）

計算光波由光密入射到光疏介質時相位變化

clear

close all

n1=1.45,n2=1;

theta=0:0.1:90;

a=theta*pi/180;

rp=(n2*cos(a)-n1*sqrt(1-(n1/n2*sin(a)).^2))./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2));

rs=(n1*cos(a)-n2*sqrt(1-(n1/n2*sin(a)).^2))./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2));

tp=2*n1*cos(a)./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2));

ts=2*n1*cos(a)./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2));

arp=angle(rp);

ars=angle(rs);

atp=angle(tp);

ats=angle(ts);

figure(1)

subplot(1,2,1);

plot(theta,arp,'-',theta,ars,'--','LineWidth',2)