Changeset 7475b3f in git

Timestamp:

Dec 31, 2000, 3:02:05 AM (22 years ago)

Author:

Gert-Martin Greuel <greuel@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

2e49a51582e5688782ab3d662b5dad70f3938d81

Parents:

bb7da752a854cf4b094e8dde30a8a98f0c5bb32f

Message:

* GMG: proc lcmP entfernt, da lcm in poly.lib dasselbe tut und lcmP duch
*      lcm ersetzt, wo es verwendet wird


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

File:

• Singular/LIB/primdec.lib (modified) (4 diffs)

Singular/LIB/primdec.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: primdec.lib,v 1.81 2000-12-22 14:24:36 greuel Exp $";
+version="$Id: primdec.lib,v 1.82 2000-12-31 02:02:05 greuel Exp $";
 category="Commutative Algebra";
 info="
@@ -1253 +1253 @@
    if(size(@pa)==0)
    {
-      return(lcmP(h));
+      return(lcm(h));
    }
    def bsr= basering;
@@ -1259 +1259 @@
    execute("ring @r=0,("+@pa+","+varstr(bsr)+"),(C,dp);");
    execute ("ideal @i="+@id+";");
-   poly @p=lcmP(@i);
+   poly @p=lcm(@i);
    string @ps=string(@p);
    setring bsr;
@@ -1275 +1275 @@
    pr;
 }
-
 ///////////////////////////////////////////////////////////////////////////////
 
-proc lcmP(ideal i)
-"USAGE:   lcm(i); i list of polynomials
-RETURN:  poly = lcm(i[1],...,i[size(i)])
-NOTE:
-EXAMPLE: example lcm; shows an example
-"
-{
-  int k,j;
-   poly p,q;
-  i=simplify(i,10);
-  for(j=1;j<=size(i);j++)
-  {
-    if(deg(i[j])>0)
-    {
-      p=i[j];
-      break;
-    }
-  }
-  if(deg(p)==-1)
-  {
-    return(1);
-  }
-  for (k=j+1;k<=size(i);k++)
-  {
-     if(deg(i[k])!=0)
-     {
-        q=GCD(p,i[k]);
-        if(deg(q)==0)
-        {
-           p=p*i[k];
-        }
-        else
-        {
-           p=p/q;
-           p=p*i[k];
-        }
-     }
-   }
-  return(p);
-}
-example
-{ "EXAMPLE:"; echo = 2;
-   ring  r = 0,(x,y,z),lp;
-   poly  p = (x+y)*(y+z);
-   poly  q = (z4+2)*(y+z);
-   ideal l=p,q;
-   poly  pr= lcmP(l);
-   pr;
-   l=1,-1,p,1,-1,q,1;
-   pr=lcmP(l);
-   pr;
-}
-
-///////////////////////////////////////////////////////////////////////////////
 proc clearSB (ideal i,list #)
 "USAGE:   clearSB(i); i ideal which is SB ordered by monomial ordering