plot[t*e^-t*Heaviside(t),t=0..10]