Convolution

Ther convolution of [Maple Math] and [Maple Math] , denoted by f*g( t ) , is given by

f*g( t ) =[Maple Math]

Convolution is a useful concept and can be found in various places in applied mathematics since it plays an important role in for instance heat conduction, wave motion and time series analysis. Here we intend to give an interpretation of f*g by animation of the convolution product of
1) two rectangular windows where [Maple Math] and [Maple Math] and

2) a rectangular window [Maple Math] with an exponential function [Maple Math].

> restart: alias(u=Heaviside):

Let us define the convolution product h= f*g by the integral

> h:=t->Int(f(tau)*g(t-tau),tau=0..t):

> 'h(t)'=h(t);

[Maple Math]

The convolution of [Maple Math] and [Maple Math], where u(t) is the Heaviside unit step function, is

> f:=t->u(t)-u(t-1):g:=t->u(t)-u(t-2):

> 'h(t)'=h(t);

[Maple Math]

The graph of this convolution product is shown in Figure 11

> plot(value(h(t)),t=0..3,labels=[`t`, `h(t)`],color=blue);

[Maple Plot]

Figure 11 The convolution product [Maple Math],

[Maple Math], [Maple Math]

If we move the green rectangle (window) from left to right towards the stationary red window on Figure 12,

[Maple Plot]

Figure 12 Rectangular windows

the overlapping area will increase as the green window crosses into the red window. Up until t = 1, the area increases proportional to t, see Figure 11.

> assume(t >0, t<1);

> 'h(t)'=value(h(t));

[Maple Math]

When the right side of the green window is in the region [Maple Math][Maple Math], the two windows overlap completely and the value of the convolution product [Maple Math].

> assume(t>1,t<2):

> 'h(t)'=value(h(t));

[Maple Math]

For [Maple Math][Maple Math] the overlapping area drop linearly from 1 to 0 . Hence on [Maple Math][Maple Math] [2, 3] , [Maple Math].

> assume(t>2,t<3):

> 'h(t)'=value(h(t));

[Maple Math]

After t = 3 there is no longer overlap and

> assume(t>3):

> 'h(t)'=value(h(t));

[Maple Math]

Figure 13 shows the animation of the convolution product of [Maple Math] and [Maple Math]

> t:='t':

> Convolution(f,g);

[Maple Math]

[Maple Plot]

Figure 13 Animation of the convolution product f*g .

[Maple Math],[Maple Math]

The counter displays the value of the overlapping area between the green and the red windows. The green disk moves on the blue convolution curve [Maple Math]and indicate graphically the value of [Maple Math].

Figure 14 shows the animation of the convolution product of a rectangular window with an exponential function.

[Maple Math].

> g:=t->exp(-t):

> Convolution(f,g);

[Maple Math]

[Maple Plot]

Figure 14 Animation of the convolution product f*g .

[Maple Math],[Maple Math]

The convolution product reach a maximum when the right hand side of the red rectangle is at t = 1 and the green disk is at the top of the convolution curve h(t).