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