{$DS.}Function Ef_aletrecttriang(h,k,L,t) m=sqrt((2*h)/(k*t)) Ef_aletrecttriang=(1/(m*L))*(Bessel_I1(2*m*L)/Bessel_I0(2*m*L)) End