求助！grads画降水距平百分率！

木木央

'reinit'
'open d:\LJ\grid.ctl'
'open d:\LJ\r1607.ctl'
'set grads off'
'set grid off'
'set lon 105 125'
'set lat 25 40'
'set mpdset cnworld'
'define b=0'
i=1
while(i<=60)
'set t 'i
'a=oacres(g,r.2,10,7,4,2,1)'
'aa=maskout(a,g-0.5)'
'aaa=smth9(aa)'
'define b=b+aaa'
i=i+1
endwhile
'define pj=b/30'
'set t 65'
'a1=oacres(g,r.2,10,7,4,2,1)'
'aa1=maskout(a,g-0.5)'
'aaa1=smth9(aa)'
'define jp=aaa1-pj'
'define jpp=jp/pj'
'set xlopts 1 10 0.18'
'set gxout shaded'
'd:\12.gs'
'cnbasemap jpp*100'
'cbarn.gs'
'set cthick 8'
'set clopts 1 6 0.1'
'set cint 30'
'set gxout contour'
'cnbasemap jpp*100'
'draw title jp percent for June 2015'
'printim d:\LJ\1507jpp.png white'
;

小韩

厉害少时诵诗书

yuyumage

感觉应该一样啊。。。