Changeset c3005ea in git for kernel/polys.cc

Timestamp:

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

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

66bff8383ec423ff4d78015828b80285a4d2888a

Parents:

715f30d21dbf78d93d3b6cd041dee85992b46b61

Message:

code cleanup: pDehomgen, idDehomgen

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

File:

• kernel/polys.cc (modified) (1 diff)

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--------------*/