summaryrefslogtreecommitdiff
path: root/29/CH11/EX11.38/exa11_38.sce
blob: 7ab10215ae9190d73f8ae03f94f316b96b0f2bbd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
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=")