Changeset 77cd73 in git


Ignore:
Timestamp:
Nov 12, 1998, 5:00:18 PM (26 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'c7af8613769b29c741d6c338945669719f1fc4f8')
Children:
82dbf5068cc64256c3d833420d70c94fdd52d846
Parents:
b982ef4f7e8d4d9a48484ab002090940d903475e
Message:
*hannes: added optional parameter to lift


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

Legend:

Unmodified
Added
Removed
  • Singular/iparith.cc

    rb982ef r77cd73  
    192192  { "leadexp",     0, LEADEXP_CMD ,       CMD_1},
    193193  { "LIB",         0, LIB_CMD ,           SYSVAR},
    194   { "lift",        0, LIFT_CMD ,          CMD_2},
     194  { "lift",        0, LIFT_CMD ,          CMD_23},
    195195  { "liftstd",     0, LIFTSTD_CMD ,       CMD_2},
    196196  { "link",        0, LINK_CMD ,          ROOT_DECL},
     
    39003900  return FALSE;
    39013901}
     3902static BOOLEAN jjLIFT3(leftv res, leftv u, leftv v, leftv w)
     3903{
     3904  ideal m;
     3905  int ul= IDELEMS((ideal)u->Data());
     3906  int vl= IDELEMS((ideal)v->Data());
     3907  if (hasFlag(u,FLAG_STD))
     3908  {
     3909    m = idLift((ideal)u->Data(),(ideal)v->Data());
     3910    res->data = (char *)idModule2formatedMatrix(m,ul,vl);
     3911  }
     3912  else
     3913  {
     3914    m = idLiftNonStB((ideal)u->Data(),(ideal)v->Data(), (int)w->Data());
     3915    res->data = (char *)idModule2formatedMatrix(m,ul,vl);
     3916  }
     3917  return FALSE;
     3918}
    39023919static BOOLEAN jjREDUCE3_P(leftv res, leftv u, leftv v, leftv w)
    39033920{
     
    40044021,{jjRES3,           MRES_CMD,   NONE,       MODUL_CMD,  INT_CMD,    ANY_TYPE }
    40054022#endif
     4023,{jjLIFT3,          LIFT_CMD,   MATRIX_CMD, IDEAL_CMD,  IDEAL_CMD,  INT_CMD }
    40064024,{jjPREIMAGE,       PREIMAGE_CMD, IDEAL_CMD, RING_CMD,  ANY_TYPE,   ANY_TYPE }
    40074025,{jjPREIMAGE,       PREIMAGE_CMD, IDEAL_CMD, QRING_CMD, ANY_TYPE,   ANY_TYPE }
Note: See TracChangeset for help on using the changeset viewer.