- 积分
- 801
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2018-1-29
- 最后登录
- 1970-1-1
|
楼主 |
发表于 2018-9-13 19:15:57
|
显示全部楼层
本帖最后由 wly 于 2018-9-13 19:23 编辑
'open 0418.ctl'
'set vpage 0.0 11.0 0.0 8.5'
'set parea 1.5 10.0 2 8.0'
'set xaxis 0 1800 200'
'set yaxis 1 1260 200'
'set xlopts 1 3 0.2'
'set ylopts 1 3 0.2'
'set grads off'
'set grid off'
'set mpdraw off'
'set cint 2'
'set csmooth on'
'set font 4'
'set string 1 bc 3 0'
'set strsiz 0.15 0.2'
'draw string 6 1.2 X(m)'
'set string 1 l 3 90'
'set strsiz 0.15 0.2'
'draw string 0.5 4.5 Y(m)'
'set string 1 br 3 0'
'set strsiz 0.1 0.15'
*'draw string 10.2 0.38 W/m`a2`n'
'draw string 10.2 0.6 W/m`a2`n'
'set gxout shaded'
'define c=7.63*(tsfc-273.15)/(241.9+tsfc-273.15)'
'define qq=pow(10,c)'
'define qq=qq*6.11*100.0'
'define qtg=0.622*qq/101900'
if(cnp=1)
'define n=0'
else
if(cnp=2)
'define n=1'
else
'define n=0.53'
endif
endif
'define qa=q(lev=60)'
'define wspd=mag(u(lev=60),v(lev=60))'
'define he=n*1.29*2500000*0.0025*wspd*(qtg-qa)'
'd he'
'cbarn 1 0' |
|