Page 561 - Design and Operation of Heat Exchangers and their Networks

544 Appendix

eta_p_h = 0.5;
eta_p_c = 0.5;
CE = C_A ∗ (A_h + A_c) ^ n_A;
CU = C_el ∗ tau ∗ (dp_h ∗ m_h / eta_p_h ...
/ rho_h_in + dp_c ∗ m_c / eta_p_c / rho_c_in);
TAC = CE + CU;
f = TAC + max(Q - Q_cal, 0) + 1E5 ∗ max(dp_penalty_h, dp_penalty_c);

if (n_output >= 1)
ID = fopen(file, 'a');

if (n_output > 1)
fprintf('%%T_h_out =%f, T_c_out =%4.2f, dp_h =%d, dp_c =%f, ', ...
T_h_out, T_c_out, dp_h, dp_c);
fprintf('alpha_h =%f,alpha_c =%f,Re_2_h =%f,j_h =%f,f_h =%f,',...
alpha_h, alpha_c, Re_2_h, j_h, f_h);
fprintf('Re_2_c =%f, j_c =%f, f_c =%f, A =%f, CE =%f, CU =%f, ', ...
Re_2_c, j_c, f_c, A_h + A_c, CE, CU);
fprintf('TAC =%f\n', TAC);

fprintf(ID, '%%T_h_out =%f, T_c_out =%4.2f, dp_h =%d, dp_c =%f, ', ...
T_h_out, T_c_out, dp_h, dp_c);
fprintf(ID, 'alpha_h =%f, alpha_c =%f, Re_2_h =%f, j_h =%f,
f_h =%f, ', ...
alpha_h, alpha_c, Re_2_h, j_h, f_h);
fprintf(ID,'Re_2_c =%f,j_c =%f,f_c =%f,A =%f,CE =%f,CU =%f,',...
Re_2_c, j_c, f_c, A_h + A_c, CE, CU);
fprintf(ID, 'TAC =%f\n', TAC);
end

fprintf('%%f =%f, C_RF =%4.2f, N_fl_h =%d, L_h =%f, L_c =%f, ', ...
f, C_RF, N_fl_h, L_h, L_c);
fprintf('h_f_h =%f, h_f_c =%f, delta_f_h =%f, delta_f_c =%f, ', ...
h_f_h, h_f_c, delta_f_h, delta_f_c);
fprintf('l_s_h =%f, l_s_c =%f, FPM_h =%f, FPM_c%f, Q =%f\n', ...
l_s_h, l_s_c, FPM_h, FPM_c, Q_cal);
fprintf('x = [');

fprintf(ID, '%%f =%f, C_RF =%4.2f, N_fl_h =%d, L_h =%f, L_c =%f, ', ...
f, C_RF, N_fl_h, L_h, L_c);