grads 循环 while if

蚊子

run grads 没反应 也没出图。感觉陷入无限循环。

蚊子

问题已解决，if（i=）
不过不明白 while(1<=t<=12)会陷入无限循环
                while（t<=12）就不会

蚊子

应该是while（1<=i<=2）
         while(i<=12)

香草拿铁

楼主下次提问的时候麻烦不要把文件作为附件上传，直接贴出来吧

蚊子

香草拿铁 发表于 2017-10-1 11:28
楼主下次提问的时候麻烦不要把文件作为附件上传，直接贴出来吧

好的好的好的好的好的好的
'reinit'
'open e:\example\exam4\2.ctl'
'set lon -90 90'
'set lat -30 60'
'set lev 500'
'set grads off'
'set grid off'
i=1
while (i<=12)
  'set t 'i
  if (i=1)
    'set parea 1 6 0.5 3'
    'set xlab on'
    'set ylab on'
    'set gxout shaded'
    'd slp'
    'set gxout stream'
    'set strmden 1'
    'set ccolor 0'
    'display uwnd;vwnd'
  endif
  if (i=12)
    'set parea 1 6 3 5.5'
    'set xlab off'
    'set ylab on'  
    'set gxout shaded'
    'd slp'
    'set gxout stream'
    'set strmden 1'
    'set ccolor 0'
    'display uwnd;vwnd'
    'draw ylab YJ'
  endif
  if (i=11)
    'set parea 1 6 5.5 8'
    'set xlab off'
    'set ylab on'
    'set gxout shaded'
    'd slp'
    'set gxout stream'
    'set strmden 1'
    'set ccolor 0'
    'display uwnd;vwnd'
  endif
  if (i=4)
    'set parea 6 11 0.5 3'
    'set xlab on'
    'set ylab on'  
    'set gxout shaded'
    'd slp'
    'set gxout stream'
    'set strmden 1'
    'set ccolor 0'
    'display uwnd;vwnd'
  endif
  if (i=3)
    'set parea 6 11 3 5.5'
    'set xlab off'
    'set ylab on'  
    'set gxout shaded'
    'd slp'
    'set gxout stream'
    'set strmden 1'
    'set ccolor 0'
    'display uwnd;vwnd'
  endif
  if (i=2)
    'set parea 6 11 5.5 8'
    'set xlab off'
    'set ylab on'  
    'set gxout shaded'
    'd slp'
    'set gxout stream'
    'set strmden 1'
    'set ccolor 0'
    'display uwnd;vwnd'
  endif
i=i+1
endwhile
'printim e:\example\exam4\1.png'
[/quote]