{$DS.}Function CLFE18(Ra,Pr) If (Ra<=3E5) or (Ra>=8E8) Then CALL ERROR ('El valor de Ra está fuera de rango.Comprueba Variable info en el menú Options',Ra) A=2+0.50*Ra^(1/4) If (A<10) or (A>90) Then CALL ERROR ('El valor de nusselt está fuera de rango.Comprueba Variable info en el menú Options',A) CLFE18=A End