summaryrefslogtreecommitdiff
path: root/3812/CH10/EX10.53.c/10_53_c.sce
blob: 9a7bbabe5f16e323a38e9a0399c744ff677402c5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
//example 10_53<c>:
//Find unilateral Z transform
clc;
function[za]=ztransfer(sequence,n)
z=poly(0,'z','r')
za=sequence*(1/z)^n'
endfunction
x=[0,0,1,2,5,4,0,3];
n1=0:length(x)-1;
X=ztransfer(x,n1);
disp(X,'X(z)=');
funcprot(0);