summaryrefslogtreecommitdiff
path: root/758/CH6/EX6.37/Ex_6_37.sce
blob: 42711368ee808e76583eb407f414a09b3deb9e0c (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
26
27
28
29
30
31
32
33
34
//Example 6.37

clc;clear;close;
x=[1 0 0 1];
h=[4 3 2 1];
ylength=length(x);
y=0;
//Calculation of circular correlation
for n=1:ylength,
    y(n)=0;
    for k=1:ylength,
        l=k-n+1;
        if l <= 0 then
            l=l+ylength;
        end
     y(n)=y(n)+(x(k)*h(l));
     end
     y(n)=y(n)/4;
end

disp(x,'First Sequence is x(n): ');
disp(h,'Second Sequence is h(n): ');
disp(y,'Correlation Sequence y[n] is');
figure;
subplot(3,1,1);
plot2d3(x);
title('First Seqence x[n]:');ylabel('Amplitude-->');xlabel('n-->')
subplot(3,1,2);
plot2d3(h);
title('Second Seqence h[n]:');ylabel('Amplitude-->');xlabel('n-->')
subplot(3,1,3);
plot2d3(y);
title('Correlation Seqence y[n]:');ylabel('Amplitude-->');xlabel('n-->')