- 积分
- 4170
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2017-6-6
- 最后登录
- 1970-1-1

|

楼主 |
发表于 2017-11-25 21:27:24
|
显示全部楼层
'reinit'
'sdfopen E:\grads\era.nc'
'set grads off'
'set mpdset hires'
'set map 15 1 1'
'set lev 500'
'set lat 55 65'
'set lon 105 120'
'set t 12'
'd z'
*******计算低压中心的经纬度
'define loa=minloc(min(z,lat=59,lat=61),lon=112,lon=114)'
'define lab=minloc(min(z,lon=112,lon=114),lat=59,lat=61)-90'
*******提取低压中心的经纬度
'd loa'
a=sublin(result,1)
lo=subwrd(a,4)
'd lab'
c=sublin(result,1)
la=subwrd(c,4)
******
'q w2xy 'lo' 'la''
xx=subwrd(result,3)
yy=subwrd(result,6)
***转换到图中的xy坐标
'draw mark 3 'xx' 'yy' 0.1'
'draw string 'xx' 'yy' D'
***在低压中心标点
'printim E:\grads\123.png white'
; |
|