summaryrefslogtreecommitdiff
path: root/40/CH6/EX6.4/Exa_6_4.sce
blob: 04548d4606a46789a6365fb89cda84237a8eda66 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
//linear phase filters
z=%z
H1Z=((z^3)+2*(z^2)+2*z+1)/(z^3);
//from pole zero diagram its not a linear phase filter
H2Z=(z^4+4.25*z^2+1)/(z^4);
xset('window',1);
plzr(H2Z);
//from pole zero diagram and LPF
// characteristics its a linear phase filter
H3Z=((z^4+2.5*z^3-2.5*z-1)/(z^4));
xset('window',2);
plzr(H3Z);
//from pole zero diagram and LPF
// characteristics its a linear phase filter