X-Git-Url: https://git.creatis.insa-lyon.fr/pubgit/?p=CreaPhase.git;a=blobdiff_plain;f=octave_packages%2Fodepkg-0.8.2%2Fodeexamples.m;fp=octave_packages%2Fodepkg-0.8.2%2Fodeexamples.m;h=ef1d7c3a8c3dac56e6cbc427e86afa24a5a186b1;hp=0000000000000000000000000000000000000000;hb=f5f7a74bd8a4900f0b797da6783be80e11a68d86;hpb=1705066eceaaea976f010f669ce8e972f3734b05 diff --git a/octave_packages/odepkg-0.8.2/odeexamples.m b/octave_packages/odepkg-0.8.2/odeexamples.m new file mode 100644 index 0000000..ef1d7c3 --- /dev/null +++ b/octave_packages/odepkg-0.8.2/odeexamples.m @@ -0,0 +1,53 @@ +%# Copyright (C) 2007-2012, Thomas Treichl +%# OdePkg - A package for solving ordinary differential equations and more +%# +%# This program is free software; you can redistribute it and/or modify +%# it under the terms of the GNU General Public License as published by +%# the Free Software Foundation; either version 2 of the License, or +%# (at your option) any later version. +%# +%# This program is distributed in the hope that it will be useful, +%# but WITHOUT ANY WARRANTY; without even the implied warranty of +%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +%# GNU General Public License for more details. +%# +%# You should have received a copy of the GNU General Public License +%# along with this program; if not, write to the Free Software +%# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA + +%# -*- texinfo -*- +%# @deftypefn {Function File} {[@var{}] =} odeexamples (@var{}) +%# Open the differential equations examples menu and allow the user to select a submenu of ODE, DAE, IDE or DDE examples. +%# @end deftypefn + +function [] = odeexamples (varargin) + + vfam = 1; while (vfam > 0) + clc; + fprintf (1, ... + ['OdePkg examples main menu:\n', ... + '==========================\n', ... + '\n', ... + ' (1) Open the ODE examples menu\n', ... + ' (2) Open the DAE examples menu\n', ... + ' (3) Open the IDE examples menu\n', ... + ' (4) Open the DDE examples menu\n', ... + '\n']); + vfam = input ('Please choose a number from above or press to return: '); + switch (vfam) + case 1 + odepkg_examples_ode; + case 2 + odepkg_examples_dae; + case 3 + odepkg_examples_ide; + case 4 + odepkg_examples_dde; + otherwise + %# have nothing to do + end + end + +%# Local Variables: *** +%# mode: octave *** +%# End: ***