{$DS.}Function CLFI2(Ra,C) If (Ra<1E2) or (Ra>2E7) Then CALL ERROR ('El valor de Ra está fuera de rango.Comprueba Variable info en el menú Options',Ra) If (C<1) or (C>110) Then CALL ERROR ('El valor de C está fuera de rango.Comprueba Variable info en el menú Options',C) A=0.0605*Ra^(1/3) B=(1+((0.104*Ra^0.293)/(1+(6310/Ra)^1.36))^3)^(1/3) D=0.242*(Ra*C)^0.272 CLFI2=max(A,B,D) End