Changeset 0ebd7e in git for kernel/kspoly.cc

Timestamp:

Apr 20, 2011, 6:09:43 PM (12 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

1ddd044275ba5d4433a597ff9edee1abfce81a0e

Parents:

2945379dfb56330fb50187871415af6e9c6ec7d3

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2011-04-20 18:09:43+02:00

git-committer:

Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 12:31:23+01:00

Message:

add ksCheckCoeffs

File:

• kernel/kspoly.cc (modified) (1 diff)

kernel/kspoly.cc

@@ -346 +346 @@
  *
  ***************************************************************/
-
-/*
-* input - output: a, b
-* returns:
-*   a := a/gcd(a,b), b := b/gcd(a,b)
-*   and return value
-*       0  ->  a != 1,  b != 1
-*       1  ->  a == 1,  b != 1
-*       2  ->  a != 1,  b == 1
-*       3  ->  a == 1,  b == 1
-*   this value is used to control the spolys
-*/
-int ksCheckCoeff(number *a, number *b)
-{
-  int c = 0;
-  number an = *a, bn = *b;
-  nTest(an);
-  nTest(bn);
-
-  number cn = nGcd(an, bn, currRing);
-
-  if(nIsOne(cn))
-  {
-    an = nCopy(an);
-    bn = nCopy(bn);
-  }
-  else
-  {
-    an = nIntDiv(an, cn);
-    bn = nIntDiv(bn, cn);
-  }
-  nDelete(&cn);
-  if (nIsOne(an))
-  {
-    c = 1;
-  }
-  if (nIsOne(bn))
-  {
-    c += 2;
-  }
-  *a = an;
-  *b = bn;
-  return c;
-}
 
 /*2