- 积分
- 71
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2012-9-23
- 最后登录
- 1970-1-1
|

楼主 |
发表于 2016-3-17 11:18:13
|
显示全部楼层
'reinit'
'open k:\q\grid.ctl'
'open k:\q\eof\tzxl5.ctl'
'enable print k:\q\eof\reof-ft2.gmf'
*----------------------------
'set parea 1 9 1 8'
'set map 1 1 5'
'set lon 108 111.5'
'set lat 18 20.2'
'set mpdset cnmap cnriver'
'set grads off'
'set poli on'
'set grid off'
'set xlopts 1 5 0.2'
'set ylopts 1 5 0.2'
'set xlint 1'
'set ylint 1'
'define a=oacres(g,p.2,1.5)'
'define aa=maskout(a,g-0.5)'
'define aaa=smth9(aa)'
'set gxout shaded'
'set csmooth on'
palette()
ss()
'set cterp on'
'set csmooth on'
'cnbasemap aaa'
'cbarn 1.0 0'
'set gxout contour'
'set clab forced'
'set csmooth on'
'set cthick 5'
'set clopts -1 -1 0.1'
'set cint 0.1'
'cnbasemap aaa'
*'printim k:\q\eof\reof1.png white'
'print'
'disable print'
function palette()
'set rgb 18 60 60 255'
'set rgb 19 90 90 255'
'set rgb 20 120 120 255'
'set rgb 21 150 150 255'
'set rgb 22 180 180 255'
'set rgb 23 210 210 255'
'set rgb 99 255 255 255'
'set rgb 25 255 232 120'
'set rgb 26 255 192 60'
'set rgb 27 255 160 0'
'set rgb 28 255 120 0'
'set rgb 29 255 80 0'
return
function ss()
*'set clevs 0.3 0.4 0.5 0.6 0.7 0.8'
'set clevs -0.7 -0.6 -0.5 -0.4 -0.3'
*'set ccols 99 23 22 21 20 19 18'
'set ccols 19 20 21 22 23 99'
return
;
|
|