Changeset 12cca3 in git for Singular/iparith.cc

Timestamp:

May 28, 2010, 2:56:59 PM (14 years ago)

Author:

Frank Seelisch <seelisch@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

6a649d9e43f6a5e7fd3f1195533f57fb0e5dfccc

Parents:

747a1eef38fad1550aabd46be9267c9003769ac9

Message:

new commands ludecomp(mat), and luinverse(mat [, mat, mat]) (see linearAlgebra.h for docu)

git-svn-id: file:///usr/local/Singular/svn/trunk@12828 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/iparith.cc (modified) (1 diff)

Singular/iparith.cc

@@ -4456 +4456 @@
   matrix pMat;
   matrix lMat;
-  matrix uMat = mpNew(rr, cc);
-
-  /* make initial settings: */
-  for (int r = 1; r <= rr; r++)
-    for (int c = 1; c <= cc; c++)
-      /* 'rMat' is a copy of 'mat': */
-      MATELEM(uMat, r, c) = pCopy(mat->m[c - 1 + (r - 1) * cc]);
-
-  luDecomp(pMat, lMat, uMat);
+  matrix uMat;
+
+  luDecomp(mat, pMat, lMat, uMat);
 
   lists ll = (lists)omAllocBin(slists_bin);