Changeset a1ecc18 in git


Ignore:
Timestamp:
Nov 23, 2000, 6:44:07 PM (23 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
Children:
6c7f744ef85ac056f7291044e0d591cb8001d794
Parents:
85342036e5a4c81e1cace3f56c0dc8c1c1c655e0
Message:
*hannes: p_ISet


git-svn-id: file:///usr/local/Singular/svn/trunk@4765 2c84dea3-7e68-4137-9b89-c4e89433aadc
Location:
Singular
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • Singular/p_polys.cc

    r853420 ra1ecc18  
    77 *  Author:  obachman (Olaf Bachmann)
    88 *  Created: 8/00
    9  *  Version: $Id: p_polys.cc,v 1.10 2000-11-23 17:34:12 obachman Exp $
     9 *  Version: $Id: p_polys.cc,v 1.11 2000-11-23 17:42:30 Singular Exp $
    1010 *******************************************************************/
    1111
     
    730730  return k;
    731731}
     732
     733/*2
     734* returns a polynomial representing the integer i
     735*/
     736poly p_ISet(int i, ring r)
     737{
     738  poly rc = NULL;
     739  if (i!=0)
     740  {
     741    rc = p_Init(r);
     742    pSetCoeff0(rc,r->cf->nInit(i));
     743    if (r->cf->nIsZero(p_GetCoeff(rc,r)))
     744      p_DeleteLm(&rc,r);
     745  }
     746  return rc;
     747}
     748
  • Singular/p_polys.h

    r853420 ra1ecc18  
    88 *  Author:  obachman (Olaf Bachmann)
    99 *  Created: 9/00
    10  *  Version: $Id: p_polys.h,v 1.15 2000-11-23 17:34:12 obachman Exp $
     10 *  Version: $Id: p_polys.h,v 1.16 2000-11-23 17:41:32 Singular Exp $
    1111 *******************************************************************/
    1212#ifndef P_POLYS_H
     
    216216int       p_IsPurePower(const poly p, const ring r);
    217217
     218// returns the poly representing the integer i
     219poly      p_ISet(int i, ring r);
     220
    218221/***************************************************************
    219222 *
  • Singular/polys.h

    r853420 ra1ecc18  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
    6 /* $Id: polys.h,v 1.46 2000-11-23 17:34:12 obachman Exp $ */
     6/* $Id: polys.h,v 1.47 2000-11-23 17:40:02 Singular Exp $ */
    77/*
    88* ABSTRACT - all basic methods to manipulate polynomials of the
     
    312312
    313313void      pEnlargeSet(polyset *p, int length, int increment);
    314 poly      pISet(int i);
     314#define   pISet(i) p_ISet(i,currRing)
    315315#define   pOne()   pISet(1)
    316316
  • Singular/polys1.cc

    r853420 ra1ecc18  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: polys1.cc,v 1.54 2000-11-23 17:34:13 obachman Exp $ */
     4/* $Id: polys1.cc,v 1.55 2000-11-23 17:44:07 Singular Exp $ */
    55
    66/*
     
    497497  }
    498498  *p=h;
    499 }
    500 
    501 /*2
    502 * returns a polynomial representing the integer i
    503 */
    504 poly pISet(int i)
    505 {
    506   poly rc = NULL;
    507   if (i!=0)
    508   {
    509     rc = pInit();
    510     pSetCoeff0(rc,nInit(i));
    511     if (nIsZero(pGetCoeff(rc)))
    512       pDeleteLm(&rc);
    513   }
    514   return rc;
    515499}
    516500
Note: See TracChangeset for help on using the changeset viewer.