计算光波由光密入射到光疏介质时相位变化 ~;!BDL MC6
l[Tt[n
clear +\srZ<67
},v&r kwR
close all [.ey_} X8
pbPz$Y
n1=1.45,n2=1; *h:D|4oJ(
7 oD
y7nV4
theta=0:0.1:90; *|^,DGfQ6
}|SIHz!R
a=theta*pi/180; 3hH>U%`-
9@Q&B+!
rp=(n2*cos(a)-n1*sqrt(1-(n1/n2*sin(a)).^2))./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); tg3zXJ4k_
ma1 ( EJ/
rs=(n1*cos(a)-n2*sqrt(1-(n1/n2*sin(a)).^2))./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); &{BBxv)y
xUIvLH=
tp=2*n1*cos(a)./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); ed=n``P~}
0u>yT?jP
ts=2*n1*cos(a)./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); fj cr<&{:
g %ZdIKj!
arp=angle(rp); b$dBV}0 L
xUQdVrFU
ars=angle(rs); uL
bp.N8
::v;)VdX+*
atp=angle(tp); b/z'`?[
re]%f"v:5
ats=angle(ts); U7jhV,gO4
ccRlql(
figure(1) $y8mK|3.3u
JR] )xPI`
subplot(1,2,1); s%5Uj }
ZT r:xX{R6
plot(theta,arp,'-',theta,ars,'--','LineWidth',2) E N)Yo Vk
NWw<B3aL
legend('arg(r_p)','arg(r_s)') 0, : iE\
:D DO=
xlabel('\theta_i') Ob7zu"zr
_cR6ik zW(
ylabel('\phi') UVz=QEuYb
zMbfV%b
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) I+*osk
n'q
aR<bY
axis([0 90 -3.5 3.5]) ? ){0-A4
&Q2N U$
grid on rFf :A-#l
u.$Ym
subplot(1,2,2); cZ6?P `X
)t*S 'R
plot(theta,atp,'-',theta,ats,'--','LineWidth',2) G}182"#4
$[)6H7!U)
legend('arg(t_p)','arg(t_s)') lQ+Ru8I
43 +EX.c
xlabel('\theta_i') joxS+P5#
f$Gr`d
ylabel('\phi') Ga]47pQ"F
9
aY'0wa
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) ~o:rM/!Ba
>/( i3)
axis([0 90 -3.5 3.5]) eVJ= .?r
CR%D\I$o
grid on MomLda
V9Q
p^T&jE8])#
