计算光波由光密入射到光疏介质时相位变化 6}n_r}kN R
_D$| lk-
clear C[& \Xq
`cy_@Z5A
close all -?2ThvT
{]Nvq9?
n1=1.45,n2=1; >e=tem~/
g>/,},jv[x
theta=0:0.1:90; Rzj5B\+Rk(
p8%x@%k
a=theta*pi/180; E2LpQNvN%g
p r(:99~3
rp=(n2*cos(a)-n1*sqrt(1-(n1/n2*sin(a)).^2))./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); ~U~KUL|
.N5}JUj
rs=(n1*cos(a)-n2*sqrt(1-(n1/n2*sin(a)).^2))./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); Jq<&`6hn
w/~,mzM"
tp=2*n1*cos(a)./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); *-3K],^a
,m8l
/wG
ts=2*n1*cos(a)./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); HB||'gIC
,wlF n
arp=angle(rp); ]6GdB3?UVM
:n C Gqg
ars=angle(rs); b5No>U) /
pu0I hDMn
atp=angle(tp); k9 .@S
P`@d8 %*;
ats=angle(ts); U;`N:~|p#
crz )F"
figure(1) (}V.xi
,=Xr'7w,
subplot(1,2,1); |k^'}n
=Qsh3b&<P
plot(theta,arp,'-',theta,ars,'--','LineWidth',2) Ra%RcUf~sh
pTprU)sa7
legend('arg(r_p)','arg(r_s)') _o'ii
VDuD
|b QKymS
xlabel('\theta_i') r0+lH:G*q
]- " )r
ylabel('\phi') )c^Rc9e /
K ``MS
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) ]EnB`g(4;
AT<K>&)
axis([0 90 -3.5 3.5]) Q0#oR [(
VY<$~9a&1
grid on "n^h'// mn
po4seW!
subplot(1,2,2); M56^p ,
r? nvJHP
plot(theta,atp,'-',theta,ats,'--','LineWidth',2) :"5i/Cx
-= H* (M
legend('arg(t_p)','arg(t_s)') a:r8Jzr
-+Axa[,5=
xlabel('\theta_i') EeIV6ug
yH|[K=?S[
ylabel('\phi') 8`v+yHjG
MRR 5j;4GK
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) E2 Q[
FIL?nkYEO
axis([0 90 -3.5 3.5]) Oh3AbpTT
)e d5~ok
grid on
?3D|{
~Z9Eb| B
