//Example 8.26
//Find the circular convolution of two sequences
clc;
clear all;
x1=[1 2 3 4];
x2=[1 -1 2 1];
X1=fft(x1,-1);
X2=fft(x2,-1);
X3=X1.*X2;
x3=fft(X3,1);
disp(x3,'The circular convolution is:');