торський розрахунок вважається закінченим. Якщо хоча б в одній з виділених зон, то необхідно заново виконати конструкторський розрахунок теплообмінного апарату, починаючи з моменту визначення загальної довжини труб підігрівача за умови, що.
Так як, то розрахунок повторюється з уточненням площі теплообмінного апарату.
Знайдемо загальну розрахункову площу поверхні теплообміну:
Повторний розрахунок зробимо на ЕОМ у зв'язку з його трудомісткістю. Текст програми для розрахунку на ЕОМ представлений в п. 2.6, результати обчисленні в п. 2.7.
.6 Текст програми для розрахунку на ЕОМ
# include
# include
# include
# include main (void)
{(); Dp=4.534, Pp=3.2, h_p=2670.3, T_d=570.9, T_d_1=325.5, t_p=135.74, t_d=135.74, t_d_1=77.7, Gok=39.912, Pok=14, T_ok=292.8 , T_od=320.1, T_sp=553.8, t_ok=69.7, t_od=76.2, t_sp=131.6, kpdt=0.98, k_sp=2700, k_od=800, d_n=0.025, s_st=0.002, d_vn, d_sr,=0.008, z= 8, w_rek=25, E=0.5, _sp_1_1, t_sp_1_11, t_sp_2_1, t_sp_2_11, t_od_1_1, t_od_1_11, t_od_2_1, t_od_2_11, Q_sp1, Q_sp2, Q_sp, Q_od1, Q_od2, Q_od, dt1, dt2, dtb, dtm, dt3, dt_sp, F_sp, P_od, A_od, R_od, Zt_od, dt_od, F_od, dt_1, dt_2, t_sr_p, t_sr_v, v_p, V_p, v_v, V_v, w_p, w_v, n, l, F_esk, l1, N, t, N1, m, D1, D_vn,_gost[22]={0.4,0.5,0.6,0.7,0.8,0.9,1.0,1.2,1.4,1.6,1.8,2.0,2.2,2.4,2.8,3.0,3.2,3.4,3.6,3.8,4.0},_3, dt_4, t_sr_d, v_d, w_d, D_patr_v, D_patr_p, D_patr_d, w_fakt, S_mtr, y, S_mtr_1, S1, S2, S3, D_1, D_2, D0, h; lambda_v, kun_v, Pr_v, lambda_d, kun_d, Pr_d, lambda_st= 50, Po_v, Re_v, Nu_v, alfa_2, B1, alfa_1_sp, Po_d, Re_d, Nu_d, alfa_1_od, k_sp_P, k_od_P, F_od_P, F_sp_P, dF1, dF2, F_P, dF; i=0, zx=0, ii=1; _vn=d_n - 2 * s_st; _sr=(d_n + d_vn) / 2; (« nd_vn =% .3 f td_sr =% .3 f», d_vn, d_sr); _sp_1_1=t_p; t_sp_1_11=t_d; t_sp_2_1=t_od; t_sp_2_11=t_sp; _od_1_1=t_d; t_od_1_11=t_d_1; t_od_2_1=t_ok; t_od_2_11=t_od; _sp1=Dp * (h_p-T_d) * kpdt; Q_sp2=Gok * (T_sp-T_od); Q_sp=(Q_sp1 + Q_sp2) / 2; _od1=Dp * (T_d-T_d_1) * kpdt; Q_od2=Gok * (T_od-T_ok); Q_od=(Q_od1 + Q_od2) / 2;
/ / zona SP=t_sp_1_1-t_sp_2_11; dt2=t_sp_1_11-t_sp_2_1; (dt1> dt2) {dtb=dt1; dtm=dt2;} {dtb=dt2; dtm=dt1;}=dtb / dtm; (dt3> ; 1.7) {dt_sp=(dtb-dtm) / (2.3 * log10 (dtb / dtm)); } {Dt_sp=(dtb + dtm) / 2;} _sp=Q_sp * 1000/k_sp/dt_sp;
/ / zona OD_od=(t_od_1_1-t_od_1_11)/(t_od_1_1-t_od_2_1);_od=(t_od_2_11-t_od_2_1)/(t_od_1_1-t_od_1_11);_od=(t_od_1_1-t_od_1_11)/(t_od_2_11-t_od_2_1);_od=sqrt(pow((A_od+1),2)- 4*A_od);_od=(Zt_od*(t_od_1_1-t_od_2_1)*P_od*R_od)/log((2-P_od*R_od*(A_od+1-Zt_od))/(2-P_od*R_od*(A_od+1+Zt_od)));_od=Q_od*1000/k_od/dt_od;_esk=F_sp+F_od;
{/ / osnovnie razmeri_1=t_sp_1_1-t_sp_1_11;dt_2=t_sp_2_11-t_sp_2_1;_sr_p=(dt_1/dt_2*(t_sp_2_11+dt_sp)-t_sp_1_1)/(dt_1/dt_2-1);_sr_v=(dt_1/dt_2*t_sp_2_11+dt_sp-t_sp_1_1)/(dt_1/dt_2-1);_p=v(Pp,h11(ts(Pp))); v_v=v (Pok, hpt (Pok, t_sr_v)); _p=Dp * v_p; V_v=Gok * v_v; _p=80 * sqrt (v_p); w_v=30 * sqrt (v_v);=ceil (4 * Gok * v_v/3.14/pow (d_vn, 2) / w_v);=F_esk/3.14/d_vn/n;
{= l / z; N=n * z;
{if (l1> 9) {printf (" nyvelichit z»); z=z +2; l1=l / z; N=n * z; (« tz =% f», z);} (l1 <2) {printf (" nymenshiti z»); z=z - 2; l1=l / z; N=n * z; (« tz =% f», z);}} while (l1> 9 | | l1 <2);
/ / komponovk...