计算光波由光密入射到光疏介质时相位变化 pZZf[p^s|
A!63p$VT;
clear _3Cn{{ A0
}!TL2er_
close all Ad dea B5<
*XWq?hi
n1=1.45,n2=1; =?X$Yaw*
A%\tiZe
theta=0:0.1:90; j!z-)p8hy
lHB) b}7E
a=theta*pi/180; ~LQ[4h<J !
i5F:r|
rp=(n2*cos(a)-n1*sqrt(1-(n1/n2*sin(a)).^2))./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); w-$[>R[hw
G9g6.8*&
rs=(n1*cos(a)-n2*sqrt(1-(n1/n2*sin(a)).^2))./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); B ZMu[M
(.3'=n|kE
tp=2*n1*cos(a)./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); .C]cK%OO
N
M|i o4+sy
ts=2*n1*cos(a)./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); MP>n)!R[`
l?*r5[O>n
arp=angle(rp); tD$lNh^
Fd \ e*ww'
ars=angle(rs); MK}-<&v
Ei({`^
atp=angle(tp); ]+H ?@*b`
8%RI7Mg
ats=angle(ts); N{d@^Yj
j*;N\;iL!*
figure(1) W0cgI9=9
VK3it3FI>3
subplot(1,2,1); u2(eaP8d
}vt%R.u
plot(theta,arp,'-',theta,ars,'--','LineWidth',2) 0F;,O3Q
N6Z{BLZ
legend('arg(r_p)','arg(r_s)') =GR 'V
i z]rFNR
xlabel('\theta_i') MQcr^Y_
1MA@JA:T
ylabel('\phi') H' J| U|
o'%e I
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) 7k =fZ$+O
Z$ KV&.=+
axis([0 90 -3.5 3.5])
s* j fMY
;Pb8YvG1$
grid on ,R wfp=*E
>[a<pm !
subplot(1,2,2); uL?vG6% ^1
0&fl#]oCE
plot(theta,atp,'-',theta,ats,'--','LineWidth',2) %3Bpn=k>
k<4P6?
legend('arg(t_p)','arg(t_s)') ?Hy+'sq[
VS/;aG$&y
xlabel('\theta_i') X,v4d~>]
2RppP?M!
ylabel('\phi') 8TZENRzx-|
>[*4Tjg
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) "<l<&
qp
hRTMFgO
axis([0 90 -3.5 3.5]) ^abD !8
d34Y'r
grid on F;D1F+S
aU<s<2 O)
