再论TLNP图的程序

shzljg

今天看到画TLNP的程序，我觉得有些问题，主要是风向的计算程序。应改为如下形式，不知是否正确。
if (ugrdprs>=0.)
if (vgrdprs>=0.)
'define dir=180+atan2(ugrdprs,vgrdprs)*180/pi'
endif
endif
if (vgrdprs<=0.)
if (ugrdprs>=0.)
'define dir=atan2(ugrdprs,vgrdprs)*180/pi'
endif
endif
if (ugrdprs<=0.)
if (vgrdprs>=0.)
'define dir=180+atan2(ugrdprs,vgrdprs)*180/pi'
endif
endif
if (vgrdprs<0.)
if (ugrdprs<=0.)
'define dir=270-atan2(ugrdprs,vgrdprs)*180/pi'
endif
endif

mofangbao

貌似不完整啊，你可以把gs还有画出来的图贴出来给大家看看啊

瑜之姬

mofangbao 发表于 2012-6-25 10:20

                               
登录/注册后可看大图

貌似不完整啊，你可以把gs还有画出来的图贴出来给大家看看啊

清风你好！我现在用micaps探空资料(diamond 5)画tlnp图，但在家园找了好久没找到这方面的内容(可能帖子被顶下去了)。不知道你有没有这方面的资料，想学习学习！谢谢！