Parent Directory | Revision Log | Revision Graph | Patch
revision 1.1 by adcroft, Tue Apr 3 17:50:14 2001 UTC | revision 1.2 by adcroft, Tue May 29 14:01:41 2001 UTC | |
---|---|---|
# | Line 0 | Line 1 |
1 | nx=128;ny=64; % Grid dimensions | |
2 | ||
3 | radi=30; % Radius of patch | |
4 | deltaPs=100; % Amplitude | |
5 | ||
6 | x=(0.5:nx)/nx*360; % 0 < x < 360 | |
7 | y=(0.5:ny)/ny*180-90; % -90 < y < +90 | |
8 | [X,Y]=ndgrid(x,y); | |
9 | ||
10 | h=deltaPs*0.5*(1-cos(max(Y-90+radi,0*Y)/radi*pi)); % Horizontal structure | |
11 | h=h*deltaPs/max(max(abs(h))); % Re-scale to give max val | |
12 | ||
13 | fid=fopen('ps.init','w','b'); | |
14 | fwrite(fid,h,'real*8'); | |
15 | fclose(fid); |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |