Changeset bba835 in git for kernel/clapconv.cc

Timestamp:

May 3, 2007, 3:27:45 PM (17 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'b324714bf5073469800caef737deba1366fbd81f')

Children:

75ae36afc86628e8325b039c42ab23fe91876b39

Parents:

52e38fce6d01c11b7934d7b1830db574af0f6983

Message:

*hannes: chinese remainder


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

File:

• kernel/clapconv.cc (modified) (2 diffs)

kernel/clapconv.cc

@@ -3 +3 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-// $Id: clapconv.cc,v 1.8 2007-03-15 14:24:03 Singular Exp $
+// $Id: clapconv.cc,v 1.9 2007-05-03 13:27:45 Singular Exp $
 /*
 * ABSTRACT: convert data between Singular and factory
@@ -730 +730 @@
   chineseRemainder(X,Q,xnew,qnew);
   number n=convClapNSingN(xnew);
+  number p=convClapNSingN(qnew);
+  number p2=nlIntDiv(p,nlInit(2));
+  if (nlGreater(n,p2))
+  {
+     number n2=nlSub(n,p);
+     nlDelete(&n,currRing);
+     n=n2;
+  }
+  nlDelete(&p,currRing);
+  nlDelete(&p2,currRing);
   return n;
 #else