number2.cc File Reference

#include "kernel/mod2.h"
#include "reporter/reporter.h"
#include "coeffs/numbers.h"
#include "coeffs/rmodulon.h"
#include "coeffs/bigintmat.h"
#include "coeffs/longrat.h"
#include "polys/ext_fields/algext.h"
#include "misc/prime.h"
#include "Singular/blackbox.h"
#include "Singular/ipshell.h"
#include "Singular/ipconv.h"
#include "Singular/ipid.h"
#include "Singular/number2.h"

Go to the source code of this file.

Functions
char *	crString (coeffs c)
void	crPrint (coeffs c)
BOOLEAN	jjCRING_Zp (leftv res, leftv a, leftv b)
BOOLEAN	jjCRING_Zm (leftv res, leftv a, leftv b)
BOOLEAN	jjEQUAL_CR (leftv res, leftv a, leftv b)
BOOLEAN	jjR2_CR (leftv res, leftv a)

Function Documentation

crPrint()

void crPrint

(

coeffs

c

)

Definition at line 25 of file number2.cc.

{
  char *s=crString(c);
  PrintS(s);
  omFree(s);
}

crString()

char * crString

(

coeffs

c

)

Definition at line 17 of file number2.cc.

{
  if (c==NULL)
  {
    return omStrDup("oo");
  }
  return omStrDup(nCoeffName(c));
}

jjCRING_Zm()

BOOLEAN jjCRING_Zm	(	leftv	res,
		leftv	a,
		leftv	b
	)

Definition at line 88 of file number2.cc.

{
  coeffs c1=(coeffs)a->Data();
  number i2=(number)b->Data();
  if (c1->type==n_Z)
  {
    ZnmInfo info;
    mpz_t modBase;
    nlMPZ(modBase,i2,coeffs_BIGINT);
    info.base= (mpz_ptr)modBase;
    info.exp= 1;
    if (mpz_popcount(modBase)==1) // is a power of 2
    {
      // is exponent <=2^(8*sizeof(unsigned long))
      mp_bitcnt_t l=mpz_scan1 (modBase,0);
      if ((l>0) && (l<=8*sizeof(unsigned long)))
      {
        res->data=(void *) nInitChar(n_Z2m,(void*)(long)l);
      }
      else
      {
        mpz_set_ui(modBase,2);
        info.exp= l;
        res->data=(void *) nInitChar(n_Znm,&info);
      }
      mpz_clear(modBase);
      return FALSE;
    }
    res->data=(void *)nInitChar(n_Zn,&info);
    mpz_clear(modBase);
    return FALSE;
  }
  return TRUE;
}

jjCRING_Zp()

BOOLEAN jjCRING_Zp	(	leftv	res,
		leftv	a,
		leftv	b
	)

Definition at line 35 of file number2.cc.

{
  coeffs c1=(coeffs)a->Data();
  unsigned long i2=(unsigned long)b->Data();
  if (c1->type==n_Z)
  {
    if (i2==(unsigned long)IsPrime(i2))
    {
      #ifndef TEST_ZN_AS_ZP
      res->data=(void *)nInitChar(n_Zp,(void*)i2);
      #else
      ZnmInfo info;
      mpz_t modBase;
      mpz_init_set_ui(modBase,i2);
      info.base= modBase;
      info.exp= 1;
      res->data=(void *)nInitChar(n_Zn,&info);
      mpz_clear(modBase);
      #endif
    }
    else
    {
      ZnmInfo info;
      mpz_t modBase;
      mpz_init_set_ui(modBase,i2);
      info.base= modBase;
      info.exp= 1;
      if (mpz_popcount((mpz_ptr)modBase)==1) // is a power of 2
      {
        i2=SI_LOG2(i2);
        // is exponent <=2^(8*sizeof(unsigned long))
        if (i2<(8*sizeof(unsigned long)))
        {
          mpz_clear(modBase);
          res->data=(void *) nInitChar(n_Z2m,(void*)i2);
          return FALSE;
        }
        else
        {
          mpz_set_ui(modBase,2);
          info.exp=i2;
          res->data=(void *) nInitChar(n_Znm,&info);
          mpz_clear(modBase);
          return FALSE;
        }
      }
      res->data=(void *)nInitChar(n_Zn,&info);
      mpz_clear(modBase);
    }
    return FALSE;
  }
  return TRUE;
}

jjEQUAL_CR()

BOOLEAN jjEQUAL_CR	(	leftv	res,
		leftv	a,
		leftv	b
	)

Definition at line 123 of file number2.cc.

{
  coeffs a2=(coeffs)a->Data();
  coeffs b2=(coeffs)b->Data();
  res->data=(void*)(long)(a2==b2);
  if (iiOp==NOTEQUAL) res->data=(char *)(!(long)res->data);
  return FALSE;
}

jjR2_CR()

BOOLEAN jjR2_CR	(	leftv	res,
		leftv	a
	)

Definition at line 132 of file number2.cc.

{
  ring r=(ring)a->Data();
  AlgExtInfo extParam;
  extParam.r = r;
  coeffs cf=nInitChar(n_transExt,&extParam);
  res->data=(void*)cf;
  return FALSE;
}