summaryrefslogtreecommitdiff
path: root/692/CH5/EX5.8/P5_8.sce
blob: 85146d0e652b2a0bb26d430becbb4ee23591ec2f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
//EXAMPLE 5.8
//Cicular convolution
clc;
clear;
g = [1 2 0 1];
disp(g,'g[n] = ');
h = [2 2 1 1];
disp(h,'h[n] = ');
G = fft(g,-1);
H = fft(h,-1);
Y = G.*H;
yc = fft(Y,1);//IDFT of Y
disp(yc,"circular convolution,yc = ")
n=0:3;
clf();
figure(0);
a = gca();
plot2d3(n,yc,2);
plot(n,yc,'r.');
a.x_location = 'origin';
a.y_location = 'origin';
poly1 = a . children (1) . children (1) ;
poly1.thickness = 3;
xtitle('Circular convolution','n','yc');