Changeset 4b5e05 in git

Timestamp:

Nov 3, 2008, 4:50:59 PM (15 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

883dcaa4b16684404182489516aba059a12e315c

Parents:

ce3b81a7e4636fdbb8dab8998c46833bdc94fa8e

Message:

*hannes: eliminate(i,intvec)


git-svn-id: file:///usr/local/Singular/svn/trunk@11176 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.479 2008-09-15 10:08:08 Singular Exp $ */
+/* $Id: iparith.cc,v 1.480 2008-11-03 15:50:59 Singular Exp $ */
 
 /*
@@ -1932 +1932 @@
   return FALSE;
 }
+static BOOLEAN jjELIMIN_IV(leftv res, leftv u, leftv v)
+{
+  poly p=pOne();
+  intvec *iv=(intvec*)v->Data();
+  for(int i=iv->length()-1; i>=0; i--)
+  {
+    pSetExp(p,(*iv)[i],1);
+  }
+  pSetm(p);
+  res->data=(char *)idElimination((ideal)u->Data(),p);
+  pLmDelete(&p);
+  setFlag(res,FLAG_STD);
+  return FALSE;
+}
 static BOOLEAN jjEXPORTTO(leftv res, leftv u, leftv v)
 {
@@ -3297 +3311 @@
 ,{jjELIMIN,    ELIMINATION_CMD,IDEAL_CMD,      IDEAL_CMD,  POLY_CMD ALLOW_PLURAL}
 ,{jjELIMIN,    ELIMINATION_CMD,MODUL_CMD,      MODUL_CMD,  POLY_CMD ALLOW_PLURAL}
+,{jjELIMIN_IV, ELIMINATION_CMD,IDEAL_CMD,      IDEAL_CMD,  INTVEC_CMD ALLOW_PLURAL}
+,{jjELIMIN_IV, ELIMINATION_CMD,MODUL_CMD,      MODUL_CMD,  INTVEC_CMD ALLOW_PLURAL}
 ,{jjEXPORTTO,  EXPORTTO_CMD,   NONE,           PACKAGE_CMD, IDHDL ALLOW_PLURAL}
 ,{jjEXTGCD_I,  EXTGCD_CMD,     LIST_CMD,       INT_CMD,    INT_CMD ALLOW_PLURAL}