出现No scaling environment问题如何解决？！

若...初

画站点图的时候出现No scaling environment问题，不知道如何解决。
'open f:\sea-ice\station\grid.ctl'
'enable print f:\china-ci\qshi-CI-var-1998.gmf'
'set parea 0 8.0 4.7 8.3'
'set grads off'
'set grid on'
'set map 1 1 6'
'set lon 70 140'
'set lat 17 55'
'set xlopts 1 6 0.18'
'set ylopts 1 6 0.18'
'set xlab on'
'set ylab on'
'set xlint 10'
'set ylint 10'
'set font 0'

a1=0
i=0
while (a1=0)
rst=read('f:\china-CI\qshi-var-1998.dat')
a1=sublin(rst,1)
if(a1=0)
a2=sublin(rst,2)
zh=subwrd(a2,1)
lo=subwrd(a2,2)
la=subwrd(a2,3)  
b=subwrd(a2,4)
'q w2xy 'lo' 'la
ex = subwrd(result,3)
ey = subwrd(result,6)
if(b>-0.15&b<0.0)  
'set line 88 1 6'
'draw mark 3 'ex' 'ey' 0.04'
endif
if(b<0.15&b>0.0)  
'set line 87 1 6'
'draw mark 3 'ex' 'ey' 0.04'
endif
if(b>-0.30&b<=-0.15)  
'set line 89 1 6'
'draw mark 3 'ex' 'ey' 0.045'
endif
if(b>=0.15&b<0.30)  
'set line 86 1 6'
'draw mark 3 'ex' 'ey' 0.045'
endif
if(b>-0.45&b<=-0.30)  
'set line 90 1 6'
'draw mark 3 'ex' 'ey' 0.05'
endif
if(b<0.45&b>=0.30)  
'set line 84 1 6'
'draw mark 3 'ex' 'ey' 0.05'
endif
if(b<=-0.45)  
'set line 91 1 6'
'draw mark 3 'ex' 'ey' 0.055'
endif
if(b>=0.45)  
'set line 83 1 6'
'draw mark 3 'ex' 'ey' 0.055'
endif
endif
i=i+1
endwhile
rst=close('f:\china-ci\qshi-var-1998.dat')
'set gxout shaded'
'set rgb 83 8 27 245'
'set rgb 84 8 88 245'
'set rgb 86 8 143 245'
'set rgb 87 8 197 245'
'set rgb 88 245 227 8'
'set rgb 89 245 172 8'
'set rgb 90 245 131 8'
'set rgb 91 245 56 8'
'set ccols 83 84 86 87 88 89 90 91'
'set mpdset mres'
'set mpdraw on'
'draw map'
'print'

say a2没有问题，是对的，但是say result就出现No scaling environment问题，不知道是grid.ctl的问题还是dat文件里经纬度小数太多的问题。
求大神赐教。

若...初

怎么没人呢？

若...初

为什么没有大神理我呢

qxjy009

http://bbs.06climate.com/forum.php?mod=viewthread&tid=10397,
我也正遇到这个问题，在论坛里找到答案了