summaryrefslogtreecommitdiff
path: root/40/CH7/EX7.7/Exa_7_7.sce
blob: fcaed37246ca0a685cd23dcc9068ab7b2aecf094 (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
//Zero interpolation and spectrum replication
XF=[0 1 2 1];
X1F=[XF XF XF 0];
YF=[X1F X1F];
DF=0.5*[XF XF 0];
GF=0.5*[XF 0 XF 0 XF 0];
f=-0.2:0.1:1;
f1=-0.1:0.05:1.15;
f2=-0.4:0.2:1.2;
f3=-0.2:0.1:1.2;
length(f3),length(GF)
a=gca();
a.y_location="origin";
subplot(211);
plot2d(f,X1F);
ylabel('X1F');
subplot(212);
a.y_location="origin";
plot2d(f1,YF);
ylabel('YF');
xset('window',1);
b=gca();
b.y_location="origin";
subplot(211);
plot2d(f2,DF);
ylabel('DF');
subplot(212);
b.y_location="origin";
plot2d(f3,GF);
ylabel('GF');