'subwrd' not a variable or function,哪有错误呢？

may6117

'define es=6.112*exp(17.67*(TMPprs-273.15)/(TMPprs-29.65))'
'define qs=0.62197*es/(lev-0.378*es)*1000'
'define q=qs*RHprs/100.0'
'define qx=q*UGRDprs/9.8'
'define qy=q*vGRDprs/9.8'
'define qdiv=hdivg(qx,qy)'
'set lon 98 118'
'set lat 35 48'
'd qdiv*1e6'

'q w2xy 40.8 111.7'                  
x=subwrd(result,3)            
y=subwrd(result,6)     
'draw string 'x' 'y' H'
'q w2xy 40.8 111.7'                     
x=subwrd(result,3)           
y=subwrd(result,6)
'draw mark 3 'x' 'y' 0.1'

四叶草

q w2xy 用法错误，应该是'q w2xy 111.7 40.8'                  

may6117

四叶草 发表于 2015-10-30 12:02
q w2xy 用法错误，应该是'q w2xy 111.7 40.8'

这个注意到了，改了还是不标记字符串和标记

四叶草

may6117 发表于 2015-10-30 15:20
这个注意到了，改了还是不标记字符串和标记

把你的gs全部贴出来看看

may6117

'reinit'
'open D:\NCEP\xm\20090728\fnl_20090727.ctl'
'set mpdset hires cnworld'
'set map 1 1 1'
*'set mpdset neimenggu neimengguq'

i=1
while (i<=12)
'set t ' i
'set lon 90 135'
'set lat 30 55'
'set lev 850'
'set xlopts 1 1 0.2'
'set ylopts 1 1 0.2'
'set grads off'
'set grid off'
*'set xlopts -10'
*'set ylopts -10'
'set cthick 6'
'set ccolor 1'
'set gxout contour'
'set cint 10'
'set ccolor 1'
'set cthick 6'
'set clopts 1 6 0.12'

'define es=6.112*exp(17.67*(TMPprs-273.15)/(TMPprs-29.65))'
'define qs=0.62197*es/(lev-0.378*es)*1000'
'define q=qs*RHprs/100.0'
'define qx=q*UGRDprs/9.8'
'define qy=q*vGRDprs/9.8'
'define qdiv=hdivg(qx,qy)'


'set lon 98 118'
'set lat 35 48'
'd qdiv*1e6'

'q w2xy 111.7 40.8'                    
x=subwrd(result,3)            
y=subwrd(result,6)
'draw string 'x' 'y' H'
'q w2xy 40.8 111.7'                     
x=subwrd(result,3)            
y=subwrd(result,6)
'draw mark 3 'x' 'y' 0.1'
'q time'
    res = subwrd(result,3)
    year= substr(res,9,4)
     'q time'
     res = subwrd(result,3)
     hour = substr(res,1,2)
     say hour
     'q time'
     res = subwrd(result,3)
     day=substr(res,4,2)
     say day
     'q time'
     res = subwrd(result,3)
     month=substr(res,6,3)
     say month
'set strsiz 0.3 0.3'
'set string 1 c 6'
'draw title 'year'.'month'.'day'.'hour' 850hPa qdiv'
'printim  D:\NCEP\xm\result\'year'.'month'.'day'.'hour'.qdiv850.png white'
'c'
i=i+1
endwhile
;

may6117

落下了
i=i+1
endwhile
;

四叶草

may6117 发表于 2015-10-30 16:13
'reinit'
'open D:\NCEP\xm\20090728\fnl_20090727.ctl'
'set mpdset hires cnworld'

在'draw string 'x' 'y' H'前加
'set line 1'
这个命令试试，有可能是你标记的字符串、字符颜色和底图一样，所以显示不出来。

mumululu

不懂啊

a1s2d3

和楼主同样的错误，所以楼主当时是咋解决的？

冋菿{棉花糖}

a1s2d3 发表于 2022-3-30 16:57
和楼主同样的错误，所以楼主当时是咋解决的？

要放在脚本里面使用，不加引号