{$DS.}Function CLFI6(Ra,C,theta,theta_crit)
If (theta>=theta_crit) or (theta<=0) Then CALL ERROR ('El valor de theta está fuera de rango.Comprueba Variable info en el menú Options',theta)
If (C<=10) Then CALL ERROR ('El valor de C está fuera de rango.Comprueba Variable info en el menú Options',C)
A=1-(1708/Ra*cos(theta))
If (A<0) Then
A=0
EndIf
B=((Ra*cos(theta)/5830)^(1/3))-1
If (B<0) Then
B=0
EndIf
CLFI6=1+1.44*A*(1-((1708*(sin(1.8*theta))^1.6)/(Ra*cos(theta))))+B
End
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
