[Octave-cvsupdate] SF.net SVN: octave: [4690] trunk/octave-forge/main/odepkg/inst

[<tr...@us...>]

Revision: 4690
          http://octave.svn.sourceforge.net/octave/?rev=4690&view=rev
Author:   treichl
Date:     2008-03-01 12:39:55 -0800 (Sat, 01 Mar 2008)

Log Message:
-----------
Minor changes and updates.

Modified Paths:
--------------
    trunk/octave-forge/main/odepkg/inst/ode23.m
    trunk/octave-forge/main/odepkg/inst/ode45.m
    trunk/octave-forge/main/odepkg/inst/ode54.m
    trunk/octave-forge/main/odepkg/inst/ode78.m

Modified: trunk/octave-forge/main/odepkg/inst/ode23.m
===================================================================
--- trunk/octave-forge/main/odepkg/inst/ode23.m	2008-03-01 20:28:03 UTC (rev 4689)
+++ trunk/octave-forge/main/odepkg/inst/ode23.m	2008-03-01 20:39:55 UTC (rev 4690)
@@ -62,9 +62,9 @@
     error ('OdePkg:InvalidArgument', ...
       'Second input argument must be a valid vector');
 
-  elseif (~isvector (vinit) || ~isnumeric (vinit))
+  elseif (~isnumeric (vinit))
     error ('OdePkg:InvalidArgument', ...
-      'Third input argument must be a valid vector');
+      'Third input argument must be a valid numerical value');
 
   elseif (nargin >= 4)
 
@@ -532,23 +532,6 @@
 %!  [vx, vy, va, vb, vc] = ode23 (@odepkg_equations_vanderpol, [0 2], [2 0], A, 1.2);
 %!  warning ("on", "OdePkg:InvalidOption");
 
-%!demo
-%!
-%! A = odeset ('RelTol', 1e-1, 'AbsTol', 1e-2);
-%! [vx, vy] = ode23 (@odepkg_equations_secondorderlag, [0 2.5], [0 0], ...
-%!    A, 5, 2, 0.02, 0.1);
-%!
-%! plot (vx, vy(:,1), '-ob;y, x2;', vx, vy(:,2), '-or;x1;', ...
-%!    vx, ones(length(vx),1)*5, '-og;u;');
-%!
-%! % ---------------------------------------------------------------------
-%! % The figure window shows the state variables x1, x2 as well as the 
-%! % input signal u and the output signal y(=x2) of a second order lag 
-%! % implementation (cf. the control theory). The function ode23 was
-%! % called with an option argument A that has been set before with the
-%! % command "odeset" and with further parameters "5, 2, 0.02, 0.1" that
-%! % are passed to the set of ordinary differential equations.
-
 %# Local Variables: ***
 %# mode: octave ***
 %# End: ***

Modified: trunk/octave-forge/main/odepkg/inst/ode45.m
===================================================================
--- trunk/octave-forge/main/odepkg/inst/ode45.m	2008-03-01 20:28:03 UTC (rev 4689)
+++ trunk/octave-forge/main/odepkg/inst/ode45.m	2008-03-01 20:39:55 UTC (rev 4690)
@@ -62,9 +62,9 @@
     error ('OdePkg:InvalidArgument', ...
       'Second input argument must be a valid vector');
 
-  elseif (~isvector (vinit) || ~isnumeric (vinit))
+  elseif (~isnumeric (vinit))
     error ('OdePkg:InvalidArgument', ...
-      'Third input argument must be a valid vector');
+      'Third input argument must be a valid numerical value');
 
   elseif (nargin >= 4)
 

Modified: trunk/octave-forge/main/odepkg/inst/ode54.m
===================================================================
--- trunk/octave-forge/main/odepkg/inst/ode54.m	2008-03-01 20:28:03 UTC (rev 4689)
+++ trunk/octave-forge/main/odepkg/inst/ode54.m	2008-03-01 20:39:55 UTC (rev 4690)
@@ -63,9 +63,9 @@
     error ('OdePkg:InvalidArgument', ...
       'Second input argument must be a valid vector');
 
-  elseif (~isvector (vinit) || ~isnumeric (vinit))
+  elseif (~isnumeric (vinit))
     error ('OdePkg:InvalidArgument', ...
-      'Third input argument must be a valid vector');
+      'Third input argument must be a valid numerical value');
 
   elseif (nargin >= 4)
 

Modified: trunk/octave-forge/main/odepkg/inst/ode78.m
===================================================================
--- trunk/octave-forge/main/odepkg/inst/ode78.m	2008-03-01 20:28:03 UTC (rev 4689)
+++ trunk/octave-forge/main/odepkg/inst/ode78.m	2008-03-01 20:39:55 UTC (rev 4690)
@@ -62,9 +62,9 @@
     error ('OdePkg:InvalidArgument', ...
       'Second input argument must be a valid vector');
 
-  elseif (~isvector (vinit) || ~isnumeric (vinit))
+  elseif (~isnumeric (vinit))
     error ('OdePkg:InvalidArgument', ...
-      'Third input argument must be a valid vector');
+      'Third input argument must be a valid numerical value');
 
   elseif (nargin >= 4)
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.