{$DS.}Function CLFE14(Ra)
If (Ra<1E-10) and (Ra>1E12) Then CALL ERROR ('El valor de Ra está fuera de rango.Comprueba Variable info en el menú Options',Ra)
If (Ra<1E-2) Then
C=0.675
n=0.058
EndIf
If (Ra>=1E-2) and (Ra<1E2) Then
C=1.020
n=0.148
EndIf
If (Ra>=1E2) and (Ra<1E4) Then
C=0.850
n=0.188
EndIf
If (Ra>=1E4) and (Ra<1E7) Then
C=0.480
n=1/4
EndIf
If (Ra>=1E7) Then
C=0.125
n=1/3
EndIf
CLFE14=C*(Ra)^n
End
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
