$SB1-X5.226
f Function CFFI12(Re,Pr,B,Ts,Tm,estado)
If (Re<=10000) Then CALL ERROR ('El valor de Re está fuera de rango.Comprueba Variable info en el menú Options',Re)
If (Pr<0.6) or (Pr>100) Then CALL ERROR ('El valor de Pr está fuera de rango.Comprueba Variable info en el menú Options',Pr)
If (B<60) Then CALL ERROR ('El valor de B= L/D está fuera de rango.Comprueba Variable info en el menú Options',B)
A=Ts-Tm
If (estado=0) and (A>5) Then CALL ERROR ('El valor de Ts-Tm está fuera de rango.Comprueba Variable info en el menú Options',estado)
If (estado=1) and (A>50) Then CALL ERROR ('El valor de Ts-Tm está fuera de rango.Comprueba Variable info en el menú Options',estado)
If (estado<>0) and (estado<>1) Then CALL ERROR ('La variable estado debe ser 0 para líquidos, 1 para gases',estado)
If (A>0) Then n=0.4 Else n=0.3
CFFI12=0.023*Re^0.8*Pr^n
End
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
