New in Wolfram Mathematica 7: Enhanced Fourier Analysis  previous | next 
Compute Successive Convolutions with the Unit Box
Compute several successive convolutions with UnitBox.

Click for copyable input
f0 = UnitBox[t0];

f1 = Convolve[f0, f0, t0, t1];

f2 = Convolve[f1, f1, t1, t2];

f3 = Convolve[f2, f2, t2, t3];

Click for copyable input
Plot[Evaluate[{f0, f1, f2, f3} /. {t0 -> x, t1 -> x, t2 -> x, 

    t3 -> x}],

    {x, -3, 3}, Exclusions -> None]