{$DS.}Function CLFE9(Ra,theta,Pr)
If (Ra<=100000) or (Ra>=1E11) Then CALL ERROR ('El valor de Ra está fuera de rango.Comprueba Variable info en el menú Options',Ra)
Gr=Ra/Pr
If (theta>=88) Then CALL ERROR ('El valor de theta está fuera de rango.Comprueba Variable info en el menú Options',theta)
If (theta<15) Then
Grc=5E9
EndIf
If (theta>=15) and (theta<30) Then
Grc=5E9-((5E9-1E9)/15)*(theta-15)
EndIf
If (theta>=30) and (theta<60) Then
Grc=1E9-((1E9-1E8)/30)*(theta-30)
EndIf
If (theta>=60) and (theta<75) Then
Grc=1E8-((1E8-1E6)/15)*(theta-60)
EndIf
If (theta>=75) Then
Grc=1E6
EndIf
If (Gr>=Grc) Then CALL ERROR ('El valor de Gr es mayor que Gr crítico.Comprueba Variable info en el menú Options',Gr)
CLFE9=0.56*(Ra*cos(theta))^(1/4)
End
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
