Changeset a7b18ce in git


Ignore:
Timestamp:
Oct 9, 2009, 7:44:07 PM (14 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')
Children:
259111f4634d94bbfd66d60c471984b56b91d4b2
Parents:
60e4be265398f8004f3b093179a74b59f4fdcb74
Message:
*hannes: less Normalize


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

Legend:

Unmodified
Added
Removed

  • kernel/longalg.cc

    r60e4be ra7b18ce  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: longalg.cc,v 1.59 2009-10-09 12:27:04 Singular Exp $ */
     4/* $Id: longalg.cc,v 1.60 2009-10-09 17:44:07 Singular Exp $ */
    55/*
    66* ABSTRACT:   algebraic numbers
    … …  
    195195{
    196196  number t;
     197  poly pp=p;
    197198
    198199  while (p!=NULL)
    199200  {
    200201    t = nacMult(pGetCoeff(p), z);
    201     nacNormalize(t);
    202202    n_Delete(&pGetCoeff(p),nacRing);
    203203    pGetCoeff(p) = t;
    204204    pIter(p);
    205205  }
     206  p_Normalize(pp,nacRing);
    206207}
    207208
    … …  
    224225    pGetCoeff(qq) = nacDiv(pGetCoeff(a), pGetCoeff(g));
    225226    pGetCoeff(qq) = nacNeg(pGetCoeff(qq));
    226     nacNormalize(pGetCoeff(qq));
    227227    h = napCopy(g);
    228228    napMultT(h, qq);
    229     p_Normalize(h,nacRing);
    230229    n_Delete(&pGetCoeff(qq),nacRing);
    231230    a = napAdd(a, h);
    … …  
    258257    h = napCopy(g);
    259258    napMultT(h, qq);
    260     p_Normalize(h,nacRing);
    261259    n_Delete(&pGetCoeff(qq),nacRing);
    262260    a = napAdd(a, h);
    … …  
    286284    if (!nacIsOne(pGetCoeff(x)))
    287285    {
    288       nacNormalize(pGetCoeff(x));
    289286      t = nacInvers(pGetCoeff(x));
    290287      nacNormalize(t);
    … …  
    302299  if (p_GetExp(r,1,nacRing)==0)
    303300  {
    304     nacNormalize(pGetCoeff(r));
    305301    t = nacInvers(pGetCoeff(r));
    306     nacNormalize(t);
    307302    t = nacNeg(t);
    308303    napMultN(qa, t);
    309304    n_Delete(&t,nacRing);
    310     p_Normalize(qa,nacRing);
    311305    p_Delete(&x,nacRing);
    312306    p_Delete(&r,nacRing);
    … …  
    324318    q = p_Mult_q(q, qa,nacRing);
    325319    q = napAdd(q, p_ISet(1,nacRing));
    326     nacNormalize(pGetCoeff(r));
    327320    t = nacInvers(pGetCoeff(r));
    328321    napMultN(q, t);
    329     p_Normalize(q,nacRing);
    330322    n_Delete(&t,nacRing);
    331323    p_Delete(&x,nacRing);
    … …  
    352344      q = napNeg(q);
    353345      q = napAdd(q, qa);
    354       nacNormalize(pGetCoeff(r));
    355346      t = nacInvers(pGetCoeff(r));
    356       //nacNormalize(t);
    357347      napMultN(q, t);
    358       p_Normalize(q,nacRing);
    359348      n_Delete(&t,nacRing);
    360349      p_Delete(&x,nacRing);
    … …  
    947936{
    948937  lnumber l=(lnumber)n;
    949   naNormalize(n);
    950938  if ((l!=NULL)&&(l->n==NULL)&&(p_IsConstant(l->z,r->algring)))
    951939  {
    … …  
    978966  if (p==NULL) return NULL;
    979967  naTest(p);
    980   //naNormalize(p);
    981968  lnumber erg;
    982969  lnumber src = (lnumber)p;
    … …  
    10531040  lu->n = x;
    10541041  lu->s = FALSE;
    1055   if (lu->n!=NULL)
    1056   {
    1057      number luu=(number)lu;
    1058      naNormalize(luu);
    1059      lu=(lnumber)luu;
    1060   }
     1042  number luu=(number)lu;
     1043  naCoefNormalize(luu);
     1044  lu=(lnumber)luu;
    10611045  naTest((number)lu);
    10621046  return (number)lu;
    … …  
    11181102  lu->n = x;
    11191103  lu->s = FALSE;
    1120   if (lu->n!=NULL)
    1121   {
    1122      number luu=(number)lu;
    1123      naNormalize(luu);
    1124      lu=(lnumber)luu;
    1125   }
     1104  number luu=(number)lu;
     1105  naCoefNormalize(luu);
     1106  lu=(lnumber)luu;
    11261107  naTest((number)lu);
    11271108  return (number)lu;
    … …  
    11941175    lo=NULL;
    11951176  }
    1196 #if 1
    1197   else if (lo->n!=NULL)
     1177  else
    11981178  {
    11991179    lo->s = 0;
    12001180    number luu=(number)lo;
    1201     naNormalize(luu);
     1181    naCoefNormalize(luu);
    12021182    lo=(lnumber)luu;
    12031183  }
    1204   else
    1205     lo->s=3;
    1206 #endif
    12071184  naTest((number)lo);
    12081185  return (number)lo;
    … …  
    12891266    p_Delete(&x,nacRing);
    12901267  lo->n = x;
    1291   if (lo->n!=NULL)
    1292   {
    1293     lo->s = 0;
    1294     number luu=(number)lo;
    1295     naNormalize(luu);
    1296     lo=(lnumber)luu;
    1297   }
    1298   else
    1299     lo->s=3;
     1268  number luu=(number)lo;
     1269  naCoefNormalize(luu);
     1270  lo=(lnumber)luu;
    13001271  naTest((number)lo);
    13011272  return (number)lo;
Note: See TracChangeset for help on using the changeset viewer.