{$DS.}Function CLFI5(Ra,C,theta,theta_crit,Pr)
If (theta>=theta_crit) or (theta<=0) Then CALL ERROR ('El valor de theta está fuera de rango.Comprueba Variable info en el menú Options',theta)
If (C>10) 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
Nu#90=max(A,B,D)
Nu#0=0.069*Ra^(1/3)*Pr^0.074
CLFI5=Nu#0*((Nu#90*(sin(theta_crit))^(1/4))/Nu#0)^(theta/theta_crit)
End
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
