summaryrefslogtreecommitdiff
path: root/2048/CH11/EX11.2/recursion_ex1.sce
diff options
context:
space:
mode:
Diffstat (limited to '2048/CH11/EX11.2/recursion_ex1.sce')
-rwxr-xr-x2048/CH11/EX11.2/recursion_ex1.sce12
1 files changed, 12 insertions, 0 deletions
diff --git a/2048/CH11/EX11.2/recursion_ex1.sce b/2048/CH11/EX11.2/recursion_ex1.sce
new file mode 100755
index 000000000..aca798303
--- /dev/null
+++ b/2048/CH11/EX11.2/recursion_ex1.sce
@@ -0,0 +1,12 @@
+// Recursive computation of Ej and Fj for the system presented in Example 11.2 on page 408.
+// 11.2
+
+exec('poladd.sci',-1);
+exec('polsize.sci',-1);
+exec('recursion.sci',-1);
+
+C = [1 0.5]; dC = 1;
+A = [1 -0.6 -0.16]; dA = 2;
+j = 2;
+[Fj,dFj,Ej,dEj] = recursion(A,dA,C,dC,j)
+