Mercurial > forge
changeset 10300:8ffb34d12d44 octave-forge
control-devel: also test initial state vector
| author | paramaniac |
|---|---|
| date | Tue, 22 May 2012 05:46:13 +0000 |
| parents | 4f08f44a2705 |
| children | 170a50591786 |
| files | extra/control-devel/inst/moen4.m |
| diffstat | 1 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/extra/control-devel/inst/moen4.m Tue May 22 02:02:32 2012 +0000 +++ b/extra/control-devel/inst/moen4.m Tue May 22 05:46:13 2012 +0000 @@ -40,7 +40,7 @@ endfunction -%!shared SYS, X0, INFO, Ae, Be, Ce, De, Ke, Qe, Rye, Se +%!shared SYS, X0, INFO, Ae, Be, Ce, De, Ke, Qe, Rye, Se, X0e %! %! Y = [ 4.7661 5.5451 5.8503 5.3766 4.8833 5.4865 3.5378 5.3155 6.0530 4.3729 %! 4.7637 5.1886 5.9236 5.6818 4.8858 5.1495 3.5549 5.5329 6.0799 4.7417 @@ -282,6 +282,11 @@ %! 0.0008 %! -0.0005 ]; %! +%! X0e = [ -11.496422 +%! -0.718576 +%! -0.014211 +%! 0.500073 ]; # X0e is not from SLICOT +%! %!assert (SYS.A, Ae, 1e-4); %!assert (SYS.B, Be, 1e-4); %!assert (SYS.C, Ce, 1e-4); @@ -290,3 +295,4 @@ %!assert (INFO.Q, Qe, 1e-4); %!assert (INFO.Ry, Rye, 1e-4); %!assert (INFO.S, Se, 1e-4); +%!assert (X0, X0e, 1e-4);