计算光波由光密入射到光疏介质时相位变化 x5rLGt
oiD{Z
clear kjXwVGK=P<
r`RLDN!`
close all 1=` V aS
>;VZB/ d
n1=1.45,n2=1; o`
dQ
n wqA\
theta=0:0.1:90; 9} tl @
sD&V_
&i
a=theta*pi/180; LB9W.c A
C}DIm&))
rp=(n2*cos(a)-n1*sqrt(1-(n1/n2*sin(a)).^2))./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); ] ;CJ6gM~
'/A X 'U8Y
rs=(n1*cos(a)-n2*sqrt(1-(n1/n2*sin(a)).^2))./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); *O\lR-z!k
>+>N/`BG
tp=2*n1*cos(a)./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); \~t!M~H
1'8-+ ?r
ts=2*n1*cos(a)./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); ,mC=MpfzJ
/-WmOn*
arp=angle(rp); ?{5}3a bB`
lvNi/jk
ars=angle(rs); 4gWlSm)
S/RChg_L5
atp=angle(tp); e ~cg
(.
>$)~B 4
ats=angle(ts); [,MK)7DU
*/K]sQZa
figure(1) 2v#gCou
UnE gsf N
subplot(1,2,1);
/<%L&
5r~hs6H
plot(theta,arp,'-',theta,ars,'--','LineWidth',2) s#")hMJQ
iun_z$I<+Z
legend('arg(r_p)','arg(r_s)') 4Tx.|
dO,; k +
xlabel('\theta_i') <U\8&Uv>
>J_ P[v
ylabel('\phi') XD_!5+\H1
|`{$E go:
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) 6:`[ Fi
Gi2Fjq/Y
axis([0 90 -3.5 3.5]) 2~B5?(g
%=\*OIhl
grid on ? du*ITim
h (4\k?C5
subplot(1,2,2); ~ t N/
dxtG3
plot(theta,atp,'-',theta,ats,'--','LineWidth',2) +4rd
N\.
"}H2dn2n
legend('arg(t_p)','arg(t_s)') 8s-X H
OK47Q{.gh
xlabel('\theta_i') J |U FuD
*& R|0I{>
ylabel('\phi') {MDM= ;WP_
nNnfcA&W
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) uK1VFW
P_75-0G
axis([0 90 -3.5 3.5]) d 3#e7rQ8
HEhBOER?
grid on YQD/vc~8G
s'IB{lJ9
