Mercurial > hg > octave-terminal
changeset 3399:e665633c76af
[project @ 1999-12-22 22:11:50 by jwe]
author | jwe |
---|---|
date | Wed, 22 Dec 1999 22:11:51 +0000 |
parents | 0f515bc98460 |
children | 18366d37e7dd |
files | scripts/ChangeLog scripts/control/DEMOcontrol.m src/ChangeLog src/mkbuiltins |
diffstat | 4 files changed, 37 insertions(+), 26 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/ChangeLog +++ b/scripts/ChangeLog @@ -1,3 +1,7 @@ +1999-12-22 John W. Eaton <jwe@bevo.che.wisc.edu> + + * control/DEMOcontrol.m: Formatting tweaks. + 1999-12-17 John W. Eaton <jwe@bevo.che.wisc.edu> * mkdoc: Only delete spaces before @ characters at the beginning
--- a/scripts/control/DEMOcontrol.m +++ b/scripts/control/DEMOcontrol.m @@ -46,36 +46,35 @@ function DEMOcontrol () - disp(' O C T A V E C O N T R O L S Y S T E M S T O O L B O X') + puts ("O C T A V E C O N T R O L S Y S T E M S T O O L B O X") while (1) - clc + + clc (); + k = 0; + while (k > 8 || k < 1), - k = menu("Octave Controls System Toolbox Demo", ... - 'System representation', ... - 'Block diagram manipulations ', ... - 'Frequency response functions ', ... - 'State space analysis functions ', ... - 'Root locus functions ', ... - 'LQG/H2/Hinfinity functions ', ... - 'End'); - + k = menu ("Octave Controls System Toolbox Demo", + "System representation", + "Block diagram manipulations", + "Frequency response functions", + "State space analysis functions", + "Root locus functions", + "LQG/H2/Hinfinity functions", + "End"); endwhile - if(k == 1) - sysrepdemo - elseif (k == 2) - bddemo - elseif (k == 3) - frdemo - elseif (k == 4) - analdemo - elseif (k == 5) - rldemo - elseif (k == 6) - dgkfdemo - elseif (k == 7) - return - endif + + switch (k) + case (1) sysrepdemo (); + case (2) bddemo (); + case (3) frdemo (); + case (4) analdemo (); + case (5) rldemo (); + case (6) dgkfdemo (); + case (7) return; + endswitch + endwhile + endfunction