Changeset 561f4c in git


Ignore:
Timestamp:
Feb 3, 2005, 5:41:29 PM (19 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b52fc4b2495505785981d640dcf7eb3e456778ef')
Children:
88d2e58c77928c255914b18416c0f1345491e4b5
Parents:
41a8db552191ba08e3fca59cf4cf8401c8d58daf
Message:
*hannes: ring+qring etc.


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

Legend:

Unmodified
Added
Removed
  • Singular/iparith.cc

    r41a8db r561f4c  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: iparith.cc,v 1.333 2004-11-12 10:44:52 Singular Exp $ */
     4/* $Id: iparith.cc,v 1.334 2005-02-03 16:41:07 Singular Exp $ */
    55
    66/*
     
    24812481,{lAdd,        '+',            LIST_CMD,       LIST_CMD,   LIST_CMD ALLOW_PLURAL}
    24822482,{jjRSUM,      '+',            RING_CMD,       RING_CMD,   RING_CMD ALLOW_PLURAL}
     2483,{jjRSUM,      '+',            QRING_CMD,      QRING_CMD,  RING_CMD ALLOW_PLURAL}
     2484,{jjRSUM,      '+',            QRING_CMD,      RING_CMD,   QRING_CMD ALLOW_PLURAL}
     2485,{jjRSUM,      '+',            QRING_CMD,      QRING_CMD,  QRING_CMD ALLOW_PLURAL}
    24832486,{jjMINUS_I,   '-',            INT_CMD,        INT_CMD,    INT_CMD ALLOW_PLURAL}
    24842487,{jjMINUS_N,   '-',            NUMBER_CMD,     NUMBER_CMD, NUMBER_CMD ALLOW_PLURAL}
  • kernel/ring.cc

    r41a8db r561f4c  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ring.cc,v 1.27 2004-10-29 18:48:41 levandov Exp $ */
     4/* $Id: ring.cc,v 1.28 2005-02-03 16:41:29 Singular Exp $ */
    55
    66/*
     
    12061206  }
    12071207#endif
     1208  if (r1->qideal!=NULL)
     1209  {
     1210    if (r2->qideal!=NULL)
     1211    {
     1212      WerrorS("todo: qring+qring");
     1213      return -1;
     1214    }
     1215    else
     1216    {
     1217      int * perm=(int*)omAlloc0(sizeof(int)*(sum->N+1));
     1218      int i;
     1219      for(i=1;i<=r1->N;i++) perm[i]=i;
     1220      sum->qideal=idInit(IDELEMS(r1->qideal),1);
     1221      for (int i=0;i<IDELEMS(r1->qideal);i++)
     1222        sum->qideal->m[i]=pPermPoly(r1->qideal->m[i],perm,r1,nCopy);
     1223      omFree((ADDRESS)perm);
     1224    }
     1225  }
     1226  else if (r2->qideal!=NULL)
     1227  {
     1228    int * perm=(int*)omAlloc0(sizeof(int)*(sum->N+1));
     1229    int i;
     1230    for(i=1;i<=r2->N;i++) perm[i]=i+r1->N;
     1231    sum->qideal=idInit(IDELEMS(r2->qideal),1);
     1232    for (int i=0;i<IDELEMS(r2->qideal);i++)
     1233      sum->qideal->m[i]=pPermPoly(r2->qideal->m[i],perm,r2,nCopy);
     1234    omFree((ADDRESS)perm);
     1235  }
    12081236  return 1;
    12091237}
Note: See TracChangeset for help on using the changeset viewer.