Changeset 5fecb3 in git


Ignore:
Timestamp:
Sep 3, 1999, 5:06:42 PM (24 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', 'd1ba061a762c62d3a25159d8da8b6e17332291fa')
Children:
75aae4999bef21c4ae745eef7394a44cfb4d0476
Parents:
054467e81fc179c3ade77220706a6f60243dad86
Message:
*hannes: added some maps


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

Legend:

Unmodified
Added
Removed
  • Singular/gnumpc.cc

    r054467 r5fecb3  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: gnumpc.cc,v 1.7 1999-07-28 08:22:13 wenk Exp $ */
     4/* $Id: gnumpc.cc,v 1.8 1999-09-03 15:06:41 Singular Exp $ */
    55/*
    66* ABSTRACT: computations with GMP complex floating-point numbers
     
    3636BOOLEAN ngcSetMap(int c, char ** par, int nop, number minpol)
    3737{
     38  if (c == -1)   /* R or long R or long C */
     39  {
     40    if (nop==1) /* long C */
     41    {
     42      nMap=ngcCopy;
     43      return TRUE;
     44    }
     45    return FALSE;
     46  }
    3847  if (c == 0)
    3948  {                      /* Q -> C      */
     
    245254  {
    246255    gmp_complex* n = new gmp_complex(1);
    247     *u=(number)n; 
     256    *u=(number)n;
    248257    return;
    249258  }
     
    254263    {
    255264      gmp_complex* n = new gmp_complex();
    256       *u=(number)n; 
     265      *u=(number)n;
    257266    }
    258267    else
     
    260269      gmp_complex* n = new gmp_complex();
    261270      *n= *(gmp_complex*)x;
    262       *u=(number)n; 
     271      *u=(number)n;
    263272    }
    264273    return;
     
    278287
    279288/*2
    280 * za >= 0 ? 
     289* za >= 0 ?
    281290*/
    282291BOOLEAN ngcGreaterZero (number a)
    283292{
    284293  if ( a == NULL ) return TRUE;
    285   if ( ! ((gmp_complex*)a)->imag().isZero() ) 
     294  if ( ! ((gmp_complex*)a)->imag().isZero() )
    286295    return ( abs( *(gmp_complex*)a).sign() >= 0 );
    287   else 
     296  else
    288297    return ( ((gmp_complex*)a)->real().sign() >= 0 );
    289298}
     
    361370    *a=(number)aa;
    362371  }
    363   else 
     372  else
    364373  {
    365374    *a=(number) new gmp_complex((long)1);
  • Singular/gnumpfl.cc

    r054467 r5fecb3  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: gnumpfl.cc,v 1.9 1999-07-28 08:22:14 wenk Exp $ */
     4/* $Id: gnumpfl.cc,v 1.10 1999-09-03 15:06:42 Singular Exp $ */
    55/*
    66* ABSTRACT: computations with GMP floating-point numbers
     
    6060      return FALSE;
    6161    }
     62  }
     63  else if (c== -1)      /* R, long R or long C */
     64  {
     65    return FALSE;
    6266  }
    6367  else if (c<0)
Note: See TracChangeset for help on using the changeset viewer.