a trybnogo pychka=1.3 * d_n;=ceil ((sqrt (12 * N - 3) - 3) / 6);=1 +3 * m +3 * pow (m, 2);=2 * m * t; D_vn=D1 + d_n +2 * x;
{if (D_gost [i]> D_vn) {D_vn=D_gost [i]; zx=1; } I + +; } While (zx == 0); zx=0; i=0; (l1/D_vn> 4) {printf (" nyvelichit z»); z=z +2; printf (" tz =% f», z);} (l1/D_vn <2) {printf (" nymenshiti z»); z=z - 2; printf (" tz =% f», z);}
} while(l1/D_vn>4||l1/D_vn<2);_patr_p=1.13*sqrt(Dp*v_p/w_p);_patr_v=1.13*sqrt(Gok*v_v/w_v);_d=v(Pp,hpt(Pp,t_od_1_11));w_d=30*sqrt(v_d);_patr_d=1.13*sqrt(Dp*v_d/w_d);
/ / komponovka mejtrybnigi prostranstva_mtr=3.14/4*(pow(D_vn,2)-N*pow(d_n,2));_fakt=V_p/S_mtr;(w_fakt<w_rek){w_fakt=w_rek;}(w_fakt>w_rek){printf(«nyvelichit t»);}_mtr_1=V_p/w_fakt;=S_mtr_1;S2=S_mtr_1;S3=S_mtr_1;(z==1){y=0.9;}(z==2){y=0.8;}(z>=4){y=0.7;}_1=sqrt(4*S1/3.14/(1-0.91*y*pow(d_n/t,2)));_2=sqrt(pow(D_vn,2)- 4 * S2/3.14);=(D_1 + D_2) / 2;=S3 / (3.14 * (1-d_n / t) * D0); (h <0.08) {h=0.08; printf (« n ymenshit w_pek »);}
/ / opredelenie koef. teplootdachi
/ / alfa_2_v=Lambda_wd (Pok, t_sr_v); _v=Nju_wd (Pok, t_sr_v); _v=Pr_wd (Pok, t_sr_v); _v=1/v_v;
//printf(«n%fn»,Pr_v);_v=w_v*d_vn/kun_v;_v=0.021*pow(Re_v,0.8)*pow(Pr_v,0.43);_2=Nu_v*lambda_v/d_vn;
/ / alfa_1 SP=5700 +56 * ts (Pp) - 0.09 * pow (ts (Pp), 2); _1_sp=1.34 * B1/pow (dt_sp * l1, 0.25);
/ / alfa_1 OD_3=t_od_1_1-t_od_1_11;dt_4=t_od_2_11-t_od_2_1;_sr_d=(dt_3/dt_4*(t_od_2_11+dt_od)-t_od_1_1)/(dt_3/dt_4-1);_d=Lambda_wd(Pp,t_sr_d);_d=Nju_wd(Pp,t_sr_d);_d=Pr_wd(Pp,t_sr_d);_d=1/v_d;
//printf(«nn%fn»,Pr_d);_d=w_d*d_n/kun_d;_d=0.305*pow(Re_d,0.35)*pow(Pr_d,0.6)*pow(l1/d_n,0.038);_1_od=Nu_d*lambda_d/d_n;_sp_P=1/(d_sr*(1/(alfa_1_sp*d_n)+1/(2*lambda_st)*log(d_n/d_vn)+1/(alfa_2*d_vn)));_od_P=1/(d_sr*(1/(alfa_1_od*d_n)+1/(2*lambda_st)*log(d_n/d_vn)+1/(alfa_2*d_vn)));_sp_P=Q_sp*1000/k_sp_P/dt_sp;_od_P=Q_od*1000/k_od_P/dt_od;=fabs(F_sp_P-F_sp)*100/F_sp_P;dF2=fabs(F_od_P-F_od)*100/F_od_P;_P=F_sp_P+F_od_P; dF=fabs (F_P-F_esk); (ii == 1 | | dF
{(« nQ_sp =% f tQ_od =% f», Q_sp, Q_od); (« ndt_sr =% f t tF_sp =% f & raquo;,dt_sp,F_sp);(«ndt_od=%fttF_od=%f»,dt_od,F_od);(«nt_sr_p=%ftt_sr_v=%f»,t_sr_p,t_sr_v);(«nF_esk=%ft»,F_esk);(«l1=%f»,l1);(«nD_vn=%fttl1/D_vn=%f»,D_vn,l1/D_vn);(«nn=%fttl=%ftnN=%fttz_okon=%f»,n,l,N,z);(«nt=%fttm=%fttN1=%f»,t,m,N1);(N<N1) {Printf (" nkonchentrich okr.»);} {Printf (" nrombich. sxema»);}(«nD_patr_p=%ftD_patr_v=%ftD_patr_d=%f»,D_patr_p,D_patr_v,D_patr_d);(«nS_mrt_1=%ftD_1=%fttD_2=%fnD0=%ftth=%f»,S_mtr_1,D_1,D_2,D0,h);(«nk_sp_P=%ftk_od_P=%f»,k_sp_P,k_od_P);(«nF_sp_P=%ftF_od_P=%f»,F_sp_P,F_od_P);(«ndF1=%fttdF2=%f»,dF1,dF2);(«nF_p=%.2fttdF=%f»,F_P,dF);(«nii=%dn»,ii); } _sp=F_sp_P; F_od=F_od_P; _esk=F_P; ii + +;
} while (dF> E); ();
}
.7 Результати розрахунку на ЕОМ
Теплове навантаження зони СП Q_sp=9327.87
Теплове навантаження зони ОД Q_od=1089.99
Температурний напір у зоні СП dt_sr=20.8
Ескізна площа теплоо...
