- 积分
- 13703
- 贡献
-
- 精华
- 在线时间
- 小时
- 注册时间
- 2011-6-27
- 最后登录
- 1970-1-1
|
发表于 2012-12-9 21:43:42
|
显示全部楼层
*--------计算假相当位温----------
'define br=(0.1158*log(rhum.3)-1.5332787)*air.6-789.92816'
'define cr=789.92816*air.6'
'define tc2=(-br-sqrt(br*br-4*cr))/2.0'
'define pc2=lev*pow(tc2/air.6,3.5005574)'
'define etc2=6.1078*pow(273.16/tc2,5.1347779)*exp(3148.0973*(tc2-273.16)/(126.06334*tc2))'
'define wc2=0.622*etc2/(pc2-etc2)'
'define ed2=tc2*pow(1000.0/(pc2-etc2),0.28765924)'
'define lc2=2500.79-2.3697*(tc2-273.16)'
'define eqt=ed2*exp(wc2*lc2/1.0048/tc2)'
楼主,这个thetase的计算公式是根据哪个来的?方便将计算公式附上么?计算结果楼主可否验证过? |
|