Changeset 04025b in git

Timestamp:

Jul 5, 2007, 10:37:06 AM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

409aaec1b8fd68d370391fe4f92922d5ea1461f4

Parents:

5ef9d3216a3ed44571f0d194f790d426895c1222

Message:

*hannes: additional checks for homog(p,x): weighted case


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

File:

• Singular/iparith.cc (modified) (3 diffs)

Singular/iparith.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.447 2007-06-26 18:52:11 Singular Exp $ */
+/* $Id: iparith.cc,v 1.448 2007-07-05 08:37:06 Singular Exp $ */
 
 /*
@@ -2202 +2202 @@
     return TRUE;
   }
-  res->data = (char *)pHomogen((poly)u->Data(),i);
-  return FALSE;
+  poly p=pOne(); pSetExp(p,i,1); pSetm(p);
+  int d=pWTotaldegree(p);
+  pLmDelete(p);
+  if (d==1)
+    res->data = (char *)pHomogen((poly)u->Data(),i);
+  return (d!=1);
 }
 static BOOLEAN jjHOMOG_ID(leftv res, leftv u, leftv v)
@@ -2213 +2217 @@
     return TRUE;
   }
-  res->data = (char *)idHomogen((ideal)u->Data(),i);
-  return FALSE;
+  poly p=pOne(); pSetExp(p,i,1); pSetm(p);
+  int d=pWTotaldegree(p);
+  pLmDelete(p);
+  if (d==1)
+    res->data = (char *)idHomogen((ideal)u->Data(),i);
+  return (d!=1);
 }
 static BOOLEAN jjINDEPSET2(leftv res, leftv u, leftv v)