[Maxima-commits] CVS: maxima/share/linearalgebra lu.lisp, 1.18, 1.19

[Barton W. <wil...@us...>]

Update of /cvsroot/maxima/maxima/share/linearalgebra
In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv23183/share/linearalgebra

Modified Files:
	lu.lisp 
Log Message:
new scheme for returing condition number from linsolve_by_lu

Index: lu.lisp
===================================================================
RCS file: /cvsroot/maxima/maxima/share/linearalgebra/lu.lisp,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- lu.lisp	19 Feb 2007 18:46:31 -0000	1.18
+++ lu.lisp	20 Feb 2007 20:56:28 -0000	1.19
@@ -279,6 +279,5 @@
     (merror "Incompatible matrix sizes"))
   
   (setq m ($lu_factor m fld))
-  (if (floatp ($last m)) (mtell "An upper bound for the condition number is ~:M~:%" ($last m)))
-  ($lu_backsub m b))
+  `((mlist) ,($lu_backsub m b) ,(if (floatp ($last m)) ($last m) nil)))