NRW NRW方法提取超材料的电磁参数

NRW方法提取超材料的电磁参数，并包含两篇相关文献

%function CSTRst_X（RstFileNameDataFileNameIniFileNameCstfilename） 
%Cstfilename = ‘S_X.s2p‘; 
%RstFileName = ‘S_X.txt‘; 
%DataFileName = ‘Rst_x.txt‘; 
%IniFileName = ‘iniPara.vol‘; 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
DPreproc（CstfilenameRstFileName）;  %CST分析结果预处理操作 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
S = load（RstFileName）; 
s11 = S（:1:3）; 
index_S = [1 4 5]; 
s21 = S（:index_S）; 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
[dareaper]=DataGet（IniFileName）;    %获取沿电磁波入射方向材料单胞厚度参数d 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
fre=s11（: 1）*1e9; 
C=3e8; 
lamda=C./fre; 
k=2*pi./lamda; 
n=zeros（size（fre））; 
S11=s11（: 2）.*exp（1i*（s11（:3）*pi/180））; 
S21=s21（: 2）.*exp（1i*（s21（:3）*pi/180））; 
Z=zeros（size（fre））; 
Z1=sqrt（（（1+S11）.^2-S21.^2）./（（1-S11）.^2-S21.^2））;     %

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件    1016101  2013-11-19 16:46  NRW方法2.pdf

     文件       3730  2013-10-23 14:36  NRW.m

     文件     139106  2013-10-23 14:33  NRW方法1.pdf

----------- ---------  ---------- -----  ----

              1158937                    3