$SB1-X5.226
A Function CFFE14(Re,Pr,B)
If (Re<=1) or (Re>=1E6) Then CALL ERROR ('El valor de Re está fuera de rango.Comprueba Variable info en el menú Options',Re)
If (Pr<=0.7) or (Pr>=500) Then CALL ERROR ('El valor de Pr está fuera de rango.Comprueba Variable info en el menú Options',Pr)
If (Pr<=10) Then n=0.37 Else n=0.36
If (Re>1) and (Re<=40) Then
C=0.75
m=0.4
EndIf
If (Re>40) and (Re<=1000) Then
C=0.51
m=0.5
EndIf
If (Re>1000) and (Re<=2E5) Then
C=0.25
m=0.6
EndIf
If (Re>2E5) and (Re<1E6) Then
C=0.076
m=0.7
EndIf
CFFE14=C*(Re^m)*(Pr^n)*(B^(1/4))
End
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
