{$DS.}Function CLFE1(Ra)
If (Ra<10000) or (Ra>1E13) Then CALL ERROR ('El valor de Ra está fuera de rango.Comprueba Variable info en el menú Options',Ra)
If (Ra>=10000) and (Ra<1E9) Then
C=0.59
n=1/4
Else
C=0.10
n=1/3
EndIf
CLFE1=C*Ra^n
End
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
