- 积分
- 5491
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2013-7-18
- 最后登录
- 1970-1-1
|

楼主 |
发表于 2014-5-8 16:18:09
|
显示全部楼层
gs如下:
'reinit'
rc = gsfallow("on")
nrows=4.1
ncols=2
args=nrows%' '%ncols
'set mproj scaled'
panels(args)
p = 1
ptot = nrows * ncols
while (p <= ptot)
'open d:\step2\600rh\rh'p'.ctl'
_vpg.p
'set parea 1 9.8 1 7.5'
'set grads off'
'set grid off'
'set gxout shaded'
'd:\project\test\200colors.gs'
'run D:\step2\600rh\rainbow.gs'
*'set clevs 25 35 45 55 65 75 85'
*'set ccols 33 48 58 70 135 160 174 181'
'set x 1 49'
'set y 1 25'
'set csmooth on'
'set font 5'
'set xlopts 1 1 0.15';'set ylopts 1 1 0.15'
'd rh'
*'cbarn 1 0'
*'set gxout contour'
*'d rh'
'draw title phase 'p''
'close 1'
p = p + 1
endwhile
'set vpage off'
'run plotcbar D:\step2\600rh\rainbow.gs 1 0.8'
'printim d:\step2\600rh\rh600.1-8.png white x2000 y2500'
;
rainbow。gs如下:
colnum=8
'set clevs 25 35 45 55 65 75 85'
'set ccols 33 48 58 70 135 160 174 181'
'set gxout shaded'
return |
|