Changeset c462b55 in git for libpolys/polys/pInline0.h


Ignore:
Timestamp:
Mar 22, 2011, 11:04:13 AM (12 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'spielwiese', '8d54773d6c9e2f1d2593a28bc68b7eeab54ed529')
Children:
494884581702ad06eefdf632a5e1abb42bd90f4d
Parents:
ba0fc3d4dcb089fc5523e7af222a8f52d7cb44b8
git-author:
Hans Schoenemann <hannes@mathematik.uni-kl.de>2011-03-22 11:04:13+01:00
git-committer:
Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 12:04:09+01:00
Message:
 p_MinComp, p_MaxComp
File:
1 edited

Legend:

Unmodified
Added
Removed

  • libpolys/polys/pInline0.h

    rba0fc3 rc462b55  
    7373
    7474// returns minimal column number in the modul element a (or 0)
    75 PINLINE0 long p_MinComp(poly p, ring lmRing, ring tailRing)
    76 {
    77   long result,i;
    78 
    79   if(p==NULL) return 0;
    80   result = p_GetComp(p,lmRing);
    81   if (result != 0)
    82   {
    83     loop
    84     {
    85       pIter(p);
    86       if(p==NULL) break;
    87       i = p_GetComp(p,tailRing);
    88       if (i<result) result = i;
    89     }
    90   }
    91   return result;
    92 }
    93 
    94 // returns maximal column number in the modul element a (or 0)
    95 PINLINE0 long p_MaxComp(poly p, ring lmRing, ring tailRing)
    96 {
    97   long result,i;
    98 
    99   if(p==NULL) return 0;
    100   result = p_GetComp(p, lmRing);
    101   if (result != 0)
    102   {
    103     loop
    104     {
    105       pIter(p);
    106       if(p==NULL) break;
    107       i = p_GetComp(p, tailRing);
    108       if (i>result) result = i;
    109     }
    110   }
    111   return result;
    112 }
    113 
    11475BOOLEAN   p_IsConstantPoly(const poly p, const ring r)
    11576{
Note: See TracChangeset for help on using the changeset viewer.