summaryrefslogtreecommitdiff
path: root/3812/CH2/EX2.16/2_16.sce
blob: 90d541a797d3145d342e88275a824acd99e82c30 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
//Example 2_15
//Find the convolution of two sequences
clc;
n=-8:1/1000:8;
for i=1:length(n)
x(i)=exp(-n(i)^2);
if n(i)<0 then
h(i)=exp(n(i));
else
h(i)=exp(-n(i));
end
end
y=convol(x,h);
figure
plot2d3(n,h);
title('Impulse responce');
figure
plot2d3(n,x);
title('Input signal');
figure
n1=-16:1/1000:16
plot2d3(n1,y);
title('Output signal');