利用菲涅尔公式计算光波在两种介质表面折反射率及折反射能流密度 #_E8>;)k
%S^`/Snv"
1、光疏射向光密 TX>;2S3q
982$d<0%
clear 68y.yX[
\R<yja
close all h*d,AJz &.
sLTf).xh
n1=1,n2=1.45; p])km%zB(
L$b9|j7
theta=0:0.1:90; ^I0SfZ'Y
S2*:]pYf}
a=theta*pi/180; ! yxb<
EU+sTe >
rp=(n2*cos(a)-n1*sqrt(1-(n1/n2*sin(a)).^2))./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); {>z.y1
u4S3NLG)
rs=(n1*cos(a)-n2*sqrt(1-(n1/n2*sin(a)).^2))./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); &8;mcM//4
qg>i8V
tp=2*n1*cos(a)./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); 3{%/1>+x5
'g^]ZTxb
ts=2*n1*cos(a)./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); #*9*[Xbi
&v:iC
u^|
figure(1) lu >>~vy6
FSM~Rl
subplot(1,2,1); t*DM^.@
q)P<lKi
plot(theta,rp,'-',theta,rs,'--',theta,abs(rp),':',theta,abs(rs),'-.','LineWidth',2) #[A/zH|xvV
mb&b