summaryrefslogtreecommitdiff
path: root/2048/CH4/EX4.6/respol1.sce
diff options
context:
space:
mode:
Diffstat (limited to '2048/CH4/EX4.6/respol1.sce')
-rwxr-xr-x2048/CH4/EX4.6/respol1.sce13
1 files changed, 13 insertions, 0 deletions
diff --git a/2048/CH4/EX4.6/respol1.sce b/2048/CH4/EX4.6/respol1.sce
new file mode 100755
index 000000000..1b5dba73b
--- /dev/null
+++ b/2048/CH4/EX4.6/respol1.sce
@@ -0,0 +1,13 @@
+// Partial fraction expansion for Example 4.24
+// 4.6
+
+// 2z^2 + 2z
+// G(z) = ---------------
+// z^2 + 2z - 3
+
+exec('respol.sci',-1);
+exec('flip.sci',-1);
+
+num = [2 2 0];
+den = [1 2 -3];
+[res,pol] = respol(num,den) //respol is a user defined function