{$DS.}Function Ef_aletrectparabolic(h,k,L,t) m=sqrt((2*h)/(k*t)) Ef_aletrectparabolic=(2/(sqrt(4*(m*L)^2+1)+1)) End