Warning, /utils/matlab/Graphix/ZcordA_FizhiZ30.m is written in an unsupported language. File is not indexed.
view on githubraw file Latest commit 396a67bf on 2005-10-20 16:48:21 UTC
396a67bf7f Dani*0001 nklev=30;
0002 ZC=zeros(1,nklev);
0003 ZF=zeros(1,nklev+1);
0004 drC = [3500.*ones(1,28),1000.*ones(1,2)];
0005 ZC(1)=100000.-(0.5*drC(1));
0006 ZF(1)=100000.;
0007 for klev=2:nklev;
0008 ZC(klev)=ZC(klev-1)-(0.5*(drC(klev)+drC(klev-1)));
0009 ZF(klev)=ZF(klev-1)-drC(klev-1);
0010 end
0011 ZF(nklev+1)=ZF(nklev)-drC(nklev);
0012 drF = ZF(1:nklev)-ZF(2:nklev+1);
0013 save('ZcordA_FizhiZ30.mat','ZC','ZF','drC','drF');
