root/library/tests/testsuite/egiw_support_gen.m
@
1189
Revision 1189, 441 bytes (checked in by smidl, 14 years ago) |
---|
Rev | Line | |
---|---|---|
[1189] | 1 | function egiw_support_gen |
2 | ||
3 | Sup=cell(1,25*25*25); | |
4 | ii = 1; | |
5 | for 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 | |
17 | end | |
18 | ||
19 | m.s=Sup; | |
20 | m.v=Vol; | |
21 | mxstruct2config(m,'egiw_support.cfg') | |
22 | keyboard |
Note: See TracBrowser
for help on using the browser.