Changeset a90eb0 in git

Timestamp:

Nov 12, 2008, 6:37:30 PM (15 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

5bc1975ec489442590dc59f82d1fd24d952eb3c8

Parents:

72db1d294f7ab734d5ee980a5967b41bf3d5c720

Message:

*hannes: interred stuff


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

Location:

Singular/LIB

Files:

• poly.lib (modified) (2 diffs)
• primdec.lib (modified) (5 diffs)

Singular/LIB/poly.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: poly.lib,v 1.47 2008-11-04 11:21:46 Singular Exp $";
+version="$Id: poly.lib,v 1.48 2008-11-12 17:37:29 Singular Exp $";
 category="General purpose";
 info="
@@ -1067 +1067 @@
   execute(tempstr);
   def motemp=imap(r,motemp);
+  intvec save=option(get);
+  option(redSB);
   motemp=interred(motemp);
+  option(set,save);
   setring r;
   kill motemp;

Singular/LIB/primdec.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: primdec.lib,v 1.140 2008-10-09 09:31:57 Singular Exp $";
+version="$Id: primdec.lib,v 1.141 2008-11-12 17:37:30 Singular Exp $";
 category="Commutative Algebra";
 info="
@@ -860 +860 @@
     return(primary);
   }
+  intvec save=option(get);
+  option(redSB);
   j=interred(j);
 
@@ -890 +892 @@
       }
     }
+    option(set,save);
     return(primary);
   }
 
+  option(set,save);
   if(homog(j)==1)
   {
@@ -3770 +3774 @@
    }
 
-   if((k==0)||(m==0)){return(interred(I+F));}        //the separable case
+   if((k==0)||(m==0)) //the separable case
+   {
+    intvec save=option(get);option(redSB);
+    I=interred(I+F);option(set,save);return(I);
+   }
 
    for(i=1;i<=n;i++)             //consider all polynomials over
@@ -5538 +5546 @@
   {
     i = zeroRad(i, qr[1]);
+    option(redSB);
     i=interred(phi(i));
+    option(set, op);
     setring(P0);
     i=imap(@P,i);