summaryrefslogtreecommitdiff
path: root/67/CH7/EX7.7/example77.sce
blob: 9f4aaa62620c01a8a18424ca963e6fb4ba64f64c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//Example 7.7
clc;
syms n z;
X1=0;
X2=0;
for i=0:2:4
    x1=(1/2)^i;
    X1=X1+x1*z^-i;
end
for i=1:2:5
    x2=(1/3)^i;
    X2=X2+x2*z^-i;
end
x3=2^n;
X3=symsum(x3*(z^-n),n,-%inf,1);
X=X1+X2+X3;  
disp(X,'X(z)=');