ex.m

当波导和介质偶合时,计算波传导过程中的透过率,反射率.

% this is used for caculating S and exp for beam propagation

function [pexp,nexp,s]=ex(V,d,nsize,delz) 

jone=complex(0,1) ;

for i=1:nsize
 e1(i,i)=exp(sqrt(d(i,i))*jone*delz) ;
end
pexp=V*e1/V ;

for i=1:nsize
 e2(i,i)=exp(-sqrt(d(i,i))*jone*delz) ;
end
nexp=V*e2/V ;

s=V*sqrt(d)/V ;