1 files changed, 13 insertions, 0 deletions
diff --git a/29/CH9/EX9.10.17/exa9_10_17.sce b/29/CH9/EX9.10.17/exa9_10_17.sce
new file mode 100755
index 000000000..70fc9f052
--- /dev/null
+++ b/29/CH9/EX9.10.17/exa9_10_17.sce
@@ -0,0 +1,13 @@
+//caption:determine_transfer_matrix
+//example 9.10.17
+//page 407
+s=%s
+A=[-3 1;0 -1]
+B=[1;1]
+C=[1 1]
+D=0;
+[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=")