{$DS.}Function CLFE5(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<1E5) and (Ra>3E10) Then CALL ERROR ('El valor de Ra está fuera de rango.Comprueba Variable info en el menú Options',Ra)
If (orientacion=1) and (Ra<300000) Then CALL ERROR ('El valor de Ra está fuera de rango.Comprueba Variable info en el menú Options',Ra)
If (orientacion=0) and (Ra<2E7) Then
C=0.54
n=1/4
EndIf
If (orientacion=0) and (Ra>=2E7) Then
C=0.15
n=1/3
EndIf
If (orientacion=1) and (Ra<=3E10) Then
C=0.27
n=1/4
EndIf
CLFE5=C*(Ra)^n
End
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
