计算光波由光密入射到光疏介质时相位变化
N3S,33
8s f 4
Sw,A clear
"-~D!{rS [[.&,6 close all
~T;ajvJ rFt ,36# n1=1.45,n2=1;
6T}
CPDRq C+Fh$ theta=0:0.1:90;
)%H5iSNG$P N9>'/jgZX a=theta*pi/180;
Gdc~Lh V29S* rp=(n2*cos(a)-n1*sqrt(1-(n1/n2*sin(a)).^2))./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2));
IlC:dA Z!s>AgH9u rs=(n1*cos(a)-n2*sqrt(1-(n1/n2*sin(a)).^2))./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2));
F$sF
'cw %~8](]p tp=2*n1*cos(a)./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2));
g-{<v4 NGI 5~kW-x ts=2*n1*cos(a)./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2));
/ ut~jf` %BKR} arp=angle(rp);
ECE{xoc /v|68x6 ars=angle(rs);
!4b;>y=m I/e2, atp=angle(tp);
F]dd># C&d"#I ats=angle(ts);
6S+K*/w q!9v}R3( figure(1)
9 FFfRIVY C.9eXa1wkT subplot(1,2,1);
`)(
<g /Mi-lh^j- plot(theta,arp,'-',theta,ars,'--','LineWidth',2)
!Sy'Z6%f HLyFyv\ legend('arg(r_p)','arg(r_s)')
;5JIY7t YVg}q#
xlabel('\theta_i')
3Av(|<cR Z+h70,| ylabel('\phi')
n\8[G[M E't G5,/m title(['n_1=',num2str(n1),',n_2=',num2str(n2)])
Ow .)h(y/ =ZJ?xA8 axis([0 90 -3.5 3.5])
uI:3$ GYb2m"a) grid on
"<n"A7e -z~ V subplot(1,2,2);
??e#E[bI vdFQf ^l plot(theta,atp,'-',theta,ats,'--','LineWidth',2)
Z :i"|; 3TvhOC>yG legend('arg(t_p)','arg(t_s)')
$j4?'-i=e VL!kX``^F xlabel('\theta_i')
ZD] '$ \z2hXT@D ylabel('\phi')
s:Ql](/B# fz?Wr: I title(['n_1=',num2str(n1),',n_2=',num2str(n2)])
#O974f8 .2 SIU4[P axis([0 90 -3.5 3.5])
[j+0EVwB "ZPbK$+=yU grid on
YrcC" YU \t+/b