Blue, Exclusions -> False, Axes -> False], (*Plot the product of the f[t] and g[\[Tau]-t]*) Plot[f[t]*g[\[Tau] - t], {t, -5, 5}, PlotPoints -> 100, ClippingStyle...
.gif){kind=link}