Changeset 0d7217 in git


Ignore:
Timestamp:
Dec 8, 2000, 3:59:50 PM (22 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')
Children:
0cf861dccb1fba0b7e1f95f881d4a6c1c3203692
Parents:
1cf2dc689f8efb78a20e7d2cafb16cf1005eed55
Message:
*hannes: naSetChar


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

Legend:

Unmodified
Added
Removed

  • Singular/iparith.cc

    r1cf2dc6 r0d7217  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: iparith.cc,v 1.238 2000-12-06 11:03:11 Singular Exp $ */
     4/* $Id: iparith.cc,v 1.239 2000-12-08 14:57:19 Singular Exp $ */
    55
    66/*
    … …  
    16441644        par_perm_size=rPar(r);
    16451645        BITSET save_test=test;
    1646         naSetChar(rInternalChar(r),TRUE, r);
     1646        naSetChar(rInternalChar(r),r);
    16471647        nSetChar(currRing);
    16481648        test=save_test;

  • Singular/longalg.cc

    r1cf2dc6 r0d7217  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: longalg.cc,v 1.49 2000-11-20 17:29:45 obachman Exp $ */
     4/* $Id: longalg.cc,v 1.50 2000-12-08 14:59:50 Singular Exp $ */
    55/*
    66* ABSTRACT:   algebraic numbers
    … …  
    7979*  sets the appropriate operators
    8080*/
    81 void naSetChar(int i, BOOLEAN complete, ring r)
     81void naSetChar(int i, ring r)
    8282{
    8383  if (naI!=NULL)
    … …  
    103103    nacDelete      = nlDelete;
    104104#endif
    105     if (complete)
    106     {
    107       nacInit        = nlInit;
    108       nacInt         = nlInt;
    109       nacCopy        = nlCopy;
    110       nacAdd         = nlAdd;
    111       nacSub         = nlSub;
    112       nacMult        = nlMult;
    113       nacDiv         = nlDiv;
    114       nacIntDiv      = nlIntDiv;
    115       nacInvers      = nlInvers;
    116       nacNormalize   = nlNormalize;
    117       nacNeg         = nlNeg;
    118       nacIsZero      = nlIsZero;
    119       nacRead        = nlRead;
    120       nacWrite       = nlWrite;
    121       nacGreaterZero = nlGreaterZero;
    122       nacIsOne       = nlIsOne;
    123       nacIsMOne      = nlIsMOne;
    124       nacGcd         = nlGcd;
    125       nacLcm         = nlLcm;
    126     }
     105    nacInit        = nlInit;
     106    nacInt         = nlInt;
     107    nacCopy        = nlCopy;
     108    nacAdd         = nlAdd;
     109    nacSub         = nlSub;
     110    nacMult        = nlMult;
     111    nacDiv         = nlDiv;
     112    nacIntDiv      = nlIntDiv;
     113    nacInvers      = nlInvers;
     114    nacNormalize   = nlNormalize;
     115    nacNeg         = nlNeg;
     116    nacIsZero      = nlIsZero;
     117    nacRead        = nlRead;
     118    nacWrite       = nlWrite;
     119    nacGreaterZero = nlGreaterZero;
     120    nacIsOne       = nlIsOne;
     121    nacIsMOne      = nlIsMOne;
     122    nacGcd         = nlGcd;
     123    nacLcm         = nlLcm;
    127124  }
    128125  else if (i < 0)
    … …  
    134131    nacDelete      = nDummy1;
    135132#endif
    136     if (complete)
    137     {
    138       npSetChar(-i, r->algring); // to be changes HS
    139       nacInit        = npInit;
    140       nacInt         = npInt;
    141       nacCopy        = ndCopy;
    142       nacAdd         = npAdd;
    143       nacSub         = npSub;
    144       nacMult        = npMult;
    145       nacDiv         = npDiv;
    146       nacIntDiv      = npDiv;
    147       nacInvers      = npInvers;
    148       nacNormalize   = nDummy2;
    149       nacNeg         = npNeg;
    150       nacIsZero      = npIsZero;
    151       nacRead        = npRead;
    152       nacWrite       = npWrite;
    153       nacGreaterZero = npGreaterZero;
    154       nacIsOne       = npIsOne;
    155       nacIsMOne      = npIsMOne;
    156       nacGcd         = nadGcd;
    157       nacLcm         = nadGcd;
    158     }
     133    npSetChar(-i, r->algring); // to be changes HS
     134    nacInit        = npInit;
     135    nacInt         = npInt;
     136    nacCopy        = ndCopy;
     137    nacAdd         = npAdd;
     138    nacSub         = npSub;
     139    nacMult        = npMult;
     140    nacDiv         = npDiv;
     141    nacIntDiv      = npDiv;
     142    nacInvers      = npInvers;
     143    nacNormalize   = nDummy2;
     144    nacNeg         = npNeg;
     145    nacIsZero      = npIsZero;
     146    nacRead        = npRead;
     147    nacWrite       = npWrite;
     148    nacGreaterZero = npGreaterZero;
     149    nacIsOne       = npIsOne;
     150    nacIsMOne      = npIsMOne;
     151    nacGcd         = nadGcd;
     152    nacLcm         = nadGcd;
    159153  }
    160154#ifdef TEST
    161155  else
    162156  {
    163     Print("naSetChar:c=%d compl=%d param=%d\n",i,complete,rPar(r));
     157    Print("naSetChar:c=%d param=%d\n",i,rPar(r));
    164158  }
    165159#endif

  • Singular/longalg.h

    r1cf2dc6 r0d7217  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
    6 /* $Id: longalg.h,v 1.21 2000-12-08 14:42:37 Singular Exp $ */
     6/* $Id: longalg.h,v 1.22 2000-12-08 14:59:49 Singular Exp $ */
    77/*
    88* ABSTRACT:   algebraic numbers
    … …  
    3838extern int napMonomSize;
    3939
    40 void naSetChar(int p, BOOLEAN complete, ring r);
     40void naSetChar(int p, ring r);
    4141#define napAddExp(P,I,E)  ((P)->e[I-1]+=(E))
    4242#define napLength(p)      (pLength((poly)p))

  • Singular/numbers.cc

    r1cf2dc6 r0d7217  
    22*  Computer Algebra System SINGULAR      *
    33*****************************************/
    4 /* $Id: numbers.cc,v 1.30 2000-12-06 11:03:24 Singular Exp $ */
     4/* $Id: numbers.cc,v 1.31 2000-12-08 14:57:21 Singular Exp $ */
    55
    66/*
    … …  
    108108  if (rField_is_Extension(r))
    109109  {
    110     naSetChar(c,TRUE,r);
     110    naSetChar(c,r);
    111111    test |= Sy_bit(OPT_INTSTRATEGY); /*intStrategy*/
    112112    test &= ~Sy_bit(OPT_REDTAIL); /*noredTail*/
Note: See TracChangeset for help on using the changeset viewer.