计算光波由光密入射到光疏介质时相位变化 .xWa S8f
cz{`'VN}`
clear `:*2TLxIk
c)B 3g.C4m
close all BgQ/$,
0 !{X8>x
n1=1.45,n2=1; 2 l+L96
y<6c*e1
theta=0:0.1:90; bxtH`^
kLF`6ZXtd
a=theta*pi/180; M\a{2f7'n
o{ `x :
rp=(n2*cos(a)-n1*sqrt(1-(n1/n2*sin(a)).^2))./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); NsP=l]
{+=hYB|&
rs=(n1*cos(a)-n2*sqrt(1-(n1/n2*sin(a)).^2))./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); E;{R Nf|
q,O_y<uw
tp=2*n1*cos(a)./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); mL 2J
, ?er AI
ts=2*n1*cos(a)./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); ;V s2 e
\ fiy[W/k
arp=angle(rp); ^4 +NPk
d"0 6
gp
ars=angle(rs); iD G& Muc
H-+U^@w
atp=angle(tp); 'z
AvQm
#UoFU{6tM
ats=angle(ts); |+W{c`KL
R20 .dA_N
figure(1) Eu'E;*- f
3*~`z9-z
subplot(1,2,1); {$hWz (
Gd_0FF .
plot(theta,arp,'-',theta,ars,'--','LineWidth',2) g9|OhymB
qnboXGaFu
legend('arg(r_p)','arg(r_s)') 41<h |WA
T`":Q1n
xlabel('\theta_i') F: T(-,
8sG?|u
ylabel('\phi') `gx\m=xG
%W\NYS m
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) \-pwA j?
AXHY$f|
axis([0 90 -3.5 3.5]) r=0PW_r:
wGNE b
grid on 1C{0 R.
<<u ]WsW{C
subplot(1,2,2); iL);bv W
[mu8V+8@d4
plot(theta,atp,'-',theta,ats,'--','LineWidth',2) m;l[flQ~
<q!HY~"V
legend('arg(t_p)','arg(t_s)') 7HH@7vpJ^
@ i! +Z
xlabel('\theta_i') pI-Qq%Nwt
N^$ q;%
ylabel('\phi') v77UE"4|c
yO7y`;Q(sF
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) "h_f- vP
]pBEoktp
axis([0 90 -3.5 3.5]) k-
9i
m_oUl(pk
grid on \ YF@r7
m`-:j"]b$
