原创力文档- 1、本文档共4页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
管壳式换热器模拟计算
管壳式换热器模拟计算 （课本P40 2-5题）
程序中各参数的意义：
字母 意义 字母 意义 n 迭代次数 niu1/2 冷/热物料运动粘度 Ai/Ao 管内外传热面积 yita1/2 冷/热物料粘度 D 壳体直径 B 折流板间距 L 管长度 t 管心距 Di/Do/Dm 管内径/外径/平均管径 niuwi/o 内外表面壁温下运动粘度 Ko 总传热系数 yitawi/o 内外表面壁温下粘度 De 壳程当量直径 Dwi/o 内外表面壁温下相对密度 Si 管程通道截面积 rouwi/o 内外表面壁温下密度 Smax 壳程通道截面积 ld 管材（碳钢）热导率 Wh 热物料 渣油 流量 b 管壁厚 Wc 冷物料 原油 流量 Hi0/Ho0 管内外表面传热系数初值 Th1/Tc1 热/冷物料入口温度 Hi/Ho 管内外表面传热系数 Th2/Tc2 热/冷物料出口温度 Qh/Qc 热/冷物料热流量 Th20/Tc20 热/冷物料出口温度初值 Twi0/Two0 热/冷物料壁温初值 Cp1/Cp2 热/冷物料定压比热容 Twi/Two 热/冷物料壁温 C 热容流率比 热/冷 Rs/Rt 热/冷物料侧污垢热阻 Tmh/Tmc 热/冷物料定性温度 ui/uo 管/壳程流速 D1/D21 热/冷物料相对密度 Rei/Reo 管/壳程雷诺数 K 油品特性因数 Pri/Pro 管/壳程普朗特数 rou1/rou2 冷/热物料密度 NTU 传热单元数 lamada1/2 冷/热物料热导率 E 传热效率
程序条文：
# include
# include
main double Do 0.025，Di 0.021，L 6，Wh 29.5; Th1 280，Wc 37.5， Tc1 160，Ro 0.0005,Ri 0.0001，D1,D2，D2O1 0.85，D2O2 0.919，Tc2,Th2，
MD2O1，MD2O2，K 12.5,Cp1,Cp2，ramda1,ramda2，niu1,niu2，
yita1,yita2,a1,b1,a2,b2,Tc20,Th20,Tmc,Tmh,C,Qc,Qh,
Ho,Hi,Reo,Rei,Pro,Pri,Si,rou1,ui,Hi0,Twi0,
Ai,Twi,niuwi,yitawi,Dwi,Xwi,rouwi,Ao,
Smax,B 0.23,D 0.8,t 0.032,De,uo,rou2,
Ho0,Two0,Two,niuwo,yitawo,Dwo,Xwo,rouwo，
Ko，NTU,E,F,Cmin,Cmax，Xh,Xc，ld 44,b 0.002,Dm 0.0023，e 2.71828;
int n 0;
Tc2 180;
Th2 260; /*给Tc2，Th2赋初值*/
do n++; printf n %d\n,n ;
Th20 Th2; Tmh Th1+Th20 /2;
do Tc20 Tc2; /*Tc2的迭代*/ Tmc Tc1+Tc20 /2; Cp1 0.7072+ 0.00147-0.00051*D2O1 *Tmc-0.318*D2O1 * 0.055*K+0.35 *4.18*1000;
Cp2 0.7072+ 0.00147-0.00051*D2O2 *Tmh-0.318*D2O2 * 0.055*K+0.35 *4.18*1000;
C Wh*Cp2/ Wc*Cp1 ;
Tc2 Tc1+C* Th1-Th20 ; while fabs Tc2-Tc20 0.1 ;
Qh Wh*Cp2* Th1-Th2 ; Qc Wc*Cp1* Tc2-Tc1 ;
Ai 3.14*Di*L*324;
Si 0.25*3.14*Di*Di*324/2;
Xc 1+Tmc/100.0;
MD2O1 pow D2O1,2 ;
D1 0.942+0.248*Xc+0.174*MD2O1+0.0841/ Xc*D2O1 -0.312*Xc/D2O1-0.556*exp -Xc ;
rou1 1000*D1; ui Wc/ rou1*Si ;
b1 log log 90.0+1.22 /log 13+1.22 / log 50.0+273 / 100.0+273 ; a1 log log 90+1.22 -b1*log 50.0+273 ; niu1 exp exp a1+b1*log Tmc+273 -1.22;
yita1 niu1*rou1/1000000;
Rei Di*ui*rou1/yita1;
ramda1 0.4213* 1-0.0005
文档评论（0）