initial commit / add all books

1 files changed, 23 insertions, 0 deletions

diff --git a/122/CH9/EX9.7/exa9_7.sce b/122/CH9/EX9.7/exa9_7.sce
new file mode 100755
index 000000000..1820e9076
--- /dev/null
+++ b/122/CH9/EX9.7/exa9_7.sce
@@ -0,0 +1,23 @@
+// Example 9-7
+// Finding e to the power At using laplace transforms
+
+clear; clc;
+xdel(winsid());  //close all windows
+
+// please edit the path
+// cd "<path for the dependencies>";
+// exec("pf_residu.sci");
+// exec("ilaplace.sci");
+  
+s = %s;
+A = [0 1; 0 -2];
+L = inv(s*eye(2,2) - A);
+disp(L, 'inv(sI - A) =');
+
+// Find the Inverse Laplace transform
+for i = 1:2
+  for j = 1:2
+    phi(i,j) = ilaplace(L(i,j));
+  end;
+end;
+disp(phi,'e^At =');