| 查看: 568 | 回复: 4 | |||
[求助]
求助热学方面程序大神，基于加热器换热原理，根据功率求解冷流体出口温度 已有1人参与
|
|
C SUBROUTINE ALG44(IN,OUT,COF,DT) C 已知传热量，求解工质出口温度 SUBROUTINE HEAT[Dllexport](IN,OUT,COF,DT) REAL IN(*),OUT(*),COF(*),DT,in3 c 输入 C IN(1)---被加热工质的流量 C IN(2)---工质的入口温度 C IN(3)---向金属管壁的放热量（W） C IN(4)---环境温度 C 系数 C COF(1)---工质比热容 C COF(2)---工质侧对流换热系数 C COF(3)---环境散热系数 C COF(4)---金属质量*金属比热容 C COF(5)---管路内工质的质量 C 输出 c OUT(1)---工质出口温度 C OUT(2)---金属温度 deltt=dt IN3=IN(3) c 被加热工质的的平均温度 TFAVG=(IN(2)+OUT(1))*0.5 C 管壁对被加热工质的放热量 Q2=COF(2)*(OUT(2)-TFAVG)*IN(1) c 环境散热量 QAMB=(100+COF(3)*abs(IN(1)))*(TFAVG-IN(4)) c 金属温度计算 OUT(2)=(IN3-Q2-QAMB)/(COF(4)/DELTT+COF(2)+1.0E-5)+OUT(2) c 被加热工质出口温度 OUT(1)=OUT(1)+(abs(IN(1))*COF(1)*(IN(2)-OUT(1))+Q2) 1 /(COF(1)*COF(5)/DELTT+COF(2)+IN(1)*COF(1)+1.0E-5) c 若金属温度和工质温度小于环境温度，则两者温度等于环境温度 IF(OUT(1).LE.IN(4)) OUT(1)=IN(4) IF(OUT(2).LE.IN(4)) OUT(2)=IN(4) C RETURN END ccccccccccccccccccc COF(1)一旦设的小比如1.87，输出的温度值就会震荡，求指导 |
回复此楼» 猜你喜欢
拟解决的关键科学问题还要不要写
已经有3人回复
-
基金申报
已经有5人回复
-
基金委咋了？2026年的指南还没有出来？
已经有7人回复
-
国自然申请面上模板最新2026版出了吗？
已经有17人回复
-
纳米粒子粒径的测量
已经有8人回复
-
疑惑？
已经有5人回复
-
计算机、0854电子信息（085401-058412）调剂
已经有5人回复
-
Materials Today Chemistry审稿周期
已经有5人回复
-
溴的反应液脱色
已经有7人回复
-
推荐一本书
已经有12人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 关于冷热气体之间的传热机理问题
已经有3人回复
- 求热流体的出口温度
已经有10人回复
nono2009
超级版主 (文学泰斗)
No gains, no pains.
-
专家经验: +21105 - 应助: 28684 (院士)
- 贵宾: 513.911
- 金币: 2555220
- 散金: 27828
- 红花: 2147
- 沙发: 66666
- 帖子: 1602255
- 在线: 65200.9小时
- 虫号: 827383
- 注册: 2009-08-13
- 性别: GG
- 专业: 工程热物理与能源利用
- 管辖: 科研家筹备委员会
2楼2015-01-21 20:24:52
3楼2015-01-21 20:27:45
匿名
用户注销 (文坛精英)
- 应助: 164 (高中生)
- 金币: 9550.6
- 散金: 34344
- 红花: 361
- 沙发: 31
- 帖子: 20580
- 在线: 3633.3小时
- 虫号: 0
- 注册: 2011-12-15
- 专业: 建筑环境与结构工程
4楼2015-01-23 17:25:32
5楼2015-01-23 18:36:46