summaryrefslogtreecommitdiff
path: root/52/CH2/EX2.53.a/Example2_53_a.sce
blob: 7bc4991f5d4c922e4f82fd99d5a8b58a15309cf8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
//Example 2.53 (a)
//Z- transform of [3 1 2 5 7 0 1] 
clear;
clc ;
close ;
function[za]=ztransfer(sequence,n)
z=poly(0,'z','r')
za=sequence*(1/z)^n'
endfunction
x1=[3 1 2 5 7 0 1];
n=-3:3;
zz=ztransfer(x1,n);    
//Display the result in command window
disp (zz,"Z-transform of sequence is:");