Changeset a82001e in git

Timestamp:

Oct 19, 2011, 3:07:52 PM (12 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'spielwiese', 'f6c3dc58b0df4bd712574325fe76d0626174ad97')

Children:

a5d181c44c2cbadb742ff1668fd6d2a9a2436a8c

Parents:

6a9698521b129438c697145fcdef089408e4ae22

git-author:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2011-10-19 15:07:52+02:00

git-committer:

Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 16:14:08+01:00

Message:

FIX: error in linalg.lib::inverse

File:

• Singular/LIB/linalg.lib (modified) (2 diffs)

Singular/LIB/linalg.lib

@@ -125 +125 @@
    matrix invA;
    int db = printlevel-voice+3;      //used for comments
-   def R=basering;
-   string mp = "";
-   if (minpoly != 0) {
-     string(minpoly);
-   }
+   def R = basering;
    int n = nrows(A);
    module M = A;
@@ -157 +153 @@
    }
 //------------------------- change ring if necessary -------------------------
-   if( ordstr(R) != "C,dp(nvars(R))" )
+   if( ordstr(R) != "C,dp(" + string(nvars(R)) + ")" )
    {
      u=1;
-     def @R=changeord("C,dp",R);
-     setring @R;
-     if (mp != "") {
-       execute(mp);
+     string mp = string(minpoly);
+     def @R=changeord("C,dp", R); setring @R;
+     if (mp != string(minpoly)) 
+     {
+       execute("minpoly = " + mp + ";");
      }
      module M = fetch(R,M);