Changeset 19408c in git for kernel/kstd2.cc
- Timestamp:
- Jul 25, 2007, 12:03:20 PM (17 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- 18ff4c01a3ffc8cf752b79bdab6fe61ba7bf80a2
- Parents:
- 35468408f99e640b45941429275be4d3b72d2bf1
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
kernel/kstd2.cc
r354684 r19408c 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: kstd2.cc,v 1.5 1 2007-07-24 13:12:26Singular Exp $ */4 /* $Id: kstd2.cc,v 1.52 2007-07-25 10:03:20 Singular Exp $ */ 5 5 /* 6 6 * ABSTRACT - Kernel: alg. of Buchberger … … 1033 1033 if (sll<sl) 1034 1034 { 1035 j=jj; 1036 sl=sll; 1035 if (!nIsOne(pGetCoeff(strat->S[j]))) 1036 { 1037 pNorm(strat->S[j]); 1038 if (TEST_OPT_PROT) { PrintS("n"); mflush(); } 1039 sl=pSize(strat->S[j]); 1040 } 1041 if (!nIsOne(pGetCoeff(strat->S[jj]))) 1042 { 1043 pNorm(strat->S[jj]); 1044 if (TEST_OPT_PROT) { PrintS("n"); mflush(); } 1045 sll=pSize(strat->S[jj]); 1046 } 1047 if (sll<sl) 1048 { 1049 if (TEST_OPT_DEBUG) Print("better(S%d:%d -> S%d:%d)\n",j,sl,jj,sll); 1050 else if (TEST_OPT_PROT) { PrintS("b"); mflush(); } 1051 j=jj; 1052 sl=sll; 1053 } 1037 1054 } 1038 1055 } … … 1040 1057 { 1041 1058 pNorm(strat->S[j]); 1042 //if (TEST_OPT_PROT) { PrintS("n"); mflush(); }1059 if (TEST_OPT_PROT) { PrintS("n"); mflush(); } 1043 1060 } 1044 1061 nNormalize(pGetCoeff(P.p));
Note: See TracChangeset
for help on using the changeset viewer.