Mercurial > hg > octave-nkf
diff scripts/control/mb.m @ 3238:041ea33fbbf4
[project @ 1999-03-26 17:48:16 by jwe]
author | jwe |
---|---|
date | Fri, 26 Mar 1999 17:48:35 +0000 |
parents | 98e15955107e |
children | 6dd06d525de6 |
line wrap: on
line diff
--- a/scripts/control/mb.m +++ b/scripts/control/mb.m @@ -19,18 +19,18 @@ # I think that this m-file can be deleted # a.s.hodel@eng.auburn.edu - 4 Dec. 1998 -Ap = [0 1;1960 0]; +Ap = [0, 1;1960, 0]; Bp = [0;-6261]; -Cp = [1 0]; +Cp = [1, 0]; Dp = 0; Gp = ss2sys(Ap,Bp,Cp,Dp,0,2,0,[],"delta_i","delta_y"); Gp = syssetsignals(Gp,"st","delta_x1",1); Gp = syssetsignals(Gp,"st","delta_x2",2); -Ak = [-20 1;-22160 -200]; +Ak = [-20, 1;-22160, -200]; Bk = [-20;-2160]; -Ck = [-3.5074 -0.0319]; +Ck = [-3.5074, -0.0319]; Dk = 0; Gk = ss2sys(Ak,Bk,Ck,Dk,0,2,0,[],"y","i"); @@ -39,11 +39,11 @@ Gc = sysgroup(Gp,Gk); -Gc = sysdup(Gc,[],[1 2]); +Gc = sysdup(Gc,[],[1, 2]); # Gc = sysscale(Gc,[],diag([1,1,1,1])); -Gc = sysconnect(Gc,[1 2],[4 3]); -Gc = sysprune(Gc,1,[1 2]); +Gc = sysconnect(Gc,[1, 2],[4, 3]); +Gc = sysprune(Gc,1,[1, 2]); disp("after pruning, closed loop system is") sysout(Gc)