Changeset 677e93 in git


Ignore:
Timestamp:
May 3, 2007, 4:46:44 PM (16 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')
Children:
df9a4a973e594887c8379dd6942c4ac4113f3f00
Parents:
f97b4e78c30a553c1cb709b4f0d875d6c438951a
Message:
*hannes: rad_con for local ordering


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

Legend:

Unmodified
Added
Removed
  • Singular/LIB/poly.lib

    rf97b4e r677e93  
    11///////////////////////////////////////////////////////////////////////////////
    2 version="$Id: poly.lib,v 1.42 2007-04-19 12:52:17 Singular Exp $";
     2version="$Id: poly.lib,v 1.43 2007-05-03 14:46:44 Singular Exp $";
    33category="General purpose";
    44info="
     
    665665RETURN:  1 (TRUE) (type int) if g is contained in the radical of I
    666666@*       0 (FALSE) (type int) otherwise
     667ASSUME:  the monomial order is pure global or pure local, not mixed
    667668EXAMPLE: example rad_con; shows an example
    668669"
     
    672673  degBound=0;
    673674  string mp=string(minpoly);
    674   execute("ring R=("+charstr(br)+"),(@x(1..n),@z),dp;");
     675  if (attrib(br,"global")==1)
     676  {
     677    execute("ring R=("+charstr(br)+"),(@x(1..n),@z),dp;");
     678  }
     679  else
     680  {
     681    execute("ring R=("+charstr(br)+"),(@x(1..n),@z),ds;");
     682  }
    675683  execute("minpoly=number("+mp+");");
    676684  ideal irrel=@x(1..n);
Note: See TracChangeset for help on using the changeset viewer.