计算光波由光密入射到光疏介质时相位变化 ?7p|
F^
R Q'c~D)X
clear GJuD
:
/uc/x+(_
close all *h%G 4M
;VH]TKkk
n1=1.45,n2=1; ;'
W5|.ZN
7fE V/j
theta=0:0.1:90; 9]w0zUOL6
2~U+PyeNz
a=theta*pi/180; 1G;Ns] u
8{l=`y"nB
rp=(n2*cos(a)-n1*sqrt(1-(n1/n2*sin(a)).^2))./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); qR<DQTO<
o'4@]ae
rs=(n1*cos(a)-n2*sqrt(1-(n1/n2*sin(a)).^2))./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); iL gt_@g
8JrGZ8Q4RM
tp=2*n1*cos(a)./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); I7_D $a=
Mfr#IzNHN
ts=2*n1*cos(a)./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); //,'oh~W
e C{Z
arp=angle(rp); y~=h M
. R}y"O\
ars=angle(rs); .%<&W 1
9 "RfL7{
atp=angle(tp); XOwMT,=Z)
!dH&IEP~
ats=angle(ts); p4EItRZS
NGs9Jke2
figure(1) @/(7kh +
j1C.# -P[
subplot(1,2,1); z n!
Ve1] ECk
plot(theta,arp,'-',theta,ars,'--','LineWidth',2) |P7f^0idk
/xbZC{R
legend('arg(r_p)','arg(r_s)') l,L=VDEz,
5O W(] y|
xlabel('\theta_i') F s\P/YX
P/9J !.C m
ylabel('\phi') PcHFj+:
;_a oM&
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) {kH^OZ^(e
?|J+dW
axis([0 90 -3.5 3.5]) g VJ #LJ
8m6 nw0
grid on h}>/Z3*
Jwt I(>cI
subplot(1,2,2); J\$l3i /I
mZVOf~9E
plot(theta,atp,'-',theta,ats,'--','LineWidth',2) 32LB*z c
c\{}FGC
legend('arg(t_p)','arg(t_s)') p-r%MnT
PB67 ?d~
xlabel('\theta_i') HHTsHb{7
,HkhK bQ
ylabel('\phi') G?d,$NMo|
{4aY}=
-Q*
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) W.D 3$
T$8~ 9 qx
axis([0 90 -3.5 3.5]) Zt2@?w;
=G F
grid on PbHh?iH
fP1OH &Ar
