计算光波由光密入射到光疏介质时相位变化 /48W]a}JS
Cjvgf .>$
clear ?gZJ v
-Vj'QqZ
close all lo }[o0X
! : e0cV
n1=1.45,n2=1; &uLxA w
,p(4OZz5,
theta=0:0.1:90; g 4n& k
?(8z O"
a=theta*pi/180; >z=_V|^$
iU)-YFO
rp=(n2*cos(a)-n1*sqrt(1-(n1/n2*sin(a)).^2))./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); R'E8>ee; ^
m~K[ +P
rs=(n1*cos(a)-n2*sqrt(1-(n1/n2*sin(a)).^2))./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); c[=%v]j:u
Bjg 21bw^
tp=2*n1*cos(a)./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); mtfyhFk
Sr7+DCr
ts=2*n1*cos(a)./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); [V#"7O vl
Oto pA)
arp=angle(rp); 9JF*xXd>Q
kvU0 $1
ars=angle(rs); eYL7G-3
Q@3.0Hf|{
atp=angle(tp); )g4oUZDF
TO\%F}m(
ats=angle(ts); a
S-
r ng
(wJtEoB9^
figure(1) <`dF~
"Y&+J@]
subplot(1,2,1); h6*=Fn7C
{$i JYS\
plot(theta,arp,'-',theta,ars,'--','LineWidth',2) M
mg#Vy~
h;vD"!gP
legend('arg(r_p)','arg(r_s)') Xco$
yF%
d}f| HOFq
xlabel('\theta_i') nsyg>=j
MDkIaz\U
ylabel('\phi') > Kl78w:
>/"XX,3
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) c ;3bX6RD*
/p,D01Ws}(
axis([0 90 -3.5 3.5]) TJtW?c7
1{ #Xa=
grid on :,F^{
$"{V],:T
|
subplot(1,2,2); Q}jbk9gM5
&Q Oob)
plot(theta,atp,'-',theta,ats,'--','LineWidth',2) S&-sl
/x_C
legend('arg(t_p)','arg(t_s)') -<# n7b
?xf59mY7
xlabel('\theta_i') | -Di/.
}wR)p
ylabel('\phi') v\Y; )/!
Pi?*rr5WZ
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) =nnS X-x
$2BRi@
axis([0 90 -3.5 3.5]) dh/:H/k kR
) <.S 3
grid on ?HIc=
pmCBe6n \l
