home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / octa21eb.zip / octave / SCRIPTS.ZIP / scripts.fat / control / DMOcntrl.m < prev    next >
Text File  |  1999-04-29  |  2KB  |  58 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.         'Root locus functions ', ...
  37.     'LQG/H2/Hinfinity functions ', ...
  38.         'End');
  39.  
  40.     endwhile
  41.     if(k == 1)
  42.       sysrepdm
  43.     elseif (k == 2)
  44.       bddemo
  45.     elseif (k == 3)
  46.       frdemo
  47.     elseif (k == 4)
  48.       analdemo
  49.     elseif (k == 5)
  50.       rldemo
  51.     elseif (k == 6)
  52.       dgkfdemo
  53.     elseif (k == 7)
  54.       return
  55.     endif
  56.   endwhile
  57. endfunction
  58.