- 积分
- 540
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2015-3-19
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 wk1021 于 2015-4-25 07:56 编辑
继承上次的ctl文件不能打开的问题之后,现在出现了新的问题~~~gs文件编写如下,照着论坛里的台风路径的gs自己修改的一个程序:
'open e:\2.ctl' ;
i=1
while (i<13)
'set t ' i
t=subwrd(result,4)
tc=substr(t,8,5)
'd sp'
'define locx=minloc(min(sp,lat=15,lat=35),lon=110,lon=135)'
'define locy=minloc(min(sp,lon=110,lon=135),lat=15,lat=35)'
'd locx'
locxx=subwrd(result,4)
'd locy'
locyy=subwrd(result,4)
'q gr2w 'locxx' 'locyy ;
x=subwrd(result,3)
y=subwrd(result,6)
'set x 'locxx
'set y 'locyy
minslp=subwrd(result,4)
rc=write('E:\position.txt',x ' 'y ''minslp' ' tc,append) ;
*say rc
i=i+1 ;
endwhile
close('E:\position.txt') ;
'!cp position.txt position1.txt'
'reinit' ;
'open e:\2.ctl'
'set mproj latlon'
'set mpdset hires' ;
'set lon 110 135' ;
'set lat 15 35'
'set cmax -200' ;
'set xlint 2' ;
'set ylint 2' ;
'set xlopts 1 4 0.22' ;
'set ylopts 1 4 0.20' ;
'set clopts -1 -1 0.20' ;
'd sp' ;
read_file=read('E:\position1.txt') ;
read_line=sublin(read_file,2) ;
lon0=subwrd(read_line,1) ;
lat0=subwrd(read_line,2) ;
date0=subwrd(read_line,3) ;
'q w2xy ' lon0 ' ' lat0 ;
x0=subwrd(result,3) ;
y0=subwrd(result,6) ;
'draw mark 3 'x0' 'y0' 0.12' ;
'set string 2 '
'set strsiz 0.080 0.080' ;
'draw string 'x0-0.1' 'y0+0.2' 'date0''
i=1
while(i<=2000) ;
xbefore=x0
ybefore=y0
read_file=read('E:\position.txt')
read_code=sublin(read_file,1) ;
if(read_code>0);break;endif;
read_line=sublin(read_file,2) ;
lon0=subwrd(read_line,1) ;
lat0=subwrd(read_line,2) ;
date0=subwrd(read_line,3) ;
'q w2xy ' lon0 ' ' lat0 ;
x0=subwrd(result,3) ;
y0=subwrd(result,6) ;
'draw title 0808 "TIANCHENG" track by 20121508018 zx'
'draw mark 3 'x0' 'y0' 0.12'
'draw line 'xbefore' 'ybefore' 'x0' 'y0''
'draw string 'x0-0.1' 'y0+0.2' 'date0'';
i=i+1
endwhile
'printim E:\typhoon.gif x400 y300' ;
'print'
'disable print
现在出现了以下的情况,sp是不合理的变量描述,“position.txt” can not stat
但是E盘里面生成了position.TXT文件,是这样的
,请问如何解决?谢了!
|
-
|