计算光波由光密入射到光疏介质时相位变化 4%nK0FAj
!vl1#@
clear `{"V(YMEV
-M] /Xv]
close all ZT&[:>upR
p + JOUW
n1=1.45,n2=1; ? UflK
N/ {=j
theta=0:0.1:90; V e[Kv07
u8A,f}D 3
a=theta*pi/180; Rb
b[N#p5
T[},6I|!
rp=(n2*cos(a)-n1*sqrt(1-(n1/n2*sin(a)).^2))./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); DP*V|)
ct *~\C6Ze
rs=(n1*cos(a)-n2*sqrt(1-(n1/n2*sin(a)).^2))./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); 8_D:# i
gEVoY,}/-U
tp=2*n1*cos(a)./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); u^ wG Vg
!_o1 ;GzK
ts=2*n1*cos(a)./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); /*S6 /#
H9VdoxKo
arp=angle(rp); = "Lb5!
GZ:1bV37%
ars=angle(rs); 78Zb IL
9J49s1
atp=angle(tp); 2U+wiE|
O'k<4'TC
ats=angle(ts); `a7b,d
jw2hB[WR
figure(1) 0#ePg6n
2rP!]
subplot(1,2,1); g ?% ]()E
]tK<[8Y
plot(theta,arp,'-',theta,ars,'--','LineWidth',2) J( ,gLl
'OYnLz`"6
legend('arg(r_p)','arg(r_s)') #{bT=:3a
x*^)B~7}
xlabel('\theta_i') It'PWqZtG
7&|&y
SCu
ylabel('\phi') c&L|e$C]
Z
+}#
Ic
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) x2]chN
Xdf;'|HO
axis([0 90 -3.5 3.5]) H8qAj
@q" #.?>s
grid on `@ Ont+
l=&Va+K
subplot(1,2,2); QbAEW m
-S $Y0FDV
plot(theta,atp,'-',theta,ats,'--','LineWidth',2) 3 _ DJ
*zPz)3;
legend('arg(t_p)','arg(t_s)') g9gyx/'*
5m6I:s`pK
xlabel('\theta_i') Kv\uBMJNW
{1wjIo"ptg
ylabel('\phi') ~rz%TDX0\
_H2%6 t/V
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) !Ie={BpzbZ
"g;}B"rG
axis([0 90 -3.5 3.5]) \G]vTK3
6$$ku
grid on H 4W4# \M
dy0xz5N-
