利用菲涅尔公式计算光波在两种介质表面折反射率及折反射能流密度
LofpBO6^
J6[}o4Z
1、光疏射向光密 "b402"&
\s%g'g;
clear 'Kk/
J+6U
Y(t/=3c[
close all :8(jhs
&',#j]I
n1=1,n2=1.45; :1Nc6G
Cu5_OJ
theta=0:0.1:90; @D=B5f@(o
w+"E{#N
a=theta*pi/180; q_6lD~~q^
{ TI,|'>5[
rp=(n2*cos(a)-n1*sqrt(1-(n1/n2*sin(a)).^2))./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); *+zFsu4l
)sW!s3>S>
rs=(n1*cos(a)-n2*sqrt(1-(n1/n2*sin(a)).^2))./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); 2z*}fkJ
m_Pk$Vwx
tp=2*n1*cos(a)./(n2*cos(a)+n1*sqrt(1-(n1/n2*sin(a)).^2)); Zo-,TKgY'
jI'?7@32`
ts=2*n1*cos(a)./(n1*cos(a)+n2*sqrt(1-(n1/n2*sin(a)).^2)); q6N{N>-D
yZ 7)|j
figure(1) CVvl &on
B8eZ}9X
subplot(1,2,1); oexTz[
u:']jw=f
plot(theta,rp,'-',theta,rs,'--',theta,abs(rp),':',theta,abs(rs),'-.','LineWidth',2) 'zav%}b]L
0<:rp]<,
legend('r_p','r_s','|r_p|','|r_s|') Y[vP]7-
x${C[gxq9F
xlabel('\theta_i') 0C.5Qx
xOPQ~J|z
ylabel('Amplitude') <{8x-zbR+
ppRA%mhZ
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) ~Er0$+q=Y;
cWyf04-?
axis([0 90 -1 1]) lwfM>%%N
ks sRwe%>;
grid on QnOs8%HS-
n|? sNM<J3
subplot(1,2,2); 5x|$q kI
IJKdVb~
plot(theta,tp,'-',theta,ts,'--',theta,abs(tp),':',theta,abs(ts),'-.','LineWidth',2) n:B){'S
)X," NJG
legend('t_p','t_s','|t_p|','|t_s|') 5FuV=Y uc
w)* H&8h@
xlabel('\theta_i') Du
+_dr^4
Xs|d#WbX
ylabel('Amplitude') :R
+BC2x
g]JRAM
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) @`+\vmfD
[kpQ:'P3
axis([0 90 0 1]) 0sA`})Dk
M:(.aEe
grid on /eU\B^k
{>vgtk J
Rp=abs(rp).^2; ?7TmAll<.s
k%u fgHl!
Rs=abs(rs).^2; uH?4d!G
J @~g>
Rn=(Rp+Rs)/2; a#+$.e5
nu:l;+,VY
Tp=1-Rp; 3N!v"2!#
y${`W94
Ts=1-Rs; [_`yy
nh0gT>a>@
Tn=(Tp+Ts)/2; mXhC-8P
^i8biOSZu
figure(2) !5h-$;
AxH`4=3<
subplot(1,2,1); \v+c.
Nxl#]
plot(theta,Rp,'-',theta,Rs,'--',theta,Rn,':','LineWidth',2) x5xMr.vm
G5OGyQp
legend('R_p','R_s','R_n') oiR9NB&<
l&e{GHz
xlabel('\theta_i') %"oGJp
YahW%mv`d
ylabel('Amplitude') x!W5'DO
G9xO>Xp^Al
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) Het>G{
6Y6t.j0vN.
axis([0 90 0 1]) gBWr)R
a%a0/!U[
grid on !mWm@}Ujg
9bRUN<
subplot(1,2,2); \(=xc2
TG8 U=9qt
plot(theta,Tp,'-',theta,Ts,'--',theta,Tn,':','LineWidth',2) gaNe\
hT_Q_1,
legend('T_p','T_s','T_n') S76MY&Vx23
pRxVsOb
xlabel('\theta_i') DzA'MX
7rbw_m`12-
ylabel('Amplitude') K?e16;
%dr*dA'
title(['n_1=',num2str(n1),',n_2=',num2str(n2)]) P0_Ymn=&