计算光波由光密入射到光疏介质时相位变化 OW$ ?
6
jU
K0?S>
clear 'W0?XaEk-
~i&Lc 7Xl
close all h9Zf4@w
'k2Z$+
n1=1.45,n2=1; JpuF 6mQ
~ $I2{I#W
theta=0:0.1:90; "+^d.13+]
G(piq4D
a=theta*pi/180; C`|'+
{.
r/tV5IH
rp=(n2*cos(a)-n1*sqrt(1-(n1/n2*sin(a)).^2))./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); jtWI@04o09
!Pmv
rs=(n1*cos(a)-n2*sqrt(1-(n1/n2*sin(a)).^2))./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); =1D* JU
Epm'u[wV
tp=2*n1*cos(a)./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); S&BJR!FQ
n
ETm"
ts=2*n1*cos(a)./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); [&mY W.O<
|
?Js)i
arp=angle(rp); ^s'ozCk 0
-:txmM T
ars=angle(rs); UH8)r
8YI.f
atp=angle(tp); VN=S&iBa/
GvQ|+vC
ats=angle(ts); sePOW#|
E|2klA^+*
figure(1) }<Y3 jQnl
!/0XoIf"
subplot(1,2,1); xe)< )y
c9e
}P
plot(theta,arp,'-',theta,ars,'--','LineWidth',2) r>lC(x\B
MmOGt!}9A
legend('arg(r_p)','arg(r_s)') +M9= KVr
_tE$a3`
xlabel('\theta_i') J[<3Je=>$
yc,Qz.+g
ylabel('\phi') o5+N_5OE}E
htg+V-,
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) rnxO2
-0| '{
axis([0 90 -3.5 3.5]) A0*u(15%
8a{FxCBw
grid on Vxif0Bx&/d
8xUmg&
subplot(1,2,2); v ~7 3
L QYT/
plot(theta,atp,'-',theta,ats,'--','LineWidth',2) Fs:l"5~>1
RB'12^[
legend('arg(t_p)','arg(t_s)') Py 8o8* H
di6A.N5A
xlabel('\theta_i') n?@o:c5,r
<_""4
ylabel('\phi') B\bIMjXV
/IVw}:G
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) AX8; x1t^.
1p,G8 v+B
axis([0 90 -3.5 3.5]) 0-Xpq,0
avls[Bq
grid on <R~(6krJwZ
$Vp&Vc8
