Changeset 13956a in git

Timestamp:

Jul 11, 2000, 2:28:44 PM (24 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

fc0233266ad45f407cdfbf8de660c26e22a0a7ab

Parents:

0da97167daf40198e2a6c5db98c863bfa734f584

Message:

* support for coeffs(ideal, ideal) as suggested by mschulze


git-svn-id: file:///usr/local/Singular/svn/trunk@4484 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.217 2000-07-06 13:30:02 pohl Exp $ */
+/* $Id: iparith.cc,v 1.218 2000-07-11 12:28:44 obachman Exp $ */
 
 /*
@@ -1459 +1459 @@
   return FALSE;
 }
+static BOOLEAN jjCOEFFS2_KB(leftv res, leftv u, leftv v)
+{
+  poly p = pInit();
+  int i;
+  
+  for (i=1; i<=pVariables; i++)
+  {
+    pSetExp(p, i, 1);
+  }
+  res->data = (void*)idCoeffOfKBase((ideal)(u->Data()),
+                                    (ideal)(v->Data()), p);
+  pDelete(&p);
+  return FALSE;
+}
 static BOOLEAN jjCONTRACT(leftv res, leftv u, leftv v)
 {
@@ -2282 +2296 @@
 ,{jjCOEFFS_Id, COEFFS_CMD,     MATRIX_CMD,     IDEAL_CMD,  POLY_CMD PROFILER}
 ,{jjCOEFFS_Id, COEFFS_CMD,     MATRIX_CMD,     MODUL_CMD,  POLY_CMD PROFILER}
+,{jjCOEFFS2_KB,COEFFS_CMD,     MATRIX_CMD,     IDEAL_CMD,  IDEAL_CMD, PROFILER}
+,{jjCOEFFS2_KB,COEFFS_CMD,     MATRIX_CMD,     MODUL_CMD,  MODUL_CMD, PROFILER}
 ,{jjCONTRACT,  CONTRACT_CMD,   MATRIX_CMD,     IDEAL_CMD,  IDEAL_CMD PROFILER}
 ,{jjDEG_IV,    DEG_CMD,        INT_CMD,        POLY_CMD,   INTVEC_CMD PROFILER}