summaryrefslogtreecommitdiff
path: root/52/CH3/EX3.16/Example3_16.sce
blob: 985fb2113dd39df9079e2a21b7394c25306e7eb0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//Example 3.16
//Program to Compute circular convolution of following sequences
//x1[n]=[1,1,2,1]
//x2[n]=[1,2,3,4]
clear;
clc ;
close ;
x1=[1,1,2,1];
x2=[1,2,3,4];
//DFT Computation
X1=fft(x1,-1);
X2=fft(x2,-1);
X3=X1.*X2;
//IDFT Computation
x3=fft(X3,1);
//Display sequence x3[n] in command window
disp(x3,"x3[n]=");