Changeset ee17bf in git

Timestamp:

Jun 24, 2005, 11:25:08 AM (18 years ago)

Author:

Nadine Cremer <cremer@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

565d9bfb8ae0ed9b2b9a7f1bfbcdf9ef01f163a8

Parents:

d4cf20d0bbfa138f5d9a3a6458142a06af15604e

Message:

*cremer: still trying to save...


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

File:

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

Singular/LIB/lejeune.lib

@@ -1 +1 @@
 
 //-*- mode:C++;-*-
-// $Id: lejeune.lib,v 1.8 2005-06-24 08:45:04 cremer Exp $
+// $Id: lejeune.lib,v 1.9 2005-06-24 09:25:08 cremer Exp $
 
 
@@ -47 +47 @@
       }
     }
-  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 r=basering; 
+   for(p=b-1;p>1;p--)                   // iterating steps
+    { 
+      if(p==2)
+        {   
+          def tmp=f_set(f,intvec(H[1..p]));
+          setring tmp;
+          def tmp1=resultf_set;
+          export(tmp1);
       //def tmp1=resultf_set;
-      //setring r;     
-    }
+      //setring r; 
+    } 
   def R=formaldiff(f,b-1,c,H[b]);      // actual step
   setring R;
   def T=resultdiff;
-  ideal resultf_set=T;
-  export(resultf_set);
+  ideal resultf_set;
+  //if(b==2)
+  //  {
+  //    ideal resultf_set;
+  //    resultf_set=T;
+  //    export(resultf_set);
+  //  }
+  //else
+  //  { ideal resultf_set=imap(tmp,tmp1);
+  //    resultf_set=resultf_set,T;
+  //    export(resultf_set);
+  //  }
+ 
   resultf_set;
-  return(R);
+  return(R);   
 }