summaryrefslogtreecommitdiff
path: root/3812/CH10/EX10.12.b/10_12b.sce
blob: 2d25e8888a923b52da50d1ed26518ce6cb3d420b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
//example 10.12(b) 
//determine Z transform 
clc;
function[za]=ztransfer(sequence,n)
z=poly(0,'z','r')
za=sequence*(1/z)^n'
endfunction
x=[1,2,6,-2,0,3];
n1=-2:length(x)-3;
X=ztransfer(x,n1);
disp(X,'X(z)=');
funcprot(0);