Changeset f907fc in git


Ignore:
Timestamp:
Nov 24, 1999, 3:07:23 PM (25 years ago)
Author:
Olaf Bachmann <obachman@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b52fc4b2495505785981d640dcf7eb3e456778ef')
Children:
32d5d47cd333de31bc974794d8f7c310be0f5851
Parents:
d88eb6580cce37f42c7a29bce0b292e3b119a563
Message:
* fixed prun/idMinEmbedding


git-svn-id: file:///usr/local/Singular/svn/trunk@3913 2c84dea3-7e68-4137-9b89-c4e89433aadc
Location:
Singular
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • Singular/ideals.cc

    rd88eb6 rf907fc  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ideals.cc,v 1.77 1999-11-23 17:09:20 hannes Exp $ */
     4/* $Id: ideals.cc,v 1.78 1999-11-24 14:07:21 obachman Exp $ */
    55/*
    66* ABSTRACT - all basic methods to manipulate ideals
     
    18831883    s_h4 = idrMoveR_NoSort(s_h4,orig_ring);
    18841884
     1885  idTest(s_h4);
    18851886  ideal s_h3;
    18861887  if (addOnlyOne)
  • Singular/iparith.cc

    rd88eb6 rf907fc  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: iparith.cc,v 1.188 1999-11-24 14:02:17 wichmann Exp $ */
     4/* $Id: iparith.cc,v 1.189 1999-11-24 14:07:22 obachman Exp $ */
    55
    66/*
     
    29522952  return FALSE;
    29532953}
     2954static BOOLEAN jjPRUNE(leftv res, leftv v)
     2955{
     2956  res->data = (char *)idMinEmbedding((ideal)v->Data());
     2957  return FALSE;
     2958}
    29542959static BOOLEAN jjP2N(leftv res, leftv v)
    29552960{
     
    31943199#define jjrVarStr      (proc1)18
    31953200#define jjrParStr      (proc1)19
    3196 #define jjidMinEmbedding (proc1)20
    31973201#define jjCOUNT_R        (proc1)22
    31983202#define jjDIM_R          (proc1)23
     
    32323236        case (int)jjrVarStr:      dArith1[i].p=(proc1)rVarStr; break;
    32333237        case (int)jjrParStr:      dArith1[i].p=(proc1)rParStr; break;
    3234         case (int)jjidMinEmbedding: dArith1[i].p=(proc1)idMinEmbedding; break;
    32353238        case (int)jjCOUNT_R:      dArith1[i].p=(proc1)syLength; break;
    32363239        case (int)jjDIM_R:        dArith1[i].p=(proc1)syDim; break;
     
    33373340{
    33383341  res->data = rParStr((ring)v->Data());
    3339   return FALSE;
    3340 }
    3341 static BOOLEAN jjidMinEmbedding(leftv res, leftv v)
    3342 {
    3343   res->data = (char *)idMinEmbedding((ideal)v->Data());
    33443342  return FALSE;
    33453343}
     
    33863384#define jjrVarStr      (proc1)rVarStr
    33873385#define jjrParStr      (proc1)rParStr
    3388 #define jjidMinEmbedding (proc1)idMinEmbedding
    33893386#define jjCOUNT_R        (proc1)syLength
    33903387#define jjDIM_R        (proc1)syDim
     
    35813578,{jjPRINT,      PRINT_CMD,       NONE,           LIST_CMD}
    35823579,{jjPRINT,      PRINT_CMD,       NONE,           DEF_CMD}
    3583 ,{jjidMinEmbedding, PRUNE_CMD,   XS(MODUL_CMD),  MODUL_CMD }
     3580,{jjPRUNE,      PRUNE_CMD,       MODUL_CMD,      MODUL_CMD }
    35843581,{kQHWeight,    QHWEIGHT_CMD,    INTVEC_CMD,     IDEAL_CMD }
    35853582,{kQHWeight,    QHWEIGHT_CMD,    INTVEC_CMD,     MODUL_CMD }
  • Singular/polys-impl.cc

    rd88eb6 rf907fc  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: polys-impl.cc,v 1.33 1999-11-15 17:20:39 obachman Exp $ */
     4/* $Id: polys-impl.cc,v 1.34 1999-11-24 14:07:23 obachman Exp $ */
    55
    66/***************************************************************
     
    890890    if (pComp(old,p)!=1)
    891891    {
    892       WarnS("wrong order (");
     892      Warn("wrong order (");
    893893      wrp(old);
    894894      Print(") in %s:%d (pComp=%d)\n",f,l,pComp(old,p));
  • Singular/syz.cc

    rd88eb6 rf907fc  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: syz.cc,v 1.31 1999-11-19 16:42:42 obachman Exp $ */
     4/* $Id: syz.cc,v 1.32 1999-11-24 14:07:23 obachman Exp $ */
    55
    66/*
     
    382382    syMinStep(res[syzIndex-1],res[syzIndex]);
    383383  if (!idIs0(res[0]))
    384     idMinEmbedding(res[0]);
     384    idMinEmbedding(res[0], TRUE);
    385385}
    386386
Note: See TracChangeset for help on using the changeset viewer.