光波在介质中界面上的反射及透射特性的仿真程序

holdonendlegend('Frp')elsesubplot(1,3,1)qc=asin(n2./n1);qa=0:0.0001:qc;qb=asin(n1.*sin(qa)./n2);rs=-sin(qa-qb)./sin(qa+qb);rp=tan(qa-qb)./tan(qa+qb);ts=2.*cos(qa).*sin(qb)./sin(qa+qb);tp=2.*cos(qa).*sin(qb)./sin(qa+qb)./cos(qa-qb);