(*Function definitions*) boxcar[x_, {a_, b_}] := UnitStep[x - a] - UnitStep[x - b]; f[t_] := 0.7*boxcar[t, {-1/4, 1/4}]; g[t_] := Piecewise[ {{0, t < 0}...
.gif){kind=link}