Changeset 2b2f12 in git

Timestamp:

Jun 24, 2005, 9:28:19 AM (19 years ago)

Author:

Nadine Cremer <cremer@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

24bbc060999a8fb69567d3ebdb57c7df9cb0b342

Parents:

4debdbdcebfb769718766a767ff50429cd64b51b

Message:

*cremer: it's running, now save the results from each step.


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

File:

• Singular/LIB/lejeune.lib (modified) (4 diffs)

Singular/LIB/lejeune.lib

@@ -1 +1 @@
 
 //-*- mode:C++;-*-
-// $Id: lejeune.lib,v 1.6 2005-06-23 15:45:54 cremer Exp $
+// $Id: lejeune.lib,v 1.7 2005-06-24 07:28:19 cremer Exp $
 
 
@@ -48 +48 @@
     }
   def r=basering;                      // need that in iteration
-  ideal resultf_set,step,I;            // save result resp. prelim. result
-  for(p=1;p<b-1;p++)                   // iterating steps
-    { 
-      def tmp=f_set(f,H[1..p+1]);
+  ideal resultf_set,I;                 // save result resp. prelim. result
+  for(p=b-1;p>1;p--)                   // iterating steps
+    {
+      def tmp=f_set(f,intvec(H[1..p]));       
       setring(tmp);
       def tmp1=resultf_set;
-      step=tmp1;
-      export(step);
-      step;~
+      export(tmp1);
       setring(r);     
     }
@@ -132 +130 @@
   startvar=nvars(basering);
   export(startvar);       
-  string str=variables(startvar,i);
+  variables(startvar,i);
   def R=changevar(""+varstr(basering)+",t,"+variables(startvar,i)+"");// change
   return(R);                 // return the ring, needed in future proc
@@ -159 +157 @@
 proc a_z (int n)                        // returns nth letter of the alphabet
 { 
-  if((n<1)||(n>26))                     // input admissible?
+  if(1>n>26)                     // input admissible?
    { 
      "n must range between 1 and 26!";