Changeset 4cd2f8 in git for Singular/LIB/poly.lib

Timestamp:

May 10, 2007, 10:47:51 AM (17 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

f7baffd3731670277b3286ad679e9fa44d0e9340

Parents:

009d804796df43404d81c335304a5d0d04f0705f

Message:

*hannes: rad_con improved


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

File:

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

Singular/LIB/poly.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: poly.lib,v 1.43 2007-05-03 14:46:44 Singular Exp $";
+version="$Id: poly.lib,v 1.44 2007-05-10 08:47:51 Singular Exp $";
 category="General purpose";
 info="
@@ -665 +665 @@
 RETURN:  1 (TRUE) (type int) if g is contained in the radical of I
 @*       0 (FALSE) (type int) otherwise
-ASSUME:  the monomial order is pure global or pure local, not mixed
 EXAMPLE: example rad_con; shows an example
 "
@@ -679 +678 @@
   else
   {
-    execute("ring R=("+charstr(br)+"),(@x(1..n),@z),ds;");
+    execute("ring R=("+charstr(br)+"),(@z,@x(1..n)),(dp(1),"+ordstring(br)+");");
   }
   execute("minpoly=number("+mp+");");