root/library/tests/testsuite/egiw_support_gen.m

Revision 1189, 441 bytes (checked in by smidl, 14 years ago)

new tests of egiw

Line 
1function egiw_support_gen
2
3Sup=cell(1,25*25*25);
4ii = 1;
5for i=[0.01:0.1:4]
6    for j=[0.01:0.1:5]
7%        detm = i*j-kk
8        kmax = sqrt(i*j)-1e-10;
9        kstep = 2*kmax/25;
10        for k = -kmax:kstep:kmax
11            Sup{ii} = [i,k,k,j];
12            Vol(ii) = 0.1*0.1*kstep;
13            ii=ii+1;
14            %D(ii)=            det([i,k;k,j]);
15        end
16    end
17end
18
19m.s=Sup;
20m.v=Vol;
21mxstruct2config(m,'egiw_support.cfg')
22keyboard
Note: See TracBrowser for help on using the browser.