Changeset 6e56de in git


Ignore:
Timestamp:
Aug 24, 2000, 1:21:47 PM (23 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')
Children:
51e993f9b344a8396d1aacab475782ed749fc581
Parents:
660ad3261b8221e209ee2df3ffc488c824260573
Message:
*hannes: removed exp.e


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

Legend:

Unmodified
Added
Removed

  • Singular/polys-impl.h

    r660ad32 r6e56de  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
    6 /* $Id: polys-impl.h,v 1.46 2000-08-14 12:56:44 obachman Exp $ */
     6/* $Id: polys-impl.h,v 1.47 2000-08-24 11:21:44 Singular Exp $ */
    77
    88/***************************************************************
    … …  
    3434{
    3535#ifdef HAVE_SHIFTED_EXPONENTS
    36    long           e[VARS +1];
    3736   unsigned long  l[VARS +1];
    3837#else
    … …  
    102101#define _pSetCoeff0(p,n)    (p)->coef=n
    103102
     103//#ifdef HAVE_SHIFTED_EXPONENTS
     104//#define _pGetOrder(p)       ((p)->exp.l[currRing->pOrdIndex]-0x40000000)
     105//#else
    104106#define _pGetOrder(p)       ((p)->exp.l[currRing->pOrdIndex])
     107//#endif
    105108
    106109#if defined(PDEBUG) && PDEBUG > 1
    … …  
    254257#endif // defined(PDEBUG) && PDEBUG > 1
    255258
     259#ifndef HAVE_SHIFTED_EXPONENTS
     260
    256261#define _pGetComp(p)        ((p)->exp.e[_pCompIndex])
    257262#define _pIncrComp(p)       _pGetComp(p)++
    258263#define _pRingGetComp(r,p)        ((p)->exp.e[_pRingCompIndex(r)])
    259264
    260 #ifndef HAVE_SHIFTED_EXPONENTS
    261265inline Exponent_t _pGetExpSum(poly p1, poly p2, int i)
    262266{
    … …  
    269273  return p1->exp.e[index] - p2->exp.e[index];
    270274}
    271 #else
     275
     276#else //---------------------------------------------
     277
     278#define _pGetComp(p)        ((p)->exp.l[_pCompIndex])
     279#define _pIncrComp(p)       _pGetComp(p)++
     280#define _pRingGetComp(r,p)        ((p)->exp.l[_pRingCompIndex(r)])
     281
    272282inline Exponent_t _pGetExpSum(poly p1, poly p2, int i)
    273283{

  • Singular/polys.cc

    r660ad32 r6e56de  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: polys.cc,v 1.55 2000-08-14 12:56:45 obachman Exp $ */
     4/* $Id: polys.cc,v 1.56 2000-08-24 11:21:45 Singular Exp $ */
    55
    66/*
    … …  
    9393          a=o->data.dp.start;
    9494          e=o->data.dp.end;
    95           long ord=0;
     95          long ord=0; //0x40000000;
    9696          for(int i=a;i<=e;i++) ord+=pGetExp(p,i);
    9797          p->exp.l[o->data.dp.place]=ord;
    … …  
    104104          e=o->data.wp.end;
    105105          int *w=o->data.wp.weights;
    106           long ord=0;
     106          long ord=0; //0x40000000;
    107107          for(int i=a;i<=e;i++) ord+=pGetExp(p,i)*w[i-a];
    108108          p->exp.l[o->data.wp.place]=ord;
    … …  
    115115          e=o->data.cp.end;
    116116          int pl=o->data.cp.place;
     117          #ifdef HAVE_SHIFTED_EXPONENTS
     118          for(int i=a;i<=e;i++) { p->exp.l[pl]=pGetExp(p,i); pl++; }
     119          #else
    117120          for(int i=a;i<=e;i++) { p->exp.e[pl]=pGetExp(p,i); pl++; }
     121          #endif
    118122          break;
    119123        }
    … …  
    195199          e=o->data.cp.end;
    196200          int pl=o->data.cp.place;
     201          #ifdef HAVE_SHIFTED_EXPONENTS
     202          for(int i=a;i<=e;i++) { p->exp.l[pl]=pGetExp(p,i); pl++; }
     203          #else
    197204          for(int i=a;i<=e;i++) { p->exp.e[pl]=pGetExp(p,i); pl++; }
     205          #endif
    198206          break;
    199207        }

  • Singular/polys1.cc

    r660ad32 r6e56de  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: polys1.cc,v 1.41 2000-08-22 13:35:40 Singular Exp $ */
     4/* $Id: polys1.cc,v 1.42 2000-08-24 11:21:45 Singular Exp $ */
    55
    66/*
    … …  
    437437poly pPower(poly p, int i)
    438438{
     439  poly rc=NULL;
     440
    439441  if (i==0)
     442  {
     443    pDelete(&p);
    440444    return pOne();
    441 
    442   poly rc=NULL;
     445  }
    443446
    444447  if(p!=NULL)
    … …  
    459462    switch (i)
    460463    {
    461       case 0:
    462       {
    463         rc=pOne();
    464 #ifdef DRING
    465         if ((pDRING) && (pdDFlag(p)==1))
    466         {
    467           pdSetDFlag(rc,1);
    468         }
    469 #endif
    470         pDelete(&p);
    471         break;
    472       }
     464// cannot happen, see above
     465//      case 0:
     466//      {
     467//        rc=pOne();
     468//#ifdef DRING
     469//        if ((pDRING) && (pdDFlag(p)==1))
     470//        {
     471//          pdSetDFlag(rc,1);
     472//        }
     473//#endif
     474//        pDelete(&p);
     475//        break;
     476//      }
    473477      case 1:
    474478        rc=p;
    … …  
    566570          last=f;
    567571        }
    568         //res = pAdd(res, f);
    569572      }
    570573    }

  • Singular/ring.cc

    r660ad32 r6e56de  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ring.cc,v 1.105 2000-08-22 09:03:21 Singular Exp $ */
     4/* $Id: ring.cc,v 1.106 2000-08-24 11:21:46 Singular Exp $ */
    55
    66/*
    … …  
    32333233  while(p!=NULL)
    32343234  {
     3235    #ifndef HAVE_SHIFTED_EXPONENTS
    32353236    Print("exp.e[0..%d]\n",currRing->ExpESize-1);
    32363237    for(i=0;i<currRing->ExpESize;i++)
    32373238      Print("%d ",p->exp.e[i]);
     3239    #endif
    32383240    Print("\nexp.l[0..%d]\n",currRing->ExpLSize-1);
    32393241    for(i=0;i<currRing->ExpLSize;i++)

  • Singular/structs.h

    r660ad32 r6e56de  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
    6 /* $Id: structs.h,v 1.33 2000-08-18 15:42:10 Singular Exp $ */
     6/* $Id: structs.h,v 1.34 2000-08-24 11:21:47 Singular Exp $ */
    77/*
    88* ABSTRACT
    … …  
    142142typedef struct smprec sm_prec;
    143143typedef sm_prec * smpoly;
    144 struct smprec{
     144struct smprec
     145{
    145146  smpoly n;            // the next element
    146147  int pos;             // position

  • Singular/syz1.cc

    r660ad32 r6e56de  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: syz1.cc,v 1.60 2000-08-14 12:56:54 obachman Exp $ */
     4/* $Id: syz1.cc,v 1.61 2000-08-24 11:21:47 Singular Exp $ */
    55/*
    66* ABSTRACT: resolutions
    … …  
    12571257        tso.lcm = p = nPm[ii];
    12581258        nPm[ii] = NULL;
     1259        //#ifdef HAVE_SHIFTED_EXPONENTS
     1260        //tso.order = pTotaldegree(p);
     1261        //p->exp.l[currRing->pOrdIndex]=tso.order+0x40000000;
     1262        //#else
    12591263        tso.order = pGetOrder(p) = pTotaldegree(p);
     1264        //#endif
    12601265        if ((syzstr->cw!=NULL) && (index>0) && (pGetComp(q)>0))
    12611266        {
Note: See TracChangeset for help on using the changeset viewer.