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