计算光波由光密入射到光疏介质时相位变化 ga1b%5]v.
e pt:<!4
clear us8 ce+
2,|@a\H
close all . Xxxz
Wyk
3uvl'1(%J
n1=1.45,n2=1; Pa; *%7
w3f D6$
theta=0:0.1:90; (/>
yfL]J
sSiZG
a=theta*pi/180; ~Wm'~y>
guy!/zQ>A
rp=(n2*cos(a)-n1*sqrt(1-(n1/n2*sin(a)).^2))./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); EO",|V-
'/ueY#eG
rs=(n1*cos(a)-n2*sqrt(1-(n1/n2*sin(a)).^2))./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); v<0S@9~
x41 t=E](
tp=2*n1*cos(a)./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); su-0G?c
HW6Cz>WxOW
ts=2*n1*cos(a)./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); -%VFC^'5
[ifQLsHA
arp=angle(rp); L M.#~7jC
1mEW]z
ars=angle(rs); oY @]&A^ah
1Ji"z>H*
atp=angle(tp); <PO-S\N
,=%c
e
ats=angle(ts); I= z+`o8
9FT= =>
figure(1) ;ov}%t>UD
x||b :2
subplot(1,2,1); QX-M'ur99
,.gI'YPQC
plot(theta,arp,'-',theta,ars,'--','LineWidth',2) fG7 -0 7
F<6{$YI
legend('arg(r_p)','arg(r_s)') )4+uM'2%
r^\Wo7q
xlabel('\theta_i') R?*-ZI[>w
?N%5c%oF
ylabel('\phi') Ujly\ix`
I|mxyyf
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) `\-MpNw
y2C/DyuAY|
axis([0 90 -3.5 3.5]) RQn3y-N]
4MgG ]
grid on k#@)gL
hP 1;$
subplot(1,2,2); 'Cywn^Ym#
l?beqw:
plot(theta,atp,'-',theta,ats,'--','LineWidth',2) + d 6Jrd*
.aIFm5N3?
legend('arg(t_p)','arg(t_s)') Q[Tbdc%1EG
piiO5fK|
xlabel('\theta_i') *\wf(o>Q
O{G $]FtF
ylabel('\phi') A'? W5~F
odq3@
ziO
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) v\COl*
jM(!!A jpC
axis([0 90 -3.5 3.5]) h1?.x
'8Lc}-M4
grid on pvd9wKz
IRDD
