{$DS.}Function Ef_aletrectrectang(h,k,L,t) m=sqrt((2*h)/(k*t)) L_c=L+(t/2) arg=m*L_c*Convert(rad,deg) Ef_aletrectrectang=(1/(m*L_c))*tanh(arg) End