{$DS.}Function Ef_aletcircrectang(h,k,r_1,r_2,t)
m=sqrt((2*h)/(k*t))
r_2c=r_2+(t/2)
A=((2*r_1)/m)/(r_2c^2-r_1^2)
B=(Bessel_I1(m*r_2c)*Bessel_K1(m*r_1))-(Bessel_I1(m*r_1)*Bessel_K1(m*r_2c))
C=(Bessel_I0(m*r_1)*Bessel_K1(m*r_2c))+(Bessel_I1(m*r_2c)*Bessel_K0(m*r_1))
Ef_aletcircrectang=(A*B)/C
End
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
