Changeset 40b3aba in git

Timestamp:

Oct 9, 2004, 10:50:11 PM (20 years ago)

Author:

Michael Brickenstein <bricken@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

2de2a9d3e8f79175378bf84769b7f049bae4b7e5

Parents:

5f775a5d38cd4fc40222e67a3361a9adc5855e34

Message:

not so many spolys at same time if not homogeneous


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

File:

• Singular/tgb.cc (modified) (5 diffs)

Singular/tgb.cc

@@ -3036 +3036 @@
   //set limit of 1000 for multireductions, at the moment for
   //programming reasons
-  int done_size=PAR_N_F4*2;
+  int max_par;
+  if (c->is_homog)
+    max_par=PAR_N_F4;
+  else
+    max_par=200;
+  int done_size=max_par*2;
   poly* done=(poly*) omalloc(done_size*sizeof(poly));
   int done_index=0; //done_index must always be smaller than done_size
-  int chosen_size=PAR_N_F4*2;
+  int chosen_size=max_par*2;
   monom_poly* chosen=(monom_poly*) omalloc(chosen_size*sizeof(monom_poly));
   int chosen_index=0;
@@ -3053 +3058 @@
   int nfs=0;
   int curr_deg=-1;
-  
+
   //choose pairs and preprocess symbolically
-  while(chosen_index<PAR_N_F4)
+  while(chosen_index<max_par)
   {
     
@@ -3100 +3105 @@
       if(done_index>=done_size)
       {
-        done_size+=PAR_N_F4;
+        done_size+=max_par;
         done=(poly*) omrealloc(done,done_size*sizeof(poly));
       }
@@ -3106 +3111 @@
       if(chosen_index+1>=chosen_size)
       {
-        //PAR_N_F4 must be greater equal 2
-        chosen_size+=max(PAR_N_F4,2);
+        //max_par must be greater equal 2
+        chosen_size+=max(max_par,2);
         chosen=(monom_poly*) omrealloc(chosen,chosen_size*sizeof(monom_poly));
       }
@@ -3121 +3126 @@
       if(chosen_index>=chosen_size)
       {
-        chosen_size+=PAR_N_F4;
+        chosen_size+=max_par;
         chosen=(monom_poly*) omrealloc(chosen,chosen_size*sizeof(monom_poly));
       }