计算光波由光密入射到光疏介质时相位变化 m)AF9#aT2
0JFS%Yjw[
clear :o~]FVf
UE9RrfdN
close all ;~ D$ rT
Q g~cYwX
n1=1.45,n2=1; 7 Tb[sc'
Ri>4:V3K
theta=0:0.1:90; '9{`Czc(Gb
Y5c,O>T5Y
a=theta*pi/180; T:T` M:C.
Emy=q5ryl
rp=(n2*cos(a)-n1*sqrt(1-(n1/n2*sin(a)).^2))./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); CbGfVdw/c
X)e#=w!fi3
rs=(n1*cos(a)-n2*sqrt(1-(n1/n2*sin(a)).^2))./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); = 6Fpixq>
d1P|v(
`S9
tp=2*n1*cos(a)./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); r7)qr%n
Qy ghNImp
ts=2*n1*cos(a)./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); (E;+E\E
; b{yu|
arp=angle(rp); GYZP?E p*
Hr_5N,
ars=angle(rs); oyB
gF\
gY'-C
atp=angle(tp); *\.8*6*$!
xKR\w !+Z'
ats=angle(ts); arIEd VfNa
ho-#Xbq#g
figure(1) z$gtGrU
/4*Y#IpZ
subplot(1,2,1); }u9#S
"(r%`.l=I
plot(theta,arp,'-',theta,ars,'--','LineWidth',2) d-3.7nJ:
zO`4W!x&
legend('arg(r_p)','arg(r_s)') 6ao~f?JZ
iYZn`OAx
xlabel('\theta_i') %a fN&T
lD ^c_ b
ylabel('\phi') .TMLg(2hgv
i;rcg d
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) 7u{V1_ n1
C}#$wge
axis([0 90 -3.5 3.5]) wn^#`s!]U
e)= " F q!
grid on cYp/? \
a^={X<K|/
subplot(1,2,2); l A%FS]vh
UX+vU@Co[
plot(theta,atp,'-',theta,ats,'--','LineWidth',2) %x.du9
VKkvf"X
legend('arg(t_p)','arg(t_s)') "OwK-
j 7U&a}(
xlabel('\theta_i') &wAVO_s
Q 0G5<:wc
ylabel('\phi') j]FK.G'
l\F71pwSI
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) 35Fxzj $
pd B\D
axis([0 90 -3.5 3.5]) ;yajt\a
`Xz!apA
grid on [UXN=
76N
w3 ATsIw
