{$DS.}Function CLFI10(Ra_l,De,Di,Te,Ti,k,Pr,L)
delta=(De-Di)/2
Ra=(Ra_l*(ln(De/Di))^4)/(delta^3*(Di^(-3/5)+De^(-3/5))^5)
If (Ra<1E2) or (Ra>1E7) Then CALL ERROR ('El valor de Ra* está fuera de rango.Comprueba Variable info en el menú Options',Ra)
kef=k*0.386*((Ra*Pr)/(0.861+Pr))^(1/4)
CLFI10=2*pi*kef*L*(Ti-Te)/ln(De/Di)
End
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
