{$DS.}Function CLFE6(Ra,orientacion)
If (orientacion<>0) and (orientacion<>1) Then CALL ERROR ('El valor de orientacion deber 0 para superficie superior caliente o inferior fría y 1 para superficie inferior caliente o superior fría',orientacion)
If (Ra>1E11) Then CALL ERROR ('El valor de Ra está fuera de rango.Comprueba Variable info en el menú Options',Ra)
If (orientacion=1) and (Ra<1E6) Then CALL ERROR ('El valor de Ra está fuera de rango.Comprueba Variable info en el menú Options',Ra)
If (orientacion=0) and (Ra<2E8) Then
C=0.13
n=1/3
EndIf
If (orientacion=0) and (Ra>=2E8) Then
C=0.16
n=1/3
EndIf
If (orientacion=1) and (Ra<=1E11) Then
C=0.58
n=1/5
EndIf
CLFE6=C*(Ra)^n
End
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
