Changeset c3005ea in git

Timestamp:

Dec 2, 2010, 4:44:56 PM (12 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')

Children:

66bff8383ec423ff4d78015828b80285a4d2888a

Parents:

715f30d21dbf78d93d3b6cd041dee85992b46b61

Message:

code cleanup: pDehomgen, idDehomgen

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

Location:

kernel

Files:

• ideals.cc (modified) (1 diff)
• ideals.h (modified) (1 diff)
• polys.cc (modified) (1 diff)
• polys.h (modified) (1 diff)

kernel/ideals.cc

@@ -942 +942 @@
 
 /*2
-*dehomogenized the generators of the ideal id1 with the leading
-*monomial of p replaced by n
-*/
-ideal idDehomogen (ideal id1,poly p,number n)
-{
-  int i;
-  ideal result;
-
-  if (idIs0(id1))
-  {
-    return idInit(1,id1->rank);
-  }
-  result=idInit(IDELEMS(id1),id1->rank);
-  for (i=0; i<IDELEMS(id1); i++)
-  {
-    result->m[i] = pDehomogen(id1->m[i],p,n);
-  }
-  return result;
-}
-
-/*2
 * verschiebt die Indizees der Modulerzeugenden um i
 */

kernel/ideals.h

@@ -114 +114 @@
 int pLowVar (poly p);
   /*-the minimal index of used variables - 1-*/
-ideal idDehomogen (ideal id1,poly p,number n);
-  /*dehomogenized the generators of the ideal id1 with the leading
-  monomial of p replaced by n*/
 void pShift (poly * p,int i);
   /*- verschiebt die Indizes der Modulerzeugenden um i -*/

kernel/polys.cc

@@ -432 +432 @@
   }
 }
-/*2
-*replaces the maximal powers of the leading monomial of p2 in p1 by
-*the same powers of n, utility for dehomogenization
-*/
-poly pDehomogen (poly p1,poly p2,number n)
-{
-  polyset P;
-  int     SizeOfSet=5;
-  int     i;
-  poly    p;
-  number  nn;
-
-  P = (polyset)omAlloc0(5*sizeof(poly));
-  //for (i=0; i<5; i++)
-  //{
-  //  P[i] = NULL;
-  //}
-  pCancelPolyByMonom(p1,p2,&P,&SizeOfSet);
-  p = P[0];
-  //P[0] = NULL ;// for safety, may be removed later
-  for (i=1; i<SizeOfSet; i++)
-  {
-    if (P[i] != NULL)
-    {
-      nPower(n,i,&nn);
-      pMult_nn(P[i],nn);
-      p = pAdd(p,P[i]);
-      //P[i] =NULL; // for safety, may be removed later
-      nDelete(&nn);
-    }
-  }
-  omFreeSize((ADDRESS)P,SizeOfSet*sizeof(poly));
-  return p;
-}
-
 
 /*----------utilities for syzygies--------------*/

kernel/polys.h

@@ -361 +361 @@
 poly      pHomogen (poly p, int varnum);
 
-// replaces the maximal powers of the leading monomial of p2 in p1 by
-// the same powers of n, utility for dehomogenization
-poly      pDehomogen (poly p1,poly p2,number n);
 BOOLEAN   pIsHomogeneous (poly p);