【分享】干货！！空气湿球温度、露点、焓值计算SCL
| 作者 | 主题 |
|---|---|
|
ziege 游士  经验值: 205 发帖数: 15 精华帖: 0 |
楼主
 2020-09-24 11:53:05主题：【分享】干货！！空气湿球温度、露点、焓值计算SCL //计算 露点、湿球温度、含湿量、比焓、饱和空气压力、水蒸气分压 #Td := (237.7 * (17.27 * #T / (237.7 + #T) + LN(#RH / 100))) / (17.27 - (17.27 * #T / (237.7 + #T) + LN(#RH / 100)));//计算空气含湿量(Td) #Pv_Temp := EXP((18.678 - #T/ 234.5) * #T / (#T + 257.14)); #PV := 611.2 * #Pv_Temp;//计算饱和压力(Pv) #d_Temp:= 0.01 * #RH * #PV/ (101326 - 0.01 * #RH * #PV);//计算含湿量(d) #d := 0.6219 * #d_Temp; #H := 1.01 * #T + (2500 + 1.84 * #T) * #d;//计算焓值(H) #Tw_low_Temp := #Td; #Tw_high_Temp := #T; FOR #I := 1 TO 100 BY 1 DO #Tw_Temp := (#Tw_high_Temp - #Tw_low_Temp) * 0.5; #Tw_Guess := #Tw_Temp + #Tw_low_Temp; #Pvw_temp := 611.2 * EXP((18.678 - #Td / 234.5) * #Tw_Guess / (#Tw_Guess + 257.14));//计算湿球饱和压力(Pvw) #dw_Temp := 0.6219 * #Pvw_temp / (101326 - #Pvw_temp);//计算湿球含湿量(dw) #Hw_Temp := 1.01 * #Tw_Guess + (2500 + 1.84 * #Tw_Guess) * #dw_Temp;//计算湿球焓值 IF (#H - #Hw_Temp) >= 0.0 THEN #Tw_low_Temp := #Tw_Guess; ELSE #Tw_high_Temp := #Tw_Guess; END_IF; IF ABS(#Tw_Temp) < 0.0001 THEN EXIT; END_IF; END_FOR; #Tw := #Tw_Guess;
|
|
黑猫警长W 至圣  经验值: 18389 发帖数: 2409 精华帖: 1 |
1楼
2020-09-24 13:22:09主题：回复：【分享】干货！！空气湿球温度、露点、焓值计算SCL 好复杂的算法 |
首页
智能小西-自动预约
风驰卡
产品入门
售后登记和质保查询
ASP工程师验证
ASP公司证书验证
售后服务常见问题
首页
售前文档（样本、宣传册等） 
售后文档（FAQ、手册等）
首页
立即开通1847会员
首页
教室及直播课
取证训练营
在线自学课
认证证书查询
培训伙伴验证
首页
最新发帖
精华帖
发新帖
已解决问题
精华常见问题
运维工程师专区
官方商城
短信登录
