爱气象,爱气象家园! 

气象家园

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 3681|回复: 0

[图形美化] 50年西风急流轴的变率线?

[复制链接]
发表于 2017-10-25 16:28:10 | 显示全部楼层 |阅读模式

登录后查看更多精彩内容~

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
本帖最后由 酒国 于 2017-10-25 17:39 编辑

QQ截图20171027144417.png
上图的程序用的是这个网站的。 http://bbs.06climate.com/forum.php?mod=viewthread&tid=17479

上图是显示的50年每一年西风急流轴的位置。这样每个经度上都有50年的急流轴位置的序列,请教一下怎么画出一条50年变率线?

我理解的是每个经度上50年的急流轴的变率,这样做出的折线图横轴是经度值,纵轴是变率值,不知道这样理解对吗?
如果是这样的话,需要输出50年每一年每一个经度上纬度值。请问这在gs怎样实现?用这行命令( rc=write('d:/Max-U200hPa.txt', lon1,lat1))试过,结果输出的是虚页尺寸。
gs的主体是:
it=3
while(it<=835)
lon1=17
while(lon1<=80)
    if(lon1=17)
    'set x 'lon1''
    'd maxloc(uwnd(t='it'),lat=0,lat=70)'
    a=sublin(result,2)
    lat1=subwrd(a,4)
    'q gr2xy 'lon1' 'lat1''
    x0=subwrd(result,3)
    y0=subwrd(result,6)          
else
    'set x 'lon1''
    'd maxloc(uwnd(t='it'),lat=0,lat=70)'
    a=sublin(result,2)
    lat1=subwrd(a,4)
    'q gr2xy 'lon1' 'lat1''
    x1=subwrd(result,3)
    y1=subwrd(result,6)
    'set line 1 1 1'
    'draw line 'x0' 'y0' 'x1' 'y1''
    x0=x1
    y0=y1
endif      
lon1=lon1+1
endwhile
it=it+12
endwhile

密码修改失败请联系微信:mofangbao
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Copyright ©2011-2014 bbs.06climate.com All Rights Reserved.  Powered by Discuz! (京ICP-10201084)

本站信息均由会员发表,不代表气象家园立场,禁止在本站发表与国家法律相抵触言论

快速回复 返回顶部 返回列表