Changeset de7521 in git for Singular/LIB/linalg.lib

Timestamp:

Sep 27, 2011, 5:05:10 PM (13 years ago)

Author:

Niels Ranosch <ranosch@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

b9e11ba1ccf9ce6f95143f2be5524707ba4e9689

Parents:

c14846c48e3ff9e4167bc71fd6c4c4cf2f7d6e03

git-author:

Niels Ranosch <ranosch@mfo.de>2011-09-27 17:05:10+02:00

git-committer:

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

Message:

fixed minpoly for this case of inverse

File:

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

Singular/LIB/linalg.lib

@@ -126 +126 @@
    int db = printlevel-voice+3;      //used for comments
    def R=basering;
-   string mp = string(minpoly);
+   string mp = "";
+   if (minpoly != 0) {
+     string(minpoly);
+   }
    int n = nrows(A);
    module M = A;
@@ -159 +162 @@
      def @R=changeord("C,dp",R);
      setring @R;
+     if (mp != "") {
+       execute(mp);
+     }
      module M = fetch(R,M);
-     execute("minpoly="+mp+";");
    }
 //----------------------------- opt=3: use lift ------------------------------