求助！！！求助！！！求助！！！

若...初

画站点图的时候，地图可以出来，但是点画不上去，出错的问题是：No scaling environment。不知道gs编写哪里错了。
'open f:\sea-ice\station\grid.ctl'
'enable print f:\china-ci\qshi-CI-var-1998.gmf'
'set parea 0 8.0 5.0 8.5'
'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'
'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'
'draw map'
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
say result
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')

求大神赐教。

若...初

求赐教赐教赐教赐教！！！！！！！

若...初

求赐教赐教赐教赐教！！！！！！！