求大神帮忙，请问这个程序哪里有错？（grads2.1运行出不了图）

青衣

'reinit'
'sdfopen d:\zl07\uwnd.2016.nc'
'sdfopen d:\zl07\vwnd.2016.nc'
'set xlopts 1 6 0.15 '           
'set ylopts 1 6 0.15 '
*'set clab forced'
'set clopts 1 6 0.12'
'set lon 90 120'
'set lat 20 40'
'set lev 850'
'set timelab off'
it=1
while(it<=32)
'set t 'it
'q time'
str=sublin(result,1)
str1=subwrd(str,3)
'set grads off'
'set cthick 8'
'set ccolor 0'
'd hdivg(uwnd,vwnd.2)'
'set map 8 1 4'
'draw map'
'draw title _'str1''
*'printim d:\zl07\850_'str1'.gif white'
'c'
it=it+1
endwhile
'set display color white'
'reinit'
'gxprint d:\zl07\850div.png'

运行不出来结果。求大神帮忙看看。。

lanlaniris

你要把错误提示贴上来

Iron_Lee

这个程序应该是可以出图的
我看你把'printim d:\zl07\850_'str1'.gif white'给*掉了
然后'gxprint d:\zl07\850div.png'在'reinit'之后了，都clear了怎么能图片能保存
我觉的你把'printim d:\zl07\850_'str1'.gif white'的输出图片的格式改成png
然后不把它*掉应该就可以了

青衣

Iron_Lee 发表于 2016-7-10 08:51
这个程序应该是可以出图的
我看你把'printim d:\zl07\850_'str1'.gif white'给*掉了
然后'gxprint d:\zl0 ...

非常谢谢，我按你的方法修改了，已经可以出图，但出来32张图都是一样的，不知道会不会是nc文件的原因呢？

someday

'set t 'it
这句引号补全

Iron_Lee

青衣 发表于 2016-7-10 11:29
非常谢谢，我按你的方法修改了，已经可以出图，但出来32张图都是一样的，不知道会不会是nc文件的原因呢？

这个看你可以不做循环 ，set两个不同的t看看不同时刻的图是不是一样的。  如果一样的，那就可能是nc文件就是这样。  如果不一样，可能循环的符号或者小细节错了，再检查一样。