Changeset 91c7192 in git

Timestamp:

Mar 18, 2008, 4:50:14 PM (15 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')

Children:

741c66935529b560a2e50088ca29f17fd24a4752

Parents:

a2922110f70dfc14775f33d08eac8d000effe032

Message:

*hannes: force matrix format


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

File:

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

Singular/LIB/gmspoly.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: gmspoly.lib,v 1.15 2006-11-09 08:59:53 Singular Exp $";
+version="$Id: gmspoly.lib,v 1.16 2008-03-18 15:50:14 Singular Exp $";
 category="Singularities";
 
@@ -517 +517 @@
         B=pidbasis(K2,L2);
       }
-
-      B0=std(coeffs(reduce(matrix(K)*B,JS),b0));
-      b=matrix(K)*B;
+      B0=std(coeffs(reduce(matrix(K,nrows(K),nrows(B))*B,JS),b0));
+      b=matrix(K,nrows(K),nrows(B))*B;
     }