summaryrefslogtreecommitdiff
path: root/758/CH9/EX9.5.b/Ex_9_5_b.sce
blob: 4bd62bbd16410e37c60c761fbb208c83862cee36 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
//Example 9.5.b
clc;clear;close;
z=poly(0,'z');
s=poly(0,'s');
Hz=3*z*(5*z-2)/(z+1/2)/(3*z-1);
H=pfss(Hz/z);
for k=1:length(H)
    H(k)=clean(H(k));
    H1(k)=z*horner(H(k),z);
end
disp(Hz,'System Function H(z)=');
disp(H1,'System Function for parallel realisation Hk(z)=');