Changeset bba835 in git for kernel/clapconv.cc
- Timestamp:
- May 3, 2007, 3:27:45 PM (17 years ago)
- Branches:
- (u'spielwiese', 'b324714bf5073469800caef737deba1366fbd81f')
- Children:
- 75ae36afc86628e8325b039c42ab23fe91876b39
- Parents:
- 52e38fce6d01c11b7934d7b1830db574af0f6983
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
kernel/clapconv.cc
r52e38fc rbba835 3 3 * Computer Algebra System SINGULAR * 4 4 ****************************************/ 5 // $Id: clapconv.cc,v 1. 8 2007-03-15 14:24:03Singular Exp $5 // $Id: clapconv.cc,v 1.9 2007-05-03 13:27:45 Singular Exp $ 6 6 /* 7 7 * ABSTRACT: convert data between Singular and factory … … 730 730 chineseRemainder(X,Q,xnew,qnew); 731 731 number n=convClapNSingN(xnew); 732 number p=convClapNSingN(qnew); 733 number p2=nlIntDiv(p,nlInit(2)); 734 if (nlGreater(n,p2)) 735 { 736 number n2=nlSub(n,p); 737 nlDelete(&n,currRing); 738 n=n2; 739 } 740 nlDelete(&p,currRing); 741 nlDelete(&p2,currRing); 732 742 return n; 733 743 #else
Note: See TracChangeset
for help on using the changeset viewer.