Changeset 24bbc0 in git

Timestamp:

Jun 24, 2005, 10:45:04 AM (18 years ago)

Author:

Nadine Cremer <cremer@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

07bc1d47f12529a6b8f7b7692dc0998bae8e5f4d

Parents:

2b2f129623a7ca03bcdf91ec54a2bc86e8a452e8

Message:

*cremer: it's running, now save the results from each step-second try ;-).


git-svn-id: file:///usr/local/Singular/svn/trunk@8395 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.7 2005-06-24 07:28:19 cremer Exp $
+// $Id: lejeune.lib,v 1.8 2005-06-24 08:45:04 cremer Exp $
 
 
@@ -29 +29 @@
 
 proc f_set (poly f,intvec H)
-{
+{ 
   int p;                              // loop variable
   int m_0=ord(f);
@@ -47 +47 @@
       }
     }
-  def r=basering;                      // need that in iteration
-  ideal resultf_set,I;                 // save result resp. prelim. result
+  def r=basering;                     // need that in iteratio                 
   for(p=b-1;p>1;p--)                   // iterating steps
-    {
+    {    
       def tmp=f_set(f,intvec(H[1..p]));       
-      setring(tmp);
-      def tmp1=resultf_set;
-      export(tmp1);
-      setring(r);     
+      //setring tmp;
+      //def tmp1=resultf_set;
+      //setring r;     
     }
   def R=formaldiff(f,b-1,c,H[b]);      // actual step
@@ -130 +128 @@
   startvar=nvars(basering);
   export(startvar);       
-  variables(startvar,i);
   def R=changevar(""+varstr(basering)+",t,"+variables(startvar,i)+"");// change
   return(R);                 // return the ring, needed in future proc