计算光波由光密入射到光疏介质时相位变化 h=4m2m
u!nt0hS
clear im l*+t
g@nk0lQewj
close all NEZF q?
LjXtOF
n1=1.45,n2=1; <g,k[
Qkqn~>
theta=0:0.1:90; f]5bAs
QsDa b4
a=theta*pi/180; V85a{OBm,8
3Luv$6
rp=(n2*cos(a)-n1*sqrt(1-(n1/n2*sin(a)).^2))./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); Um15@p;
,X\ z# B
rs=(n1*cos(a)-n2*sqrt(1-(n1/n2*sin(a)).^2))./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); 4_t
aCK
EE&~D~yHUL
tp=2*n1*cos(a)./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); 6Om-[^
? b8NEVjw
ts=2*n1*cos(a)./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); X^9_'T9
.1|'9@]lj4
arp=angle(rp); $j{ynh)^
66)@4 3V
ars=angle(rs); s/sH",
3QUe:8
atp=angle(tp); }tv-
)zUV6U7v
ats=angle(ts); p$ [*GXR4
qg.[M *
figure(1) r7ywK9UL
sd8o&6
subplot(1,2,1); A7|"0*62
,Z>Rv Ll
plot(theta,arp,'-',theta,ars,'--','LineWidth',2) |.(o4<nx.
v
l{hE~
legend('arg(r_p)','arg(r_s)') J4lE7aFDA~
@[
:s P
xlabel('\theta_i') !k<+-Lf:2
kmov( V
ylabel('\phi') :?RK>}4|F
s|,gn 5
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) KM0#M'dXy
sSD(mO<(
axis([0 90 -3.5 3.5]) 7qW:^2y
uVscF
4
grid on M"p $9t
V!}, a@>p
subplot(1,2,2); um3
M4>K
1u XtBk6
plot(theta,atp,'-',theta,ats,'--','LineWidth',2) N.-Ryj&9
te:"1:e
legend('arg(t_p)','arg(t_s)') Tm3$|+}$f
UdL`. D ,
xlabel('\theta_i') =C#,aoa!
)-jvp8%BK
ylabel('\phi') >Q5 SJZ/
^@[[,1"K
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) })!n1k t
aL=VNZ!Pqc
axis([0 90 -3.5 3.5]) }JlQQ
>Q+EqT
grid on /
m?Z!
{v`wQM[
