[Maxima-commits] CVS: maxima/interfaces/xmaxima/Tkmaxima rk4.tcl, 1.3, 1.4

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

Update of /cvsroot/maxima/maxima/interfaces/xmaxima/Tkmaxima
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv14222

Modified Files:
	rk4.tcl 
Log Message:
It now returns the list of t values too.


Index: rk4.tcl
===================================================================
RCS file: /cvsroot/maxima/maxima/interfaces/xmaxima/Tkmaxima/rk4.tcl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- rk4.tcl	31 Mar 2009 22:34:16 -0000	1.3
+++ rk4.tcl	13 Apr 2009 01:14:18 -0000	1.4
@@ -22,7 +22,7 @@
 
 proc fieldlines { f g t0 x0 y0 sx sy nsteps dir} {
     set n $nsteps
-    set ans "$x0 $y0"
+    set ans "$t0 $x0 $y0"
     set xn $x0
     set yn $y0
     set tn $t0
@@ -55,7 +55,7 @@
 	    set yn [expr {$yn + $dy}]
 	    set tn [expr {$tn + $h}]
 
-	    lappend ans  $xn $yn
+	    lappend ans $tn $xn $yn
 	}
     }
     return $ans
@@ -63,7 +63,7 @@
 
 proc curves { f g t0 x0 y0 sx sy nsteps dir} {
     set n $nsteps
-    set ans "$x0 $y0"
+    set ans "$t0 $x0 $y0"
     set xn $x0
     set yn $y0
     set tn $t0
@@ -96,7 +96,7 @@
 	    set yn [expr {$yn + $dy}]
 	    set tn [expr {$tn + $h}]
 
-	    lappend ans  $xn $yn
+	    lappend ans $tn $xn $yn
 	}
     }
     return $ans