Changeset 89ed87 in git for kernel/ideals.cc


Ignore:
Timestamp:
Mar 28, 2006, 3:00:51 PM (18 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b52fc4b2495505785981d640dcf7eb3e456778ef')
Children:
a1f67de1a4f090a5f8fa10d3d94db0d7c693650e
Parents:
2318f073c9f71d913839cdbdcb818e1f0756a5c6
Message:
*hannes: code cleanup


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

Legend:

Unmodified
Added
Removed
  • kernel/ideals.cc

    r2318f07 r89ed87  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ideals.cc,v 1.17 2006-01-16 14:04:30 Singular Exp $ */
     4/* $Id: ideals.cc,v 1.18 2006-03-28 13:00:51 Singular Exp $ */
    55/*
    66* ABSTRACT - all basic methods to manipulate ideals
     
    870870}
    871871
    872 /*3
    873 *deletes the place of t in p (t: variable with index 1)
    874 *p is NOT in the actual ring: it has pVariables+1 variables
    875 */
    876 static poly pDivByT (poly * p,int size)
    877 {
    878 
    879   poly result=NULL,
    880        resultp=NULL , /** working pointer in result **/
    881        pp;
    882   int  i,j;
    883 
    884   while (*p != NULL)
    885   {
    886     i = 0;
    887     if (result == NULL)
    888     {/*the first monomial*/
    889       result = pInit();
    890       resultp = result;
    891       resultp->next = NULL;
    892     }
    893     else
    894     {
    895       resultp->next = pInit();
    896       pIter(resultp);
    897       resultp->next = NULL;
    898     }
    899     for (j=1; j<=pVariables; j++)
    900     {
    901       pSetExp(resultp,j,pGetExp(*p,j+1));
    902     }
    903     pSetComp(resultp,pGetComp(*p));
    904     pSetCoeff0(resultp,pGetCoeff(*p));
    905     pSetm(resultp);
    906     pp = (*p)->next;
    907     omFreeSize((ADDRESS)(*p),size);
    908     *p = pp;
    909   }
    910   return result;
    911 }
    912 
    913872/*2
    914873*dehomogenized the generators of the ideal id1 with the leading
Note: See TracChangeset for help on using the changeset viewer.