summaryrefslogtreecommitdiff
path: root/1151/CH8/EX8.22/example22.sce
blob: bbe97f34747a80ec466f67b9371cfc2d0513d113 (plain)
1
2
3
4
5
6
7
8
9
s=%s'
A =[0 1 0;0 0 1;0 -2 -3]
B =[0;0;1]
x=[1 2 0]
[r c]= size (A)
h=s*eye(r,c)-A // s*I-A
q=inv(h)
c=x*q*B;
disp(c,"required transfer function =")