计算光波由光密入射到光疏介质时相位变化 exEld
^
R^N`V
clear }rA+W -7
A+1] Ql)$
close all ^'53 ]b:
+ \[![r^P
n1=1.45,n2=1; 1S]gD&V
\{=`F`oB=
theta=0:0.1:90; )bXx9,VL
)P9{47
a=theta*pi/180; m- S33PG{
-WBz]GW4r
rp=(n2*cos(a)-n1*sqrt(1-(n1/n2*sin(a)).^2))./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); v\9,j
b|8>eY
rs=(n1*cos(a)-n2*sqrt(1-(n1/n2*sin(a)).^2))./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); Q()RO*9
[(hvK {)
tp=2*n1*cos(a)./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); 9 eN2)a/
o- Q G&
]
ts=2*n1*cos(a)./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); kPX2e h
NRuG?^/}d
arp=angle(rp); V_A,d8=lt
3a uJ^B}
ars=angle(rs); g=g.GpFt
iraRB~
atp=angle(tp); kl3S~gE4@
A;WwS?fyQ
ats=angle(ts); E%\7Uo-
b~Pxgfu"
figure(1) 0.BUfuuh
BU A 6(
subplot(1,2,1); Jf P\7
Z(k\J|&9C
plot(theta,arp,'-',theta,ars,'--','LineWidth',2) c<h!QnJ
L^ #< HQ
legend('arg(r_p)','arg(r_s)') Xlqz8cI
HLoQ}oK|K
xlabel('\theta_i') m!#)JFe67
W]y Clx \
ylabel('\phi') 78a-3 ){
x#j\"$dla
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) F@K*T2uh
0nD=|W\@{
axis([0 90 -3.5 3.5]) s{z~Axup-
w^due P7J
grid on )_c=mT
Oa\ `;
subplot(1,2,2); A M1C
$
^`jZKh8)h
plot(theta,atp,'-',theta,ats,'--','LineWidth',2) l@tyg7CwY
e@,u`{C[
legend('arg(t_p)','arg(t_s)') -wf RR>)d
g",w kO|
xlabel('\theta_i')
>NH4A_
^QXw[th!d
ylabel('\phi') \Sw+]pr~
HL(U~Q6JQ
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) s7 .p$r
2 %{YYT
axis([0 90 -3.5 3.5]) rZ!Yi*? f
"'F;lzq
grid on iO9n vM<
(
*9Ip
