Changeset aa3811c in git

Timestamp:

May 8, 1998, 5:49:45 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

4d6a4d8ac279c490518dc0c8d688532d047ca93a

Parents:

88660676b66785818f85225030b7f6d81d02269f

Message:

* hannes: extended command indepSet


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

Files:

• Singular/LIB/primdec.lib (modified) (5 diffs)
• Singular/iparith.cc (modified) (3 diffs)
• doc/reference.doc (modified) (previous)

Singular/LIB/primdec.lib

@@ -1 @@
-// $Id: primdec.lib,v 1.13 1998-05-05 11:55:34 krueger Exp $
+// $Id: primdec.lib,v 1.14 1998-05-08 15:49:44 Singular Exp $
 ///////////////////////////////////////////////////////
 // primdec.lib
@@ -11 +11 @@
 //////////////////////////////////////////////////////
 
-version="$Id: primdec.lib,v 1.13 1998-05-05 11:55:34 krueger Exp $";
+version="$Id: primdec.lib,v 1.14 1998-05-08 15:49:44 Singular Exp $";
 info="
 LIBRARY: primdec.lib: PROCEDURE FOR PRIMARY DECOMPOSITION (I)
@@ -1465 +1465 @@
    list resu,hilf;
    string var1,var2;
-   list v=system("indsetall",j,1);
+   list v=indepSet(j,1);
 
    for(n=1;n<=size(v);n++)
@@ -1533 +1533 @@
    list resu,hilf;
    string var1,var2;
-   list v=system("indsetall",j,0);
+   list v=indepSet(j,0);
 
    for(n=1;n<=size(v);n++)
@@ -3996 +3996 @@
 proc extraction (ideal SI, ideal SP)
 {
-  list indsets=system("indsetall",SP,0);
+  list indsets=indepSet(SP,0);
   poly f;
   if(size(indsets)!=0)      //check, whether dim P != 0

Singular/iparith.cc

@@ -172 +172 @@
   { "if",          0, IF_CMD ,            IF_CMD},
   { "imap",        0, IMAP_CMD ,          CMD_2},
-  { "indepSet",    0, INDEPSET_CMD ,      CMD_1},
+  { "indepSet",    0, INDEPSET_CMD ,      CMD_12},
   { "insert",      0, INSERT_CMD ,        CMD_23},
   { "int",         0, INT_CMD ,           ROOT_DECL},
@@ -1515 +1515 @@
   }
   res->data = (char *)idHomogen((ideal)u->Data(),i);
+  return FALSE;
+}
+static BOOLEAN jjINDEPSET2(leftv res, leftv u, leftv v)
+{
+  assumeStdFlag(u);
+  res->data=(void *)scIndIndset((ideal)(u->Data()),(int)(v->Data()),
+                    currQuotient);
   return FALSE;
 }
@@ -2032 +2039 @@
 ,{jjFETCH,     IMAP_CMD,       ANY_TYPE/*set by p*/,RING_CMD,  ANY_TYPE PROFILER}
 ,{jjFETCH,     IMAP_CMD,       ANY_TYPE/*set by p*/,QRING_CMD, ANY_TYPE PROFILER}
+,{jjINDEPSET2, INDEPSET_CMD,   LIST_CMD,       IDEAL_CMD,  INT_CMD PROFILER}
 ,{lInsert,     INSERT_CMD,     LIST_CMD,       LIST_CMD,   DEF_CMD PROFILER}
 ,{jjINTERSECT, INTERSECT_CMD,  IDEAL_CMD,      IDEAL_CMD,  IDEAL_CMD PROFILER}