summaryrefslogtreecommitdiff
path: root/1430/CH10/EX10.8/exa10_8.sce
blob: 4ae2c7320ba78844d0a16c7d9a87e360b2598e76 (plain)
1
2
3
4
5
6
7
8
9
10
11
//Example 10.8
// Pole-Zero Pattern of a Fifth Order Network
s=poly(0,'s')
num=s^4+16*s^3+164*s^2;
K=-5;
den=(s+32)*(s^2+36)*(s^2+40*s+400)
H=(num*K)/den;// transfer functions
z=roots(num); // zeros of network
p=roots(den);// poles of network
disp(z,"Zeros of network functions=")
disp(p,"Poles of network functions=")