- 积分
- 70
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2016-3-16
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
想实现一个判别的过程,在某一区域风速>13.9m/s的时候绘制图像,否则不绘制图像,想用Grads直接画出来,但是IF语句那里出问题了,是不是我对IF的用法还不对,IF里面只能用 i=1.0 这种,而不能用 i>=1.0 呢?我的程序运行的时候还是没有筛选,还是一张一张的画图……抓狂
- year=1990
- while(year<=1990)
- 'reinit'
- 'clear'
- 'sdfopen G:\ECwinddata\wind\'year'.nc'
- it=1
- while(it<=1464)
- lo=105
- la=0
- while(lo<=130)
- while(la<=42.5)
- 'set lon 'lo''
- 'set lat 'la''
- 'define lv=mag(u10,v10)'
- 'd lv'
- if(lv>=13.9)then
- 'set lon 100 150'
- 'set lat 0 50'
- 'set mpdset hires'
- 'set poli on'
- 'set map 1 1 8'
- 'set t 'it''
- 'q time'
- time=subwrd(result,3)
- 'define v=mag(u10,v10)'
- 'H:\Data\Wind\define_colors.gs'
- 'set grads off'
- 'set gxout shaded'
- 'set clevs 8.0 10.8 13.9 17.2 20.8 24.5 28.5 32.7 37'
- 'set ccols 0 21 23 25 27 28 29 64 66 68'
- 'set csmooth on'
- 'set parea 0.5 7.5 0.5 10'
- 'd v'
- 'H:\Data\Wind\cbarn.gs'
- 'set grads off'
- 'set gxout contour'
- 'set clevs 8.0 10.8 13.9 17.2 20.8 24.5 28.5 32.7 37'
- 'set ccols 1'
- 'set csmooth on'
- 'd v'
- 'set gxout barb'
- 'set ccolor 1'
- 'd skip(u10*2.5,10);skip(v10*2.5,10)'
- 'draw title 'time''
- 'printim I:\wind\1990\'year'winpic'it'.bmp white'
- 'clear'
- la=50
- lo=150
- else
- la=la+0.25
- lo=lo+0.25
- endif
- endwhile
- endwhile
- it=it+1
- endwhile
- year=year+1
- endwhile
复制代码
|
|