{$DS.}Function CLFE10(Ra,theta,Pr)
If (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<15) or (theta>75) Then CALL ERROR ('El valor de theta está fuera de rango.Comprueba Variable info en el menú Options',theta)
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 (Gr<=Grc) Then CALL ERROR ('El valor de Gr es menor que Gr crítico.Comprueba Variable info en el menú Options',Gr)
Rac=Grc*Pr
CLFE10=0.145*(Ra^(1/3)-Rac^(1/3))+0.56*(Rac*cos(theta))^(1/4)
End
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
