diff options
Diffstat (limited to '1430/CH10/EX10.8/exa10_8.sce')
| -rw-r--r-- | 1430/CH10/EX10.8/exa10_8.sce | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/1430/CH10/EX10.8/exa10_8.sce b/1430/CH10/EX10.8/exa10_8.sce new file mode 100644 index 000000000..4ae2c7320 --- /dev/null +++ b/1430/CH10/EX10.8/exa10_8.sce @@ -0,0 +1,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=")
|