diff options
Diffstat (limited to '2048/CH4/EX4.10/respol6.sce')
-rwxr-xr-x | 2048/CH4/EX4.10/respol6.sce | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/2048/CH4/EX4.10/respol6.sce b/2048/CH4/EX4.10/respol6.sce new file mode 100755 index 000000000..aad80d70b --- /dev/null +++ b/2048/CH4/EX4.10/respol6.sce @@ -0,0 +1,15 @@ +// Partial fraction expansion for Example 4.30
+// 4.10
+
+// 3 - (5/6)z^-1 3z^2 - (5/6)z
+// G(z) = --------------------------- = --------------------------
+// (1-(1/4)z^-1)(1-(1/3)z^-1) (z - (1/4))(z - (1/3))
+
+// No equivalent of residuez
+
+exec('respol.sci',-1);
+exec('flip.sci',-1);
+
+num = [3 -5/6 0];
+den = convol([1 -1/4],[1 -1/3]);
+[res,pol,q] = respol(num,den)
|