计算光波由光密入射到光疏介质时相位变化 Q1]Wo9j
v# F-<?Vv
clear BV1u,<T"
}<&d]N
close all 0E RsMnU'
C5;wf3
n1=1.45,n2=1; 5zVQ;;9
.R\p[rv&
theta=0:0.1:90; `-u7 I
QoWR@u6a
a=theta*pi/180; q0g1E Jar
Ck@M<(x
rp=(n2*cos(a)-n1*sqrt(1-(n1/n2*sin(a)).^2))./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); o?y"]RCM
-%i #j>
rs=(n1*cos(a)-n2*sqrt(1-(n1/n2*sin(a)).^2))./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); _Fxe|"<^
~b#OFnyG
tp=2*n1*cos(a)./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); bs P6\'\4
}Pm TR4F!}
ts=2*n1*cos(a)./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); 4 i`S +`#
j-6v2MH
arp=angle(rp); ^}hZ'<PK
{( !)P
ars=angle(rs); -$9~xX
,ex]$fQ'
atp=angle(tp); 5;(0 $4I
nzWQQ ra|?
ats=angle(ts); L^)qe^%3
s 6/cL|Ex
figure(1) )vQNiik#
9cz )f\
subplot(1,2,1); 0Nt%YP
ee^4KKsh\
plot(theta,arp,'-',theta,ars,'--','LineWidth',2) BvQUn@ XE
%z2oDAjX
legend('arg(r_p)','arg(r_s)') PU"S;4m
#w;;D7{@m
xlabel('\theta_i') *0\k
Z,#BJ
? R282l
ylabel('\phi') ET3 ,9+Gj
2^J/6R$
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) U 1jSUkqb
[WYJrk.
axis([0 90 -3.5 3.5]) c8q G\\t[
]| z")gOE
grid on %_)b>C18 y
/3s@6Ex}E
subplot(1,2,2); )%BT*)x
^(J-dK
plot(theta,atp,'-',theta,ats,'--','LineWidth',2) {o {#]fbO%
'z~KTDX
legend('arg(t_p)','arg(t_s)') 6# R;HbkO
=O,e97
xlabel('\theta_i') -CwWs~!
}FZp 840
ylabel('\phi') *5^ze+:
sI$:V7/!
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) N4s$.`
v >NTh
axis([0 90 -3.5 3.5]) IQ#So]9~Y
F;
0Dp
grid on ${e -ffyy
w2'
3S#nZ
