- 积分
- 119
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2013-6-27
- 最后登录
- 1970-1-1
|
登录后查看更多精彩内容~
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
用的旧的gs,新的 数据画图,出来经纬度和坐标重影
gs
'reinit'
'set vpage 0 11.0 0 8.5'
'set parea 0.8 9.9 1.4 7.7'
'set grads off'
'set grid off'
'set lon 90.25 114.75'
'set lat 30.25 46'
'set xlopts 1 4 0.15'
'set ylopts 1 4 0.15'
'open g:\ecthin\cape.ctl'
'set gxout shaded'
'set cterp on'
'set csmooth on'
'set rgb 21 255 250 170'
'set rgb 22 255 232 120'
'set rgb 23 255 192 60'
'set rgb 24 255 160 0'
'set rgb 25 255 96 0'
'set rgb 26 255 50 0'
'set rgb 27 225 20 0'
'set rgb 28 192 0 0'
'set rgb 29 165 0 0'
'set rgb 71 250 240 230'
'set rgb 72 240 220 210'
'set rgb 73 225 190 180'
'set rgb 74 200 160 150'
'set rgb 75 180 140 130'
'set rgb 76 160 120 110'
'set rgb 77 140 100 90'
'set rgb 78 120 80 70'
'set rgb 79 100 60 50'
'set cmin 150'
'set cint 150'
'set clevs 150 300 500 1000 1500 2000 2500 3000'
'set ccols 0 21 23 25 29 77 78 79'
'd smth9(smth9(cape.1))'
'C:\Contents\Resources\Scripts\cbarn.gs 0.5 0'
'close 1'
'open g:\ecthin\pw.ctl'
'set gxout contour'
'set ccolor 3'
'set cthick 14'
'set cmin 20'
'd smth9(smth9(pw.1))'
'close 1'
'open g:\ecthin\li.ctl'
'set gxout contour'
'set cstyle 1'
'set ccolor 9'
'set cthick 14'
'set cmax 0'
'set cint 1'
'd smth9(smth9(li.1))'
'close 1'
'open g:\ecthin\u500.ctl'
'open g:\ecthin\v500.ctl'
'set gxout barb'
'set digsize 0.05'
'set ccolor 1'
'set cthick 5.5'
'd skip(U500.1*2.5,3);skip(V500.2*2.5,3)'
'close 2'
'close 1'
'set mpdset cnworld'
'set map 1 1 11'
'draw map'
'set mpdset cnriver'
'set map 5 1 10'
'draw map'
'printim g:\ecthin\FIG\PW_LI_CAPE_UV500\ec_2015082720_000.gif gif white'
|
|