PageRenderTime 42ms CodeModel.GetById 14ms RepoModel.GetById 1ms app.codeStats 0ms

/tags/R2008-08-24/main/odepkg/inst/odeexamples.m

#
MATLAB | 53 lines | 25 code | 4 blank | 24 comment | 5 complexity | 565fa313738c3ff3a6d22666885a4ae7 MD5 | raw file
Possible License(s): GPL-2.0, BSD-3-Clause, LGPL-2.1, GPL-3.0, LGPL-3.0 
    

  1. %# Copyright (C) 2007-2008, Thomas Treichl <treichl@users.sourceforge.net>
    2. 

  2. %# OdePkg - A package for solving ordinary differential equations and more
    3. 

  3. %#
    4. 

  4. %# This program is free software; you can redistribute it and/or modify
    5. 

  5. %# it under the terms of the GNU General Public License as published by
    6. 

  6. %# the Free Software Foundation; either version 2 of the License, or
    7. 

  7. %# (at your option) any later version.
    8. 

  8. %#
    9. 

  9. %# This program is distributed in the hope that it will be useful,
    10. 

  10. %# but WITHOUT ANY WARRANTY; without even the implied warranty of
    11. 

  11. %# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    12. 

  12. %# GNU General Public License for more details.
    13. 

  13. %#
    14. 

  14. %# You should have received a copy of the GNU General Public License
    15. 

  15. %# along with this program; if not, write to the Free Software
    16. 

  16. %# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
    17. 

  17. 

  18. %# -*- texinfo -*-
    19. 

  19. %# @deftypefn {Function File} {[@var{}] =} odeexamples (@var{})
    20. 

  20. %# Open the differential equations examples menu and allow the user to select a submenu of ODE, DAE, IDE or DDE examples.
    21. 

  21. %# @end deftypefn
    22. 

  22. 

  23. function [] = odeexamples (varargin)
    24. 

  24. 

  25.   vfam = 1; while (vfam > 0)
    26. 

  26.     clc;
    27. 

  27.     fprintf (1, ...
    28. 

  28.       ['OdePkg examples main menu:\n', ...
    29. 

  29.        '==========================\n', ...
    30. 

  30.        '\n', ...
    31. 

  31.        '   (1) Open the ODE examples menu\n', ...
    32. 

  32.        '   (2) Open the DAE examples menu\n', ...
    33. 

  33.        '   (3) Open the IDE examples menu\n', ...
    34. 

  34.        '   (4) Open the DDE examples menu\n', ...
    35. 

  35.        '\n']);
    36. 

  36.     vfam = input ('Please choose a number from above or press <Enter> to return: ');
    37. 

  37.     switch (vfam)
    38. 

  38.       case 1
    39. 

  39.         odepkg_examples_ode;
    40. 

  40.       case 2
    41. 

  41.         odepkg_examples_dae;
    42. 

  42.       case 3
    43. 

  43.         odepkg_examples_ide;
    44. 

  44.       case 4
    45. 

  45.         odepkg_examples_dde;
    46. 

  46.       otherwise
    47. 

  47.         %# have nothing to do
    48. 

  48.     end
    49. 

  49.   end
    50. 

  50. 

  51. %# Local Variables: ***
    52. 

  52. %# mode: octave ***
    53. 

  53. %# End: ***
    54. 

  54.