换热器设计程序.docVIP

C++源程序 #includeiostream.h #includemath.h const double PI=3.14159; const double E=2.71828; const double n=2; //流程数取为2 void main() { cout.precision(4); //已知条件 double fai0=60e3,t0=2,t1=32,lamdaF=384,d0=13.124e-3,di=11.11e-3,df=15.8e-3; double deltaT=0.232e-3,delta0=0.386e-3,deltaF=0.3e-3,e=1.025e-3; //以下是求解过程 //1.计算肋管特性参数 //肋管水平部分面积 double Ap; Ap=(PI*d0*(e-delta0)+PI*df*deltaT)/e; //肋管垂直部分面积 double Af; Af=PI*(df*df-d0*d0)/2/e; //肋管总外表面积 double A; A=Af+Ap; //肋化系数 double tao,Ai; Ai=PI*di; tao=A/Ai; //肋片的当量高度 double He; He=PI*(df*df-d0*d0)/(4*df); //基管的平均表面积 double Aba; Aba=PI*(d0+di)/2; //2.确定冷却水出口温度。 //假设冷却水的出口温差 deltaTw=5 摄氏度。 double deltaTw=5; double t2; t2=t1+deltaTw; //3.确定冷凝温度tk。 //一般取tk-t1=7～14摄氏度，此外我们取10摄氏度。 double tk; tk=t1+10; //4.求冷凝器热负荷 //根据冷凝温度和蒸发温度，查课本图4-15可得系数 fai=1.22 double fai=1.22; double faiK; faiK=fai*fai0; //计算平均传热温差 double deltaTm; deltaTm=(t2-t1)/log((tk-t1)/(tk-t2)); //求冷却水的流量 double cp=4.2; double Mw; Mw=faiK/(cp*deltaTw*1000); //输出参数 cout肋管水平部分面积 Ap=Ap m2endl; cout肋管垂直部分面积 Af=Af m2endl; cout肋化系数 tao=taoendl; cout肋片的当量高度 He=He m2endl; cout基管的平均表面积 Aba=Aba m2endl; cout冷却水的出口温度 t2=t2 摄氏度endl; cout冷凝温度 tk=tk 摄氏度endl; cout冷凝器热负荷 faiK=faiK Wendl; cout冷却水的流量 Mw=Mw kg/sendl; //先假设热流密度为FAI=500 W/m*m，管内水流速度 v=2.5 m/s。 double FAI0=500,FAI=500,FAI1=0; //FAI是实际热流密度。 double pb=1.0; //用于判别假设的热流密度是否合适 double m,N; //每流程的肋管数 double Kc; //肋管的传热系数 for(;pb=0.05;FAI=FAI1) { //7.计算传热所需的面积 double Ac1; Ac1=faiK/FAI; //8.初步规划冷凝器的结构 double v=2.5,ro=1000; //每流程的肋管数 m=ceil(Mw/(PI*di*di*ro*v/4)); N=m*n; ///////////////////////////////////// //9.计算水侧换热系数 double alfaW; double beta; //水的物性参数 beta=1430+22*(t1+t2)/2; alfaW=beta*pow(v,0.8)/pow(di,0.2); //计算制冷剂侧冷凝换热器系数 alfaC //根据冷凝温度tk=42摄氏度，查物性表可得 double lamda=0.062,ro1=1243,r=128.58e3