162/CH6/EX6.1.a/example61a.sce


1
2
3
4
5
6
7
8
9
10
11

//Example 6.1a
clc;
function[za]=ztransfer(sequence,n)
    z=poly(0,'z','r')
    za=sequence*(1/z)^n'
endfunction
x=[1,2,3,4,5,6,7];
n1=0:length(x)-1;
X=ztransfer(x,n1);
disp(X,'X(z)=');
funcprot(0);