summaryrefslogtreecommitdiff
path: root/67/CH7/EX7.5/example75.sce
blob: 46d3707d6495f3270b389a5d60411dee9850b185 (plain)
1
2
3
4
5
6
7
8
9
//Example 7.5
clc;
syms Wo n z;
x1=exp(sqrt(-1)*Wo*n);
X1=symsum(x1*(z^-n),n,0,%inf);
x2=exp(-sqrt(-1)*Wo*n);
X2=symsum(x2*(z^-n),n,0,%inf);
X=(X1+X2)/2;
disp(X,'X(z)=');