1 files changed, 13 insertions, 0 deletions
diff --git a/29/CH9/EX9.10.16/exa9_10_16.sce b/29/CH9/EX9.10.16/exa9_10_16.sce
new file mode 100755
index 000000000..f8dbe0564
--- /dev/null
+++ b/29/CH9/EX9.10.16/exa9_10_16.sce
@@ -0,0 +1,13 @@
+//caption:determine_transfer_matrix
+//example 9.10.16
+//page 406
+clc;
+s=%s
+A=[1 -2;4 -5]
+B=[2;1]
+C=[1 1]
+[r c]=size(A);//size of matrix A
+p=s*eye(r,c)-A;//s*I-A where I is identity matrix
+r=inv(p)//inverse of sI-A
+G=C*r*B//transfer matrix
+disp(G,"transfer matrix=")