Changeset babb40 in git for Singular/LIB/poly.lib

Timestamp:

Nov 4, 2008, 12:21:46 PM (15 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

1fa563ab5084a740927ef512c88676d8cdb652a8

Parents:

883dcaa4b16684404182489516aba059a12e315c

Message:

*hannes: matrix[i] fixed


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

File:

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

Singular/LIB/poly.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: poly.lib,v 1.46 2007-07-25 10:02:08 Singular Exp $";
+version="$Id: poly.lib,v 1.47 2008-11-04 11:21:46 Singular Exp $";
 category="General purpose";
 info="
@@ -1071 +1071 @@
   kill motemp;
   def motemp=imap(rtemp,motemp);
-  list ret=monmat,motemp,monmat*motemp;
-  for(i=1;i<=ncols(ret[2]);i++)
-  {
-    ret[2][i]=cleardenom(ret[2][i]);
-  }
-  for(i=1;i<=ncols(ret[3]);i++)
-  {
-    ret[3][i]=cleardenom(ret[3][i]);
-  }
+  //list ret=monmat,motemp,monmat*motemp;
+  module motemp2=motemp;
+  for(i=1;i<=ncols(motemp2);i++)
+  {
+    motemp2[i]=cleardenom(motemp2[i]);
+  }
+  module motemp3=monmat*motemp;
+  for(i=1;i<=ncols(motemp3);i++)
+  {
+    motemp3[i]=cleardenom(motemp3[i]);
+  }
+  list ret=monmat,motemp2,matrix(motemp3);
   return(ret);
 }