Changeset aa3811c in git


Ignore:
Timestamp:
May 8, 1998, 5:49:45 PM (26 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
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:
3 edited

Legend:

Unmodified
Added
Removed
  • Singular/LIB/primdec.lib

    r886606 raa3811c  
    1 // $Id: primdec.lib,v 1.13 1998-05-05 11:55:34 krueger Exp $
     1// $Id: primdec.lib,v 1.14 1998-05-08 15:49:44 Singular Exp $
    22///////////////////////////////////////////////////////
    33// primdec.lib
     
    1111//////////////////////////////////////////////////////
    1212
    13 version="$Id: primdec.lib,v 1.13 1998-05-05 11:55:34 krueger Exp $";
     13version="$Id: primdec.lib,v 1.14 1998-05-08 15:49:44 Singular Exp $";
    1414info="
    1515LIBRARY: primdec.lib: PROCEDURE FOR PRIMARY DECOMPOSITION (I)
     
    14651465   list resu,hilf;
    14661466   string var1,var2;
    1467    list v=system("indsetall",j,1);
     1467   list v=indepSet(j,1);
    14681468
    14691469   for(n=1;n<=size(v);n++)
     
    15331533   list resu,hilf;
    15341534   string var1,var2;
    1535    list v=system("indsetall",j,0);
     1535   list v=indepSet(j,0);
    15361536
    15371537   for(n=1;n<=size(v);n++)
     
    39963996proc extraction (ideal SI, ideal SP)
    39973997{
    3998   list indsets=system("indsetall",SP,0);
     3998  list indsets=indepSet(SP,0);
    39993999  poly f;
    40004000  if(size(indsets)!=0)      //check, whether dim P != 0
  • Singular/iparith.cc

    r886606 raa3811c  
    172172  { "if",          0, IF_CMD ,            IF_CMD},
    173173  { "imap",        0, IMAP_CMD ,          CMD_2},
    174   { "indepSet",    0, INDEPSET_CMD ,      CMD_1},
     174  { "indepSet",    0, INDEPSET_CMD ,      CMD_12},
    175175  { "insert",      0, INSERT_CMD ,        CMD_23},
    176176  { "int",         0, INT_CMD ,           ROOT_DECL},
     
    15151515  }
    15161516  res->data = (char *)idHomogen((ideal)u->Data(),i);
     1517  return FALSE;
     1518}
     1519static BOOLEAN jjINDEPSET2(leftv res, leftv u, leftv v)
     1520{
     1521  assumeStdFlag(u);
     1522  res->data=(void *)scIndIndset((ideal)(u->Data()),(int)(v->Data()),
     1523                    currQuotient);
    15171524  return FALSE;
    15181525}
     
    20322039,{jjFETCH,     IMAP_CMD,       ANY_TYPE/*set by p*/,RING_CMD,  ANY_TYPE PROFILER}
    20332040,{jjFETCH,     IMAP_CMD,       ANY_TYPE/*set by p*/,QRING_CMD, ANY_TYPE PROFILER}
     2041,{jjINDEPSET2, INDEPSET_CMD,   LIST_CMD,       IDEAL_CMD,  INT_CMD PROFILER}
    20342042,{lInsert,     INSERT_CMD,     LIST_CMD,       LIST_CMD,   DEF_CMD PROFILER}
    20352043,{jjINTERSECT, INTERSECT_CMD,  IDEAL_CMD,      IDEAL_CMD,  IDEAL_CMD PROFILER}
Note: See TracChangeset for help on using the changeset viewer.