grads画图

yiwn13

想用grads画图，实现大于零的部分为红色，小于零的部分为蓝色。该如何做啊？

yiwn13

'reinit'
'open d:\sx1\sx1.ctl'
'set gxout shaded'
'set cmax 0'
'set rbcols 5 5 5 5 5 5 5'
'd hla'
'set gxout contour'
'set ccolor 1'
'set lon 0 360'
'set lat -90 90'
'set grads off'
'd hla'
'draw title HLA'
'printim d:\sx1\hla.png white'
;
我目前这样做只能出小于零是蓝色。但是再弄一个类似的set shaded就又会把原来的蓝色消除，只有大于零的红色。。。

独奏古筝到天明

'define_colors'
'set t 'i
'set clevs  -48 -44 -40  -36  -32 -28  -24 -20 -16 -12 -8 -4 0 4 8 12'
'set ccols 49 48 47 46 45 44 43 42 41 0 21 22 23 24 25 26 27 28 29'
'set gxout shaded'
'set cthick 6'
'set cstyle 2'
'set cint 4'
'define t=TMPprs-273.15'
'set clab forced'
'd t'
'cbarn'
'set gxout contour'
'set ccolor 2'
'set cstyle 2'
'set cthick 6'
'set cint 4'
'd t'
'set gxout barb'
'set cthick 6'
'set cstyle 2'
'set cint 5'
'set cmin 20'
'set ccolor 1'
'd skip(UGRDprs,5);skip(VGRDprs,5)'
'set gxout contour'
'set cthick 6'
'set cint 40'
'set ccolor 1'
'd HGTprs'
'q time'
t=subwrd(result,3)
'draw title 500hPa_HGT_TEMP_WIND`b(barb)`n_'i'_'t''
'printim E:\nc\500hPa_HGT_WIND_TEMP_'i'_'t'.png white x1000 y800'
i=i+1
'c'
endwhile
'reinit'

独奏古筝到天明

这是画500hPa温度用的脚本，大于0℃用红色