home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l460 / 3.ddi / DEMOS.DI$ / SPECIALS.M < prev    next >
Encoding:
Text File  |  1993-03-07  |  818 b   |  35 lines
  1. function specials
  2. %SPECIALS List of special demonstrations.
  3. %    SPECIALS, by itself, presents a list of special demonstrations.
  4.  
  5. %    Copyright (c) 1984-93 by The MathWorks, Inc.
  6.    
  7. % Labels
  8. labels = str2mat(...
  9.    'Vibrating Logo', ...
  10.    'Game of Life', ...
  11.    'Viewing a Penny', ...
  12.    'Chaotic Attractor', ...
  13.    'Earth''s Topography', ...
  14.    'Superquadrics');
  15. c = computer;
  16. if c(1:2) ~= 'PC' & c(1:2) ~= 'MA'
  17.    labels = str2mat(labels, ...
  18.       'Hurricane Andrew');
  19. end
  20.  
  21. % Callbacks
  22. callbacks = [ ...
  23.    'vibes          '
  24.    'life           '
  25.    'penny          '
  26.    'lorenz         '
  27.    'earthmap       '
  28.    'sqdemo         '];
  29. if c(1:2) ~= 'PC' & c(1:2) ~= 'MA'
  30.    callbacks = [callbacks; ...
  31.    'andrew         '];
  32. end
  33.  
  34. choices('SPEC', 'MathWorks Specials', labels, callbacks);
  35.