summaryrefslogtreecommitdiff
path: root/52/CH8/EX8.10/Example8_10.sce
blob: 34376b327a8368fd6a0e833109002b3243b09028 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
//Example 8.10
//Develop a two band polyphase decomposition for the transfer function
//H(z)=z^2+z+2/z^2+0.8z+0.6
clear;
clc ;
close ;
z=%z;
HZ=(z^2+z+2)/(z^2+0.8*z+0.6);
HZa=horner(HZ,-z);
P0=0.5*(HZ+HZa);
P1=0.5*(HZ-HZa);
disp(P1/z,'+',P0,'H(z) =')