管壳式换热器设计计算用matlab源代码_第1页
管壳式换热器设计计算用matlab源代码_第2页
管壳式换热器设计计算用matlab源代码_第3页
全文预览已结束

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

1、%物性参数% 有机液体取69度p1=997;cp1=2220;mu1=0.0006;num1=0.16;% 水取30度p2=995.7;mu2=0.0008;cp2=4174;num2=0.62;%操作参数% 有机物qm1=18;%-有机物流量-dt1=78;dt2=60;% 水t1=23;t2=37;%-自选-%系标准选择dd=0.4;%内径ntc=15;%中心排管数dn=2;%管程数n=164;%管数dd0=0.002;%管粗d0=0.019;%管外径l=0.025;%管心距dl=3;%换热管长度s=0.0145;%管程流通面积da=28.4;%换热面积fie=0.98;%温差修正系数-根

2、据R和P查表-B=0.4;%挡板间距-自选-%预选计算dq=qm1*cp1*(dt1-dt2);dtm=(dt1-t2)-(dt2-t1)/(log(dt1-t2)/(dt2-t1);R=(dt1-dt2)/(t2-t1);P=(t2-t1)/(dt1-t1);%管程流速qm2=dq/cp2/(t2-t1);ui=qm2/(s*p2);%管程给热系数计算rei=(d0-2*dd0)*ui*p2/mu2;pri=cp2*mu2/num2;ai=0.023*(num2/(d0-2*dd0)*rei0.8*pri0.4;%管壳给热系数计算%采用正三角形排列Apie=B*dd*(1-d0/l);%最大

3、截流面积u0=qm1/p1/Apie;de=4*(sqrt(3)/2*l2-pi/4*d02)/(pi*d0);%当量直径re0=de*u0*p1/mu1;pr0=cp1*mu1/num1;if re0=2000 a0=0.36*re00.55*pr0(1/3)*0.95*num1/de;else a0=0.5*re00.507*pr0(1/3)*0.95*num1/de;end%K计算K=1/(1/ai*d0/(d0-2*dd0)+1/a0+2.6*10(-5)+3.4*10-5+dd0/45.4);%AAj=dq/(K*dtm*fie);disp(K=)disp(K);disp(A/A计=);disp(da/Aj);%计算管程压降ed=0.00001/(d0-2*dd0);num=0.008;err=100;for i=0:5000 err=1/sqrt(num)-1.74+2*log(2*ed+18.7/(rei*sqrt(num)/log(10); berr=err/(1/sqrt(num); if berr0.001)%当相对误差小于0.1%停止计算 numda=numda+0.000001;%修改摩擦系数值 err=1/sqrt(numda)-1.74+2*log(2*ed+18.7/(re*

人人文库> 全部分类> 应用文书 > 事务文书

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论