- 积分
- 801
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2013-3-11
- 最后登录
- 1970-1-1
|
发表于 2014-3-4 10:53:26
|
显示全部楼层
chuanhao 发表于 2014-3-4 10:52
前边有人提供了一个grads函数的网站啊,上面有算速度势的函数,也就是作者用的那个函数,还有计算流函数的 ...
'reinit'
'open F:\xin\sqtl\qu.ctl'
'open F:\xin\sqtl\qv.ctl'
'open F:\xin\sqtl\avequ.ctl'
'open F:\xin\sqtl\aveqv.ctl'
'define UU=qu.1-qu.3'
'define VV=qv.2-qv.4'
'set ylint 10'
'SET XLINT 20'
'set xlopts 1 5 0.16';'set ylopts 1 5 0.16'
*'set mpdset cnworld'
'set map 1 1 1'
'set grads off'
'set grid off'
***************Computing Velocity Potential from Wind Components**********
'define chi=fish_psi(uu,vv)'
'chi=chi-aave(chi,global)'
'set gxout contour'
'set lat 0 50'
'set lon 50 160'
*'set cthick 5'
'd chi/1e6'
****Calculating the Divergent Wind****
'define one=2.5+0*lat'
'uchi = - muadv(one,chi)'
'vchi = - mvadv(one,chi)'
'set gxout vector'
*'set ccolor 15'
'set lat 0 50'
'set lon 50 160'
'set cmin 2'
'set cmax 20'
'set arrscl 0.5 40'
'd uchi;vchi'
'q time'
xx=subwrd(result,3)
'set line 1 1 5'
'draw rec 4.15 4.18 5.92 5.43'
*'draw title t='xx''
'enable print F:\xin\dsdb\shiyan\liuhanshu.gmf'
'print'
'disable print'
; |
|