home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / octa21eb.zip / octave / SCRIPTS.ZIP / scripts.fat / control / cntrldm.m < prev    next >
Text File  |  1999-04-29  |  2KB  |  61 lines
  1. # Copyright (C) 1996 A. Scottedward Hodel
  2. #
  3. # This file is part of Octave. 
  4. #
  5. # Octave is free software; you can redistribute it and/or modify it
  6. # under the terms of the GNU General Public License as published by the
  7. # Free Software Foundation; either version 2, or (at your option) any
  8. # later version.
  9. #
  10. # Octave is distributed in the hope that it will be useful, but WITHOUT
  11. # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  12. # FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  13. # for more details.
  14. #
  15. # You should have received a copy of the GNU General Public License
  16. # along with Octave; see the file COPYING.  If not, write to the Free
  17. # Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  18.  
  19. function DMOcntrl()
  20. # Controls toolbox demo.
  21. # Demo programs: bddemo.m, frdemo.m, analdemo.m, moddmeo.m, rldemo.m
  22. #  
  23. # Written by David Clem August 15, 1994
  24.  
  25.   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')
  26.  
  27.   while (1)
  28.     clc
  29.     k = 0;
  30.     while (k > 8 || k < 1),
  31.       k = menu("Octave Controls System Toolbox Demo", ...
  32.     'System representation', ...
  33.         'Block diagram manipulations ', ...
  34.         'Frequency response functions ', ...
  35.         'State space analysis functions ', ...
  36.         'System model manipulations ', ...
  37.         'Root locus functions ', ...
  38.     'LQG/H2/Hinfinity functions ', ...
  39.         'End');
  40.  
  41.     endwhile
  42.     if(k == 1)
  43.       sysrepdm
  44.     elseif (k == 2)
  45.       bddemo
  46.     elseif (k == 3)
  47.       frdemo
  48.     elseif (k == 4)
  49.       analdemo
  50.     elseif (k == 5)
  51.       moddemo
  52.     elseif (k == 6)
  53.       rldemo
  54.     elseif (k == 7)
  55.       dgkfdemo
  56.     elseif (k == 8)
  57.       return
  58.     endif
  59.   endwhile
  60. endfunction
  61.