grads画台风路径的gs

Ｏrz

'reinit'
'open d:/2014/fnl.ctl'
'set parea 1 11 1 8'
'set grads off'
'set lat 0 40'
'set lon 100 160'
'set grads off'
'set grid off'
'set cmin 10000'
'set xlopts 1 0.1 0.16'
'set ylopts 1 0.1 0.16'
'd ugrdprs'
*****************台风文件路径
filename='d:/201409.txt'
*****************
i=1
strong1=1
c1=1
c2=1
c3=1
c4=1
c5=1
c6=1
***********************************把初始点的经纬度
lat0=8.8
lon0=152.3
'q w2xy 'lon0' 'lat0
x0=subwrd(result,3)
y0=subwrd(result,6)
while(1)
info=read(filename)
code=sublin(info,1)
if(code!=0)
break
endif
info=sublin(info,2)
latty=subwrd(info,3)*0.1
lonty=subwrd(info,4)*0.1
tim=subwrd(info,1)
wind=subwrd(info,6)
strong0=subwrd(info,2)
'q w2xy 'lonty' 'latty
x=subwrd(result,3)
y=subwrd(result,6)
'set string 2 l 2 0'
'set strsiz 0.15 0.15'
**************************************
************************************
if(strong0=1)
'set line 4 1 6'
endif
if(strong0=2)
'set line 9 1 6'
endif
if(strong0=3)
'set line 7 1 6'
endif
if(strong0=4)
'set line 8 1 6'
endif
if(strong0=5)
'set line 6 1 6'
endif
if(strong0=6)
'set line 2 1 6'
endif
**************************************
'draw line 'x0' 'y0' 'x' 'y
x0=x
y0=y

i=i+1
endwhile
****************************************
'set string 4'
'draw string  9 7 TD '
'set line 4'
'draw line 8.2 7 8.6 7'

'set string 9'
'draw string 9 6.8 TS'
'set line 9'
'draw line 8.2 6.8 8.6 6.8'

'set string 7'
'draw string 9 6.6 STS'
'set line 7'
'draw line 8.2 6.6 8.6 6.6'

'set string 8'
'draw string 9 6.4 TY'
'set line 8'
'draw line 8.2 6.4 8.6 6.4'

'set string 6'
'draw string 9 6.2 STY'
'set line 6'
'draw line 8.2 6.2 8.6 6.2'

'set string 2'
'draw string 9 6.0 SuperTY'
'set line 2'
'draw line 8.2 6.0 8.6 6.0'
****************************************
'printim d:/track.png white'
;

葱儿

不错不错，正好要用

葱儿

有没有用fotran转换CMA数据成成grd的程序

tanshuai

葱儿 发表于 2015-10-25 20:16
有没有用fotran转换CMA数据成成grd的程序

这个还真不知道

百年孤独

我想问下楼主，路径数据在哪下载啊

tanshuai

百年孤独 发表于 2015-12-2 11:59
我想问下楼主，路径数据在哪下载啊

度娘   热带气旋最佳路径数据；
还有个办法，在知网找一些台风的论文，一般论文里作者都是写明数据来源

tanshuai

我貌似好久好久没有画过图了，看来得重新学习一下了，不能把这项技能给丢了

百年孤独

tanshuai 发表于 2015-12-2 13:43
度娘   热带气旋最佳路径数据；
还有个办法，在知网找一些台风的论文，一般论文里作者都是写明数据来源

好的，谢谢

seanmichael

好棒~谢谢楼主！！

liutong

有ctl文件吗？能不能发个ctl呢