Changeset a875c3 in git
- Timestamp:
- Nov 23, 2011, 4:59:58 PM (12 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- d3bf01540e1d6181e4e04912c9334dac07c29b47
- Parents:
- 58f11d0e41884ac92b8aa12caa481d1e5f0b8c0c
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/walk.cc
r58f11d0 ra875c3 31 31 32 32 //#define TIME_TEST // print the used time of each subroutine 33 //#define ENDWALKS //print the size of the last omega-homogenoues Gr öbner basis33 //#define ENDWALKS //print the size of the last omega-homogenoues Grï¿œbner basis 34 34 35 35 /* includes */ … … 1815 1815 int i, nv = currRing->N; 1816 1816 1817 r->cf ->ch = rChar (currRing);1817 r->cf = currRing->cf; 1818 1818 r->N = currRing->N; 1819 1819 int nb = rBlocks(currRing) + 1;//31.10.01 (+1) … … 1886 1886 int i, nv = currRing->N; 1887 1887 1888 r->cf ->ch = rChar (currRing);1888 r->cf = currRing->cf; 1889 1889 r->N = currRing->N; 1890 1890 int nb = rBlocks(currRing) + 1;//31.10.01 (+1) … … 2035 2035 2036 2036 2037 r->cf ->ch = rChar (currRing);2037 r->cf = currRing->cf; 2038 2038 r->N = currRing->N; 2039 2039 int nb = rBlocks(currRing) + 1;//31.10.01 (+1) … … 3272 3272 3273 3273 /* The main procedur Mfwalk calls the recursive Subroutine 3274 rec_fractal_call to compute the wanted Gr öbner basis.3275 At the main procedur we compute the reduced Gr öbner basis w.r.t. a "fast"3274 rec_fractal_call to compute the wanted Grï¿œbner basis. 3275 At the main procedur we compute the reduced Grï¿œbner basis w.r.t. a "fast" 3276 3276 order, e.g. "dp" and a sequence of weight vectors which are row vectors 3277 3277 of a matrix. This matrix defines the given monomial order, e.g. "lp" … … 3561 3561 3562 3562 /* 08.09.02 */ 3563 /******** THE NEW GR ÖBNER WALK ALGORITHM **********/3564 /* Gr öbnerwalk with a recursive "second" alternative GW, REC_GB_Mwalk3563 /******** THE NEW GRï¿œBNER WALK ALGORITHM **********/ 3564 /* Grï¿œbnerwalk with a recursive "second" alternative GW, REC_GB_Mwalk 3565 3565 that only computes the last reduced GB */ 3566 3566 ideal Mwalk(ideal Go, intvec* curr_weight, intvec* target_weight) … … 3620 3620 tim = clock(); 3621 3621 /* 3622 Print("\n// **** Gr öbnerwalk took %d steps and ", nwalk);3622 Print("\n// **** Grï¿œbnerwalk took %d steps and ", nwalk); 3623 3623 PrintS("\n// **** call the rec. Pert. Walk to compute a red GB of:"); 3624 3624 idElements(Gomega, "G_omega"); … … 5130 5130 5131 5131 5132 /* compute the reduced Gr öbner basis of an ideal <Go> w.r.t. lp */5132 /* compute the reduced Grï¿œbner basis of an ideal <Go> w.r.t. lp */ 5133 5133 static ideal Mpwalk_MAltwalk1(ideal Go, intvec* curr_weight, int tp_deg) 5134 5134 {
Note: See TracChangeset
for help on using the changeset viewer.