Changeset 89ed87 in git for kernel/ideals.cc

Timestamp:

Mar 28, 2006, 3:00:51 PM (18 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

a1f67de1a4f090a5f8fa10d3d94db0d7c693650e

Parents:

2318f073c9f71d913839cdbdcb818e1f0756a5c6

Message:

*hannes: code cleanup


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

File:

• kernel/ideals.cc (modified) (2 diffs)

kernel/ideals.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ideals.cc,v 1.17 2006-01-16 14:04:30 Singular Exp $ */
+/* $Id: ideals.cc,v 1.18 2006-03-28 13:00:51 Singular Exp $ */
 /*
 * ABSTRACT - all basic methods to manipulate ideals
@@ -870 +870 @@
 }
 
-/*3
-*deletes the place of t in p (t: variable with index 1)
-*p is NOT in the actual ring: it has pVariables+1 variables
-*/
-static poly pDivByT (poly * p,int size)
-{
-
-  poly result=NULL,
-       resultp=NULL , /** working pointer in result **/
-       pp;
-  int  i,j;
-
-  while (*p != NULL)
-  {
-    i = 0;
-    if (result == NULL)
-    {/*the first monomial*/
-      result = pInit();
-      resultp = result;
-      resultp->next = NULL;
-    }
-    else
-    {
-      resultp->next = pInit();
-      pIter(resultp);
-      resultp->next = NULL;
-    }
-    for (j=1; j<=pVariables; j++)
-    {
-      pSetExp(resultp,j,pGetExp(*p,j+1));
-    }
-    pSetComp(resultp,pGetComp(*p));
-    pSetCoeff0(resultp,pGetCoeff(*p));
-    pSetm(resultp);
-    pp = (*p)->next;
-    omFreeSize((ADDRESS)(*p),size);
-    *p = pp;
-  }
-  return result;
-}
-
 /*2
 *dehomogenized the generators of the ideal id1 with the leading