{$DS.}Function CLFE4(GrNu,Pr,tipo)
If (tipo<>0) and (tipo<>1) Then CALL ERROR ('El valor de tipo deber 0 para nusselt local y 1 para nusselt medio',tipo)
A=GrNu*Pr
If (A<100000) Then CALL ERROR ('El valor de GrNu*Pr está fuera de rango.Comprueba Variable info en el menú Options',A)
If (A>1E11) and (A<2E13) Then CALL ERROR ('El valor de GrNu*Pr está fuera de rango.Comprueba Variable info en el menú Options',A)
If (A>1E16) Then CALL ERROR ('El valor de GrNu*Pr está fuera de rango.Comprueba Variable info en el menú Options',A)
If (tipo=0) and (A<=1E11) Then
C=0.60
n=1/5
EndIf
If (tipo=0) and (A>=2E13) Then
C=0.568
n=0.22
EndIf
If (tipo=1) and (A<=1E11) Then
C=0.75
n=1/5
EndIf
If (tipo=1) and (A>=2E13) Then
C=0.645
n=0.22
EndIf
CLFE4=C*(GrNu*Pr)^n
End
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
