计算光波由光密入射到光疏介质时相位变化 {6n B83BB
HK }C<gg
clear YS;Q l\4
IQR?n}ce
close all Jo2:0<VL
<%|2yPb]
n1=1.45,n2=1; 3.8d"
E")82I
theta=0:0.1:90; chxO*G
& 'R\yX<J)
a=theta*pi/180; rtOXK4)]I
Wz9 }glr
rp=(n2*cos(a)-n1*sqrt(1-(n1/n2*sin(a)).^2))./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); JD,/oL.KA
Iz
V tiX
rs=(n1*cos(a)-n2*sqrt(1-(n1/n2*sin(a)).^2))./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); =n9|r.\&uJ
:] :q =1;c
tp=2*n1*cos(a)./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); 3C5<MxtK
G !wFG-Y}
ts=2*n1*cos(a)./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); 6VIi
nuOW
40mgB4I
arp=angle(rp); XO219
6tj +
ars=angle(rs); yw2sK7
IRD?.K]*
atp=angle(tp); bz,C% HFA
% gmf
ats=angle(ts); )p 2kx
G 9d@vu
figure(1) A=Dzd/CUO
cR _ 8 5
subplot(1,2,1); !@5B:n*
*GD?d2.6j
plot(theta,arp,'-',theta,ars,'--','LineWidth',2) v,
9M AZ,
r;SA 1n#
legend('arg(r_p)','arg(r_s)')
'f] \@&Np
D&$%JT'3
xlabel('\theta_i') |h4aJv
{ |a=
ylabel('\phi') Wu?4 oF
6o!+E@V
b
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) N"@aisi)
n} }$-xl
axis([0 90 -3.5 3.5]) Jwgd9a5
@.@O#
grid on : OQx;>'
]gx]7
subplot(1,2,2); G?v]p~6
}y;s(4
plot(theta,atp,'-',theta,ats,'--','LineWidth',2) ^1nQ Dd*
[A A'Ko
legend('arg(t_p)','arg(t_s)') : *k
t&*X~(Yb!
xlabel('\theta_i') }\?UmuolQ
@Ge\odfF:
ylabel('\phi') s8Bbe t
tUaDwIu#
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) 5R"iF+p4
B}Qpqa=_c
axis([0 90 -3.5 3.5]) R9xhO!
jv_z%`
grid on Xt& rYv
Wo+fMn( O
