利用菲涅尔公式计算光波在两种介质表面折反射率及折反射能流密度 J|q_&MX/
iTvCkb48m
1、光疏射向光密 sP
|i'
8UcT?Zp
clear u^uG_^^,/
K!~](_W!
close all # 0(\s@r.
Uwk|M?94
n1=1,n2=1.45; [<;2 C
!R@4tSu
theta=0:0.1:90; /km3L7L%R
f#nmr5F
a=theta*pi/180; y_&XF>k91
h:NXO'
rp=(n2*cos(a)-n1*sqrt(1-(n1/n2*sin(a)).^2))./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); u5_fM*Ka
5S?yj
rs=(n1*cos(a)-n2*sqrt(1-(n1/n2*sin(a)).^2))./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); 3Cl9,Z"&6$
5=986ci$U
tp=2*n1*cos(a)./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); [ub\DLl
a40BisrD~6
ts=2*n1*cos(a)./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); #*/h*GNMs
:<gk~3\
figure(1) c53`E U
hdL2`5RFF
subplot(1,2,1); t_dg$KB
( -@>
plot(theta,rp,'-',theta,rs,'--',theta,abs(rp),':',theta,abs(rs),'-.','LineWidth',2) M[{:o/]<
J5T#}!f
legend('r_p','r_s','|r_p|','|r_s|') aB)DX
A{%;Hd`0/
xlabel('\theta_i') >>Di
A'8K^,<