$SB1-X5.226
Function CFFI18(NuD_infinity,B)
If (B<=2) or (B>=60) Then CALL ERROR ('El valor de B=L/D está fuera de rango.Comprueba Variable info en el menú Options',B)
If (B<=20) Then
C=1
n=0.7
Else
C=6
n=1
EndIf
CFFI18=NuD_infinity*(1+C*B^(-n))
End
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
