[Maxima-commits] CVS: maxima/share/dynamics dynamics.mac,1.2,1.3

[Jaime E. V. <vi...@us...>]

Update of /cvsroot/maxima/maxima/share/dynamics
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv24368

Modified Files:
	dynamics.mac 
Log Message:
More speed improvements to function rk, by using translate.


Index: dynamics.mac
===================================================================
RCS file: /cvsroot/maxima/maxima/share/dynamics/dynamics.mac,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- dynamics.mac	11 May 2008 22:07:53 -0000	1.2
+++ dynamics.mac	13 May 2008 21:02:06 -0000	1.3
@@ -383,6 +383,7 @@
   if (not(listp(initial))) then initial: [initial],
   local(f),
   define(funmake(f,cons(domain[1],state)),odes),
+  translate(f),
   n: fix((domain[3] - domain[2])/domain[4]),
   t0: domain[2],
   xxx: initial,
@@ -401,5 +402,3 @@
     t0: t1,
     ddd: cons(cons(t0,xxx), ddd)),
   reverse(ddd))$
-
-