Ignore:
Timestamp:
Apr 26, 2013, 12:07:28 PM (10 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '5a0dde71de01068fad5736a17555c993ecbbf495')
Children:
24029535f20e3283a5e681c592f7d6f44bfafe01
Parents:
96c2ce8b080a9a545234eb9b8d52c48883488fc8
Message:
add: checks for rational coeff. in rational functions
File:
1 edited

Legend:

Unmodified
Added
Removed
  • libpolys/polys/ext_fields/transext.cc

    r96c2ce ra44bcf  
    175175//    }
    176176    // test that nume is over integers!?
     177  }
     178  if (getCoeffType(ntCoeffs)==n_Q)
     179  {
     180    poly p=num; // !=NULL
     181    do
     182    {
     183      number n=pGetCoeff(p);
     184      n_Test(n,ntCoeffs);
     185      if (!(SR_HDL(n) & SR_INT))
     186      {
     187        if (n->s<2)
     188          Print("rational coeff in num: %s:%d\n",f,l);
     189      }
     190      pIter(p);
     191    } while(p!=NULL);
     192    p=den;
     193    while(p!=NULL)
     194    {
     195      number n=pGetCoeff(p);
     196      if (!(SR_HDL(n) & SR_INT))
     197      {
     198        if (n->s!=3)
     199          Print("rational coeff in den.:%s:%d\n",f,l);
     200      }
     201      pIter(p);
     202    }
    177203  }
    178204  return TRUE;
Note: See TracChangeset for help on using the changeset viewer.