$SB1-X5.226 † Function CCONDENFE7(rho_liq,rho_vap,h_gl,k_l,mu_liq,Tsat,Ts,Tv,Cpl,Cpv,N,D,Re) If (Re>=3600) Then CALL ERROR ('El valor de Re está fuera de rango.Comprueba Variable info en el menú Options', Re) hglprima=h_gl+0.68*Cpl*(Tsat-Ts)+Cpv*(Tv-Tsat) Ja=Cpl*(Tv-Ts)/h_gl CCONDENFE7=0.725*(1+0.2*Ja*(N-1))*((9.81*rho_liq*(rho_liq-rho_vap)*hglprima*k_l^3)/(4*mu_liq*(Tv-Ts)*N*D))^(1/4) End