$SB1-X5.226 � Function CCONDENFE2(rho_liq,rho_vap,k_l,mu_liq,Re,Pr,theta) If (Re>=1800) Then CALL ERROR ('El valor de Re está fuera de rango.Comprueba Variable info en el menú Options', Re) If (Pr<0.01) Then CALL ERROR ('El valor de Pr está fuera de rango.Comprueba Variable info en el menú Options', Pr) CCONDENFE2=1.76*Re^(-1/3)*((9.81*cos(theta)*rho_liq*(rho_liq-rho_vap)*k_l^3)/(mu_liq^2))^(1/3) End