Changeset b711e1 in git


Ignore:
Timestamp:
Nov 10, 1998, 6:12:03 PM (26 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'c7af8613769b29c741d6c338945669719f1fc4f8')
Children:
0fe7d1263f3347f2c4baa17e0616195ba42d3be8
Parents:
6d32d7da469159ba73a6256b743d2742747ed9d1
Message:
*hannes: idCompactify simplified


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

Legend:

Unmodified
Added
Removed
  • Singular/ideals.cc

    r6d32d7 rb711e1  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ideals.cc,v 1.39 1998-10-15 13:51:17 siebert Exp $ */
     4/* $Id: ideals.cc,v 1.40 1998-11-10 17:12:03 Singular Exp $ */
    55/*
    66* ABSTRACT - all basic methods to manipulate ideals
     
    23532353        if (p!=NULL)
    23542354        {
    2355           //idEnterSet(p,result,nextPlace);
     2355          //idEnterSet(p,result,nextPlace);
    23562356          if (*nextPlace>=IDELEMS(result))
    23572357          {
     
    25782578ideal idCompactify(ideal id)
    25792579{
    2580   ideal result = NULL;
    25812580  int i,j;
    25822581  BOOLEAN b=FALSE;
    25832582
    2584   result=idCopy(id);
    2585   i = IDELEMS(result)-1;
     2583  i = IDELEMS(id)-1;
    25862584  while ((! b) && (i>=0))
    25872585  {
    2588     b=pIsUnit(result->m[i]);
     2586    b=pIsUnit(id->m[i]);
    25892587    i--;
    25902588  }
    25912589  if (b)
    25922590  {
    2593     for (i=IDELEMS(result)-1;i>=0;i--)
    2594       pDelete(&result->m[i]);
     2591    ideal result=idInit(1,id->rank);
    25952592    result->m[0]=pOne();
     2593    return result;
    25962594  }
    25972595  else
    25982596  {
     2597    ideal result=idCopy(id);
    25992598    for (i=1;i<IDELEMS(result);i++)
    26002599    {
     
    26112610      }
    26122611    }
    2613   }
    2614   idSkipZeroes(result);
    2615   return result;
     2612    idSkipZeroes(result);
     2613    return result;
     2614  }
    26162615}
    26172616
Note: See TracChangeset for help on using the changeset viewer.