path: root/40/CH8/EX8.5c/Exa_8_5c.sce

//Regular convolution
xn=[1 2 1 0];
yn=[1 2 1 0 0 0 0];
YDFT=dft(yn,-1)
SDFT=YDFT.*YDFT
sn=dft(SDFT,1)
sn1=convol(xn,xn)