Changeset 49c821 in git

Timestamp:

Dec 14, 2006, 9:47:33 AM (17 years ago)

Author:

Gerhard Pfister <pfister@…>

Branches:

(u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')

Children:

1f19f1a79d738c00245bdf06723d3105a365d31a

Parents:

ea9f7aa993e912904cb71ed1c8fd0b8b2252f26a

Message:

bug in rad_con fixed.


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

File:

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

Singular/LIB/poly.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: poly.lib,v 1.38 2006-07-20 14:51:56 Singular Exp $";
+version="$Id: poly.lib,v 1.39 2006-12-14 08:47:33 pfister Exp $";
 category="General purpose";
 info="
@@ -674 +674 @@
   degBound=0;
   string mp=string(minpoly);
-  execute("ring R=("+charstr(br)+"),(x(1..n),z),dp;");
+  execute("ring R=("+charstr(br)+"),(x(1..n),@z),dp;");
   execute("minpoly=number("+mp+");");
   ideal irrel=x(1..n);
   map f=br,irrel;
   poly p=f(g);
-  ideal J=f(I)+ideal(p*z-1);
+  ideal J=f(I)+ideal(p*@z-1);
   J=std(J);
   degBound=dB;
   if (J[1]==1)
-  { return(1);
+  { 
+     setring br;
+     return(1);
   }
   else
-  { return(0);
+  { 
+     setring br;
+     return(0);
   }
 }