1 files changed, 13 insertions, 0 deletions
diff --git a/29/CH11/EX11.38/exa11_38.sce b/29/CH11/EX11.38/exa11_38.sce
new file mode 100755
index 000000000..7ab10215a
--- /dev/null
+++ b/29/CH11/EX11.38/exa11_38.sce
@@ -0,0 +1,13 @@
+//caption:determine_transfer_function
+//example 11_38
+//page 513
+s=%s
+A=[-5 1;-6 0]
+B=[1;2]
+C=[2 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+D//transfer matrix
+disp(G,"transfer matrix=")