Parent Directory | Revision Log | Revision Graph | Patch
revision 1.1 by adcroft, Mon Mar 22 16:22:04 1999 UTC | revision 1.2 by adcroft, Wed May 5 18:32:39 1999 UTC | |
---|---|---|
# | Line 42 z=-dz/2:-dz:-H; | Line 42 z=-dz/2:-dz:-H; |
42 | Q=Qo*(1+0.01*rand([nx,ny])); | Q=Qo*(1+0.01*rand([nx,ny])); |
43 | r=sqrt(X.^2+Y.^2); | r=sqrt(X.^2+Y.^2); |
44 | %% Q( find(r>L) )=0; | %% Q( find(r>L) )=0; |
45 | f77write('Qnet.circle',Q,'real*8','b'); | fid=fopen('Qnet.circle','w','b'); fwrite(fid,Q,'real*8'); fclose(fid); |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |