NAME

libPARI - Technical Reference Guide: the basics

In the following chapters, we describe all public low-level functions of the PARI library. These include specialized functions for handling all the PARI types. Simple higher level functions, such as arithmetic or transcendental functions, are described in Chapter 3 of the GP user's manual; we will eventually see more general or flexible versions in the chapters to come. A general introduction to the major concepts of PARI programming can be found in Chapter 4, which you should really read first.

We shall now study specialized functions, more efficient than the library wrappers, but sloppier on argument checking and damage control; besides speed, their main advantage is to give finer control about the inner workings of generic routines, offering more options to the programmer.

Important advice. Generic routines eventually call lower level functions. Optimize your algorithms first, not overhead and conversion costs between PARI routines. For generic operations, use generic routines first; do not waste time looking for the most specialized one available unless you identify a genuine bottleneck, or you need some special behavior the generic routine does not offer. The PARI source code is part of the documentation; look for inspiration there.

The type long denotes a BITS_IN_LONG-bit signed long integer (32 or 64 bits). The type ulong is defined as unsigned long. The word stack always refer to the PARI stack, allocated through an initial pari_init call. Refer to Chapters 1--2 and 4 for general background.

We shall often refer to the notion of shallow function, which means that some components of the result may point to components of the input, which is more efficient than a deep copy (full recursive copy of the object tree). Such outputs are not suitable for gerepileupto and particular care must be taken when garbage collecting objects which have been input to shallow functions: corresponding outputs also become invalid and should no longer be accessed.


Initializing the library

The following functions enable you to start using the PARI functions in a program, and cleanup without exiting the whole program.

General purpose

void pari_init(size_t size, ulong maxprime) initialize the library, with a stack of size bytes and a prime table up to the maximum of maxprime and 2^{16}. Unless otherwise mentioned, no PARI function will function properly before such an initialization.

void pari_close(void) stop using the library (assuming it was initialized with pari_init) and frees all allocated objects.

Technical functions

void pari_init_opts(size_t size, ulong maxprime, ulong opts) as pari_init, more flexible. opts is a mask of flags among the following:

INIT_JMPm: install PARI error handler. When an exception is raised, the program is terminated with exit(1).

INIT_SIGm: install PARI signal handler.

INIT_DFTm: initialize the GP_DATA environment structure. This one must be enabled once. If you close pari, then restart it, you need not reinitialize GP_DATA; if you do not, then old values are restored.

void pari_close_opts(ulong init_opts) as pari_close, for a library initialized with a mask of options using pari_init_opts. opts is a mask of flags among

INIT_SIGm: restore SIG_DFL default action for signals tampered with by PARI signal handler.

INIT_DFTm: frees the GP_DATA environment structure.

void pari_sig_init(void (*f)(int)) install the signal handler f (see signal(2)): the signals SIGBUS, SIGFPE, SIGINT, SIGBREAK, SIGPIPE and SIGSEGV are concerned.

void pari_stackcheck_init(void *stackbase) controls the system stack exhaustion checking code in the GP interpreter. This should be used when the system stack base address change or when the address seen by pari_init is too far from the base address. If stackbase is NULL, disable the check, else set the base address to stackbase. It is normally used this way

  int thread_start (...)
  {
    long first_item_on_the_stack;
    ...
    pari_stackcheck_init(&first_item_on_the_stack);
  }

int pari_daemon(void) fork a PARI daemon, detaching from the main process group. The function returns 1 in the parent, and 0 in the forked son.

Notions specific to the GP interpreter

An entree is the generic object associated to an identifier (a name) in GP's interpreter, be it a built-in or user function, or a variable. For a function, it has at least the following fields:

char *name : the name under which the interpreter knows us.

void *value : a pointer to the C function to call.

long menu : an integer from 1 to 11 (to which group of function help do we belong).

char *code : the prototype code.

char *help : the help text for the function.

A routine in GP is described to the analyzer by an entree structure. Built-in PARI routines are grouped in modules, which are arrays of entree structs, the last of which satisfy name = NULL (sentinel).

There are currently five modules in PARI/GP: general functions (functions_basic, known to libpari), gp-specific functions (functions_gp), gp-specific highlevel functions (functions_highlevel), and two modules of obsolete functions. The function pari_init initializes the interpreter and declares all symbols in functions_basic. You may declare further functions on a case by case basis or as a whole module using

void pari_add_function(entree *ep) adds a single routine to the table of symbols in the interpreter. It assumes pari_init has been called.

void pari_add_module(entree *mod) adds all the routines in module mod to the table of symbols in the interpreter. It assumes pari_init has been called.

For instance, gp implements a number of private routines, which it adds to the default set via the calls

    pari_add_module(functions_gp);
    pari_add_module(functions_highlevel);

void pari_add_oldmodule(entree *mod) adds all the routines in module mod to the table of symbols in the interpreter when running in ``PARI 1.xx compatible'' mode (see default(compatible)) . It assumes that pari_init has been called.

A GP default is likewise associated to a helper routine, that is run when the value is consulted, or changed by default0 or setdefault. Such routines are grouped into modules: functions_default containing all defaults that make sense in libpari context, functions_gp_rl_default containing defaults that are gp-specific and do not make sense unless we use libreadline, and functions_gp_default containing all other gp-specific defaults.

void pari_add_defaults_module(entree *mod) adds all the defaults in module mod to the interpreter. It assumes that pari_init has been called. From this point on, all defaults in module mod are known to setdefault and friends.

Public callbacks

The gp calculator associates elaborate functions (for instance the break loop handler) to the following callbacks, and so can you:

\doc{cb_pari_ask_confirm}{void (*cb_pari_ask_confirm)(const char *s)} initialized to NULL. Called with argument s whenever PARI wants confirmation for action s, for instance in secure mode.

\doc{cb_pari_handle_exception}{extern int (*cb_pari_handle_exception)(long)} initialized to NULL. If not NULL called with argument -1 on SIGINT, and argument err on error err. If it returns a non-zero value, the error or signal handler returns, in effect further ignoring the error or signal, otherwise it raises a fatal error.

\doc{cb_pari_sigint}{void (*cb_pari_sigint)(void)}. Function called when SIGINT is raised. By default, raises

    pari_err(talker, "user interrupt");

\doc{cb_pari_err_recover}{extern void (*cb_pari_err_recover)(long)} initialized to pari_exit(). This call-back must not return. This call-back is called after PARI has cleaned-up from an error. The error number is passed as argument, unless the PARI stack has been destroyed, in which case it is called with argument -1.

\doc{cb_pari_whatnow}{int (*cb_pari_whatnow)(PariOUT *out, const char *s, int flag)} initialized to NULL. If not NULL, must check whether s existed in older versions of pari (the gp callback checks against pari-1.39.15). All output must be done via out methods.

* flag = 0: should print verbosely the answer, including help text if available.

* flag = 1: must return 0 if the function did not change, and a non-0 result otherwise. May print a help message.

Utility function.

void pari_ask_confirm(const char *s) raise an error if the callback cb_pari_ask_confirm is NULL. Otherwise calls

    cb_pari_ask_confirm(s);

Saving and restoring the GP context

void gp_context_save(struct gp_context* rec) save the current GP context.

void gp_context_restore(struct gp_context* rec) restore a GP context. The new context must be an ancestor of the current context.

GP history

These functions allow to control the GP history (the % operator).

GEN pari_add_hist(GEN x) adds x as the last history entry.

GEN pari_get_hist(long p), if p > 0 returns entry of index p (i.e. %p), else returns entry of index n+p where n is the index of the last entry (used for %, %`, %``, etc.).

ulong pari_nb_hist(void) return the index of the last entry.


Handling GENs

Almost all these functions are either macros or inlined. Unless mentioned otherwise, they do not evaluate their arguments twice. Most of them are specific to a set of types, although no consistency checks are made: e.g. one may access the sign of a t_PADIC, but the result is meaningless.

Allocation

GEN cgetg(long l, long t) allocates (the root of) a GEN of type t and length l. Sets z[0].

GEN cgeti(long l) allocates a t_INT of length l (including the 2 codewords). Sets z[0] only.

GEN cgetr(long l) allocates a t_REAL of length l (including the 2 codewords). Sets z[0] only.

GEN cgetc(long prec) allocates a t_COMPLEX whose real and imaginary parts are t_REALs of length prec.

GEN cgetg_copy(GEN x, long *lx) fast version of cgetg: allocate a GEN with the same type and length as x, setting *lx to lg(x) as a side-effect. (Only sets the first codeword.) This is a little faster than cgetg since we may reuse the bitmask in x[0] instead of recomputing it, and we do not need to check that the length does not overflow the possibilities of the implementation (since an object with that length already exists). Note that cgetg with arguments known at compile time, as in

    cgetg(3, t_INTMOD)

will be even faster since the compiler will directly perform all computations and checks.

GEN vectrunc_init(long l) perform cgetg(l,t_VEC), then set the length to 1 and return the result. This is used to implement vectors whose final length is easily bounded at creation time, that we intend to fill gradually using:

void vectrunc_append(GEN x, GEN y) assuming x was allocated using vectrunc_init, appends y as the last element of x, which grows in the process. The function is shallow: we append y, not a copy; it is equivalent to

    long lx = lg(x); gel(x,lx) = y; setlg(x, lx+1);

Beware that the maximal size of x (the l argument to vectrunc_init) is unknown, hence unchecked, and stack corruption will occur if we append more than l-1 elements to x. Use the safer (but slower) shallowconcat when l is not easy to bound in advance.

An other possibility is simply to allocate using cgetg(l, t) then fill the components as they become available: this time the downside is that we do not obtain a correct GEN until the vector is complete. Almost no PARI function will be able to operate on it.

GEN vecsmalltrunc_init(long l)

void vecsmalltrunc_append(GEN x, long t) analog to the above for a t_VECSMALL container.

Length conversions

These routines convert a non-negative length to different units. Their behavior is undefined at negative integers.

long ndec2nlong(long x) converts a number of decimal digits to a number of words. Returns 1 + floor(x x BIL log _2 10).

long ndec2prec(long x) converts a number of decimal digits to a number of codewords. This is equal to 2 + ndec2nlong(x).

long prec2ndec(long x) converts a number of of codewords to a number of decimal digits.

long nbits2nlong(long x) converts a number of bits to a number of words. Returns the smallest word count containing x bits, i.e ceil(x / BIL).

long nbits2prec(long x) converts a number of bits to a number of codewords. This is equal to 2 + nbits2nlong(x).

long nchar2nlong(long x) converts a number of bytes to number of words. Returns the smallest word count containing x bytes, i.e ceil(x / sizeof(long)).

long bit_accuracy(long x) converts a t_REAL length into a number of significant bits. Returns (x - 2)BIL.

double bit_accuracy_mul(long x, double y) returns (x - 2)BIL x y.

Read type-dependent information

long typ(GEN x) returns the type number of x. The header files included through pari.h define symbolic constants for the GEN types: t_INT etc. Never use their actual numerical values. E.g to determine whether x is a t_INT, simply check

    if (typ(x) == t_INT) { }

The types are internally ordered and this simplifies the implementation of commutative binary operations (e.g addition, gcd). Avoid using the ordering directly, as it may change in the future; use type grouping functions instead (Label se:typegroup).

const char* type_name(long t) given a type number t this routine returns a string containing its symbolic name. E.g type_name(t_INT) returns "t_INT". The return value is read-only.

long lg(GEN x) returns the length of x in BIL-bit words.

long lgefint(GEN x) returns the effective length of the t_INT x in BIL-bit words.

long signe(GEN x) returns the sign (-1, 0 or 1) of x. Can be used for t_INT, t_REAL, t_POL and t_SER (for the last two types, only 0 or 1 are possible).

long gsigne(GEN x) returns the sign of a real number x, valid for t_INT, t_REAL as signe, but also for t_FRAC. Raise a type error if typ(x) is not among those three.

long expi(GEN x) returns the binary exponent of the real number equal to the t_INT x. This is a special case of gexpo.

long expo(GEN x) returns the binary exponent of the t_REAL x.

long mpexpo(GEN x) returns the binary exponent of the t_INT or t_REAL x.

long gexpo(GEN x) same as expo, but also valid when x is not a t_REAL (returns the largest exponent found among the components of x). When x is an exact 0, this returns -HIGHEXPOBIT, which is lower than any valid exponent.

long valp(GEN x) returns the p-adic valuation (for a t_PADIC) or X-adic valuation (for a t_SER, taken with respect to the main variable) of x.

long precp(GEN x) returns the precision of the t_PADIC x.

long varn(GEN x) returns the variable number of the t_POL or t_SER x (between 0 and MAXVARN).

long gvar(GEN x) returns the main variable number when any variable at all occurs in the composite object x (the smallest variable number which occurs), and NO_VARIABLE otherwise.

long gvar2(GEN x) returns the variable number for the ring over which x is defined, e.g. if x belongs to Z[a][b] return (the variable number for) a. Return NO_VARIABLE if x has no variable or is not defined over a polynomial ring.

long degpol(GEN x) returns the degree of t_POL x, assuming its leading coefficient is non-zero (an exact 0 is impossible, but an inexact 0 is allowed). By convention the degree of an exact 0 polynomial is -1. If the leading coefficient of x is 0, the result is undefined.

long lgpol(GEN x) is equal to degpol(x) + 1. Used to loop over the coefficients of a t_POL in the following situation:

      GEN xd = x + 2;
      long i, l = lgpol(x);
      for (i = 0; i < l; i++) foo( xd[i] ).

long precision(GEN x) If x is of type t_REAL, returns the precision of x, namely the length of x in BIL-bit words if x is not zero, and a reasonable quantity obtained from the exponent of x if x is numerically equal to zero. If x is of type t_COMPLEX, returns the minimum of the precisions of the real and imaginary part. Otherwise, returns 0 (which stands for infinite precision).

long gprecision(GEN x) as precision for scalars. Returns the lowest precision encountered among the components otherwise.

long sizedigit(GEN x) returns 0 if x is exactly 0. Otherwise, returns gexpo(x) multiplied by log _{10}(2). This gives a crude estimate for the maximal number of decimal digits of the components of x.

Eval type-dependent information

These routines convert type-dependent information to bitmask to fill the codewords of GEN objects (see Label se:impl). E.g for a t_REAL z:

    z[1] = evalsigne(-1) | evalexpo(2)

Compatible components of a codeword for a given type can be OR-ed as above.

ulong evaltyp(long x) convert type x to bitmask (first codeword of all GENs)

long evallg(long x) convert length x to bitmask (first codeword of all GENs). Raise overflow error if x is so large that the corresponding length cannot be represented

long _evallg(long x) as evallg without the overflow check.

ulong evalvarn(long x) convert variable number x to bitmask (second codeword of t_POL and t_SER)

long evalsigne(long x) convert sign x (in -1,0,1) to bitmask (second codeword of t_INT, t_REAL, t_POL, t_SER)

long evalprecp(long x) convert p-adic (X-adic) precision x to bitmask (second codeword of t_PADIC, t_SER)

long evalvalp(long x) convert p-adic (X-adic) valuation x to bitmask (second codeword of t_PADIC, t_SER). Raise overflow error if x is so large that the corresponding valuation cannot be represented

long _evalvalp(long x) same as evalvalp without the overflow check.

long evalexpo(long x) convert exponent x to bitmask (second codeword of t_REAL). Raise overflow error if x is so large that the corresponding exponent cannot be represented

long _evalexpo(long x) same as evalexpo without the overflow check.

long evallgefint(long x) convert effective length x to bitmask (second codeword t_INT). This should be less or equal than the length of the t_INT, hence there is no overflow check for the effective length.

Set type-dependent information

Use these functions and macros with extreme care since usually the corresponding information is set otherwise, and the components and further codeword fields (which are left unchanged) may not be compatible with the new information.

void settyp(GEN x, long s) sets the type number of x to s.

void setlg(GEN x, long s) sets the length of x to s. This is an efficient way of truncating vectors, matrices or polynomials.

void setlgefint(GEN x, long s) sets the effective length of the t_INT x to s. The number s must be less than or equal to the length of x.

void setsigne(GEN x, long s) sets the sign of x to s. If x is a t_INT or t_REAL, s must be equal to -1, 0 or 1, and if x is a t_POL or t_SER, s must be equal to 0 or 1. No sanity check is made; in particular, setting the sign of a 0 t_INT to +-1 creates an invalid object.

void togglesign(GEN x) sets the sign s of x to -s, in place.

void togglesign_safe(GEN *x) sets the s sign of *x to -s, in place, unless *x is one of the integer universal constants in which case replace *x by its negation (e.g. replace gen_1 by gen_m1).

void setabssign(GEN x) sets the sign s of x to |s|, in place.

void affectsign(GEN x, GEN y) shortcut for setsigne(y, signe(x)). No sanity check is made; in particular, setting the sign of a 0 t_INT to +-1 creates an invalid object.

void affectsign_safe(GEN x, GEN *y) sets the sign of *y to that of x, in place, unless *y is one of the integer universal constants in which case replace *y by its negation if needed (e.g. replace gen_1 by gen_m1 if x is negative). No other sanity check is made; in particular, setting the sign of a 0 t_INT to +-1 creates an invalid object.

void normalize_frac(GEN z) assuming z is of the form mkfrac(a,b) with b != 0, make sure that b > 0 by changing the sign of a in place if needed (use togglesign).

void setexpo(GEN x, long s) sets the binary exponent of the t_REAL x to s. The value s must be a 24-bit signed number.

void setvalp(GEN x, long s) sets the p-adic or X-adic valuation of x to s, if x is a t_PADIC or a t_SER, respectively.

void setprecp(GEN x, long s) sets the p-adic precision of the t_PADIC x to s.

void setvarn(GEN x, long s) sets the variable number of the t_POL or t_SER x to s (where 0 <= s <= MAXVARN).

Type groups

In the following functions, t denotes the type of a GEN. They used to be implemented as macros, which could evaluate their argument twice; no longer: it is not inefficient to write

    is_intreal_t(typ(x))

int is_recursive_t(long t) true iff t is a recursive type (the non-recursive types are t_INT, t_REAL, t_STR, t_VECSMALL). Somewhat contrary to intuition, t_LIST is also non-recursive, ; see the Developer's guide for details.

int is_intreal_t(long t) true iff t is t_INT or t_REAL.

int is_rational_t(long t) true iff t is t_INT or t_FRAC.

int is_vec_t(long t) true iff t is t_VEC or t_COL.

int is_matvec_t(long t) true iff t is t_MAT, t_VEC or t_COL.

int is_scalar_t(long t) true iff t is a scalar, i.e a t_INT, a t_REAL, a t_INTMOD, a t_FRAC, a t_COMPLEX, a t_PADIC, a t_QUAD, or a t_POLMOD.

int is_extscalar_t(long t) true iff t is a scalar (see is_scalar_t) or t is t_POL.

int is_const_t(long t) true iff t is a scalar which is not t_POLMOD.

int is_noncalc_t(long t) true if generic operations (gadd, gmul) do not make sense for t : corresponds to types t_LIST, t_STR, t_VECSMALL, t_CLOSURE

Accessors and components

The first two functions return GEN components as copies on the stack:

GEN compo(GEN x, long n) creates a copy of the n-th true component (i.e. not counting the codewords) of the object x.

GEN truecoeff(GEN x, long n) creates a copy of the coefficient of degree n of x if x is a scalar, t_POL or t_SER, and otherwise of the n-th component of x.

On the contrary, the following routines return the address of a GEN component. No copy is made on the stack:

GEN constant_term(GEN x) returns the address the constant term of t_POL x. By convention, a 0 polynomial (whose sign is 0) has gen_0 constant term.

GEN leading_term(GEN x) returns the address the leading term of t_POL x. This may be an inexact 0.

GEN gel(GEN x, long i) returns the address of the x[i] entry of x. (el stands for element.)

GEN gcoeff(GEN x, long i, long j) returns the address of the x[i,j] entry of t_MAT x, i.e. the coefficient at row i and column j.

GEN gmael(GEN x, long i, long j) returns the address of the x[i][j] entry of x. (mael stands for multidimensional array element.)

GEN gmael2(GEN A, long x1, long x2) is an alias for gmael. Similar macros gmael3, gmael4, gmael5 are available.


Global numerical constants

These are defined in the various public PARI headers.

Constants related to word size

long BITS_IN_LONG = 2^{TWOPOTBITS_IN_LONG}: number of bits in a long (32 or 64).

long BITS_IN_HALFULONG: BITS_IN_LONG divided by 2.

long LONG_MAX: the largest positive long.

ulong ULONG_MAX: the largest ulong.

long DEFAULTPREC: the length (lg) of a t_REAL with 64 bits of accuracy

long MEDDEFAULTPREC: the length (lg) of a t_REAL with 128 bits of accuracy

long BIGDEFAULTPREC: the length (lg) of a t_REAL with 192 bits of accuracy

ulong HIGHBIT: the largest power of 2 fitting in an ulong.

ulong LOWMASK: bitmask yielding the least significant bits.

ulong HIGHMASK: bitmask yielding the most significant bits.

The last two are used to implement the following convenience macros, returning half the bits of their operand:

ulong LOWWORD(ulong a) returns least significant bits.

ulong HIGHWORD(ulong a) returns most significant bits.

Finally

long divsBIL(long n) returns the Euclidean quotient of n by BITS_IN_LONG (with non-negative remainder).

long remsBIL(n) returns the (non-negative) Euclidean remainder of n by BITS_IN_LONG

long dvmdsBIL(long n, long *r)

ulong dvmduBIL(ulong n, ulong *r) sets r to remsBIL(n) and returns divsBIL(n).

Masks used to implement the GEN type

These constants are used by higher level macros, like typ or lg:

EXPOnumBITS, LGnumBITS, SIGNnumBITS, TYPnumBITS, VALPnumBITS, VARNnumBITS: number of bits used to encode expo, lg, signe, typ, valp, varn.

PRECPSHIFT, SIGNSHIFT, TYPSHIFT, VARNSHIFT: shifts used to recover or encode precp, varn, typ, signe

CLONEBIT, EXPOBITS, LGBITS, PRECPBITS, SIGNBITS, TYPBITS, VALPBITS, VARNBITS: bitmasks used to extract isclone, expo, lg, precp, signe, typ, valp, varn from GEN codewords.

MAXVARN: the largest possible variable number.

NO_VARIABLE: sentinel returned by gvar(x) when x does not contain any polynomial; has a lower priority than any valid variable number.

HIGHEXPOBIT: a power of 2, one more that the largest possible exponent for a t_REAL.

HIGHVALPBIT: a power of 2, one more that the largest possible valuation for a t_PADIC or a t_SER.

log 2, Pi

These are double approximations to useful constants:

LOG2: log 2.

LOG10_2: log 2 / log 10.

LOG2_10: log 10 / log 2.

PI: Pi.


Handling the PARI stack

Allocating memory on the stack

GEN cgetg(long n, long t) allocates memory on the stack for an object of length n and type t, and initializes its first codeword.

GEN cgeti(long n) allocates memory on the stack for a t_INT of length n, and initializes its first codeword. Identical to cgetg(n,t_INT).

GEN cgetr(long n) allocates memory on the stack for a t_REAL of length n, and initializes its first codeword. Identical to cgetg(n,t_REAL).

GEN cgetc(long n) allocates memory on the stack for a t_COMPLEX, whose real and imaginary parts are t_REALs of length n.

GEN cgetp(GEN x) creates space sufficient to hold the t_PADIC x, and sets the prime p and the p-adic precision to those of x, but does not copy (the p-adic unit or zero representative and the modulus of) x.

GEN new_chunk(size_t n) allocates a GEN with n components, without filling the required code words. This is the low-level constructor underlying cgetg, which calls new_chunk then sets the first code word. It works by simply returning the address ((GEN)avma) - n, after checking that it is larger than (GEN)bot.

char* stackmalloc(size_t n) allocates memory on the stack for n chars (not n GENs). This is faster than using malloc, and easier to use in most situations when temporary storage is needed. In particular there is no need to free individually all variables thus allocated: a simple avma = oldavma might be enough. On the other hand, beware that this is not permanent independent storage, but part of the stack.

Objects allocated through these last two functions cannot be gerepile'd, since they are not yet valid GENs: their codewords must be filled first.

GEN cgetalloc(long t, size_t l), same as cgetg(t, l), except that the result is allocated using pari_malloc instead of the PARI stack. The resulting GEN is now impervious to garbage collecting routines, but should be freed using pari_free.

Stack-independent binary objects

GENbin* copy_bin(GEN x) copies x into a malloc'ed structure suitable for stack-independent binary transmission or storage. The object obtained is architecture independent provided, sizeof(long) remains the same on all PARI instances involved, as well as the multiprecision kernel (either native or GMP).

GENbin* copy_bin_canon(GEN x) as copy_bin, ensuring furthermore that the binary object is independent of the multiprecision kernel. Slower than copy_bin.

GEN bin_copy(GENbin *p) assuming p was created by copy_bin(x) (not necessarily by the same PARI instance: transmission or external storage may be involved), restores x on the PARI stack.

The routine bin_copy transparently encapsulate the following functions:

GEN GENbinbase(GENbin *p) the GEN data actually stored in p. All addresses are stored as offsets with respect to a common reference point, so the resulting GEN is unusable unless it is a non-recursive type; private low-level routines must be called first to restore absolute addresses.

void shiftaddress(GEN x, long dec) converts relative addresses to absolute ones.

void shiftaddress_canon(GEN x, long dec) converts relative addresses to absolute ones, and converts leaves from a canonical form to the one specific to the multiprecision kernel in use. The GENbin type stores whether leaves are stored in canonical form, so bin_copy can call the right variant.

Garbage collection

See Label se:garbage for a detailed explanation and many examples.

void cgiv(GEN x) frees object x, assuming it is the last created on the stack.

GEN gerepile(pari_sp p, pari_sp q, GEN x) general garbage collector for the stack.

void gerepileall(pari_sp av, int n, ...) cleans up the stack from av on (i.e from avma to av), preserving the n objects which follow in the argument list (of type GEN*). For instance, gerepileall(av, 2, &x, &y) preserves x and y.

void gerepileallsp(pari_sp av, pari_sp ltop, int n, ...) cleans up the stack between av and ltop, updating the n elements which follow n in the argument list (of type GEN*). Check that the elements of g have no component between av and ltop, and assumes that no garbage is present between avma and ltop. Analogous to (but faster than) gerepileall otherwise.

GEN gerepilecopy(pari_sp av, GEN x) cleans up the stack from av on, preserving the object x. Special case of gerepileall (case n = 1), except that the routine returns the preserved GEN instead of updating its address through a pointer.

void gerepilemany(pari_sp av, GEN* g[], int n) alternative interface to gerepileall. The preserved GENs are the elements of the array g of length n: g[0], g[1],..., g[n-1]. Obsolete: no more efficient than gerepileall, error-prone, and clumsy (need to declare an extra GEN *g).

void gerepilemanysp(pari_sp av, pari_sp ltop, GEN* g[], int n) alternative interface to gerepileallsp. Obsolete.

void gerepilecoeffs(pari_sp av, GEN x, int n) cleans up the stack from av on, preserving x[0],..., x[n-1] (which are GENs).

void gerepilecoeffssp(pari_sp av, pari_sp ltop, GEN x, int n) cleans up the stack from av to ltop, preserving x[0], ..., x[n-1] (which are GENs). Same assumptions as in gerepilemanysp, of which this is a variant. For instance

    z = cgetg(3, t_COMPLEX);
    av = avma; garbage(); ltop = avma;
    z[1] = fun1();
    z[2] = fun2();
    gerepilecoeffssp(av, ltop, z + 1, 2);
    return z;

cleans up the garbage between av and ltop, and connects z and its two components. This is marginally more efficient than the standard

    av = avma; garbage(); ltop = avma;
    z = cgetg(3, t_COMPLEX);
    z[1] = fun1();
    z[2] = fun2(); return gerepile(av, ltop, z);

GEN gerepileupto(pari_sp av, GEN q) analogous to (but faster than) gerepilecopy. Assumes that q is connected and that its root was created before any component. If q is not on the stack, this is equivalent to avma = av; in particular, sentinels which are not even proper GENs such as q = NULL are allowed.

GEN gerepileuptoint(pari_sp av, GEN q) analogous to (but faster than) gerepileupto. Assumes further that q is a t_INT. The length and effective length of the resulting t_INT are equal.

GEN gerepileuptoleaf(pari_sp av, GEN q) analogous to (but faster than) gerepileupto. Assumes further that q is a leaf, i.e a non-recursive type (is_recursive_t(typ(q)) is non-zero). Contrary to gerepileuptoint and gerepileupto, gerepileuptoleaf leaves length and effective length of a t_INT unchanged.

Garbage collection : advanced use

void stackdummy(pari_sp av, pari_sp ltop) inhibits the memory area between av included and ltop excluded with respect to gerepile, in order to avoid a call to gerepile(av, ltop,...). The stack space is not reclaimed though.

More precisely, this routine assumes that av is recorded earlier than ltop, then marks the specified stack segment as a non-recursive type of the correct length. Thus gerepile will not inspect the zone, at most copy it. To be used in the following situation:

    av0 = avma; z = cgetg(t_VEC, 3);
    gel(z,1) = HUGE(); av = avma; garbage(); ltop = avma;
    gel(z,2) = HUGE(); stackdummy(av, ltop);

Compared to the orthodox

    gel(z,2) = gerepile(av, ltop, gel(z,2));

or even more wasteful

    z = gerepilecopy(av0, z);

we temporarily lose (av - ltop) words but save a costly gerepile. In principle, a garbage collection higher up the call chain should reclaim this later anyway.

Without the stackdummy, if the [av, ltop] zone is arbitrary (not even valid GENs as could happen after direct truncation via setlg), we would leave dangerous data in the middle of z, which would be a problem for a later

    gerepile(..., ... , z);

And even if it were made of valid GENs, inhibiting the area makes sure gerepile will not inspect their components, saving time.

Another natural use in low-level routines is to ``shorten'' an existing GEN z to its first n-1 components:

    setlg(z, n);
    stackdummy((pari_sp)(z + lg(z)), (pari_sp)(z + n));

or to its last n components:

    long L = lg(z) - n, tz = typ(z);
    stackdummy((pari_sp)(z + L), (pari_sp)z);
    z += L; z[0] = evaltyp(tz) | evallg(L);

The first scenario (safe shortening an existing GEN) is in fact so common, that we provide a function for this:

void fixlg(GEN z, long ly) a safe variant of setlg(z, ly). If ly is larger than lg(z) do nothing. Otherwise, shorten z in place, using stackdummy to avoid later gerepile problems.

GEN gcopy_avma(GEN x, pari_sp *AVMA) return a copy of x as from gcopy, except that we pretend that initially avma is *AVMA, and that *AVMA is updated accordingly (so that the total size of x is the difference between the two successive values of *AVMA). It is not necessary for *AVMA to initially point on the stack: gclone is implemented using this mechanism.

GEN icopy_avma(GEN x, pari_sp av) analogous to gcopy_avma but simpler: assume x is a t_INT and return a copy allocated as if initially we had avma equal to av. There is no need to pass a pointer and update the value of the second argument: the new (fictitious) avma is just the return value (typecast to pari_sp).

Debugging the PARI stack

int chk_gerepileupto(GEN x) returns 1 if x is suitable for gerepileupto, and 0 otherwise. In the latter case, print a warning explaining the problem.

void dbg_gerepile(pari_sp ltop) outputs the list of all objects on the stack between avma and ltop, i.e. the ones that would be inspected in a call to gerepile(...,ltop,...).

void dbg_gerepileupto(GEN q) outputs the list of all objects on the stack that would be inspected in a call to gerepileupto(...,q).

Copies

GEN gcopy(GEN x) creates a new copy of x on the stack.

GEN gcopy_lg(GEN x, long l) creates a new copy of x on the stack, pretending that lg(x) is l, which must be less than or equal to lg(x). If equal, the function is equivalent to gcopy(x).

int isonstack(GEN x) true iff x belongs to the stack.

void copyifstack(GEN x, GEN y) sets y = gcopy(x) if x belongs to the stack, and y = x otherwise. This macro evaluates its arguments once, contrary to

    y = isonstack(x)? gcopy(x): x;

void icopyifstack(GEN x, GEN y) as copyifstack assuming x is a t_INT.

Simplify

GEN simplify(GEN x) you should not need that function in library mode. One rather uses:

GEN simplify_shallow(GEN x) shallow, faster, version of simplify.


The PARI heap

Introduction

It is implemented as a doubly-linked list of malloc'ed blocks of memory, equipped with reference counts. Each block has type GEN but need not be a valid GEN: it is a chunk of data preceded by a hidden header (meaning that we allocate x and return x + header size). A clone, created by gclone, is a block which is a valid GEN and whose clone bit is set.

Public interface

GEN newblock(size_t n) allocates a block of n words (not bytes).

void killblock(GEN x) deletes the block x created by newblock. Fatal error if x not a block.

GEN gclone(GEN x) creates a new permanent copy of x on the heap (allocated using newblock). The clone bit of the result is set.

void gunclone(GEN x) deletes a clone. In the current implementation, this is an alias for killblock, but it is cleaner to kill clones (valid GENs) using this function, and other blocks using killblock.

void gunclone_deep(GEN x) is only useful in the context of the GP interpreter which may replace arbitrary components of container types (t_VEC, t_COL, t_MAT, t_LIST) by clones. If x is such a container, the function recursively deletes all clones among the components of x, then unclones x. Useless in library mode: simply use gunclone.

void traverseheap(void(*f)(GEN, void *), void *data) this applies f(x, data) to each object x on the PARI heap, most recent first. Mostly for debugging purposes.

GEN getheap() a simple wrapper around traverseheap. Returns a two-component row vector giving the number of objects on the heap and the amount of memory they occupy in long words.

Implementation note

The hidden block header is manipulated using the following private functions:

void* bl_base(GEN x) returns the pointer that was actually allocated by malloc (can be freed).

long bl_refc(GEN x) the reference count of x: the number of pointers to this block. Decremented in killblock, incremented by the private function void gclone_refc(GEN x); block is freed when the reference count reaches 0.

long bl_num(GEN x) the index of this block in the list of all blocks allocated so far (including freed blocks). Uniquely identifies a block until 2^BIL blocks have been allocated and this wraps around.

GEN bl_next(GEN x) the block after x in the linked list of blocks (NULL if x is the last block allocated not yet killed).

GEN bl_prev(GEN x) the block allocated before x (never NULL).

We documented the last four routines as functions for clarity (and type checking) but they are actually macros yielding valid lvalues. It is allowed to write bl_refc(x)++ for instance.


Handling user and temp variables

Low-level implementation of user / temporary variables is liable to change. We describe it nevertheless for completeness. Currently variables are implemented by a single array of values divided in 3 zones: 0--nvar (user variables), max_avail--MAXVARN (temporary variables), and nvar+1--max_avail-1 (pool of free variable numbers).

Low-level

void pari_var_init(): a small part of pari_init. Resets variable counters nvar and max_avail, notwithstanding existing variables! In effect, this even deletes x. Don't use it.

long pari_var_next(): returns nvar, the number of the next user variable we can create.

long pari_var_next_temp() returns max_avail, the number of the next temp variable we can create.

void pari_var_create(entree *ep) low-level initialization of an EpVAR.

The obsolete function long manage_var(long n, entree *ep) is kept for backward compatibility only. Don't use it.

User variables

long fetch_user_var(char *s) returns a user variable whose name is s, creating it is needed (and using an existing variable otherwise). Returns its variable number.

entree* fetch_named_var(char *s) as fetch_user_var, but returns an entree* suitable for inclusion in the interpreter hashlists of symbols, not a variable number. fetch_user_var is a trivial wrapper.

GEN fetch_var_value(long v) returns a shallow copy of the current value of the variable numbered v. Return NULL for a temporary variable.

entree* is_entry(const char *s) returns the entree* associated to an identifier s (variable or function), from the interpreter hashtables. Return NULL is the identifier is unknown.

Temporary variables

long fetch_var(void) returns the number of a new temporary variable (decreasing max_avail).

long delete_var(void) delete latest temp variable created and return the number of previous one.

void name_var(long n, char *s) rename temporary variable number n to s; mostly useful for nicer printout. Error when trying to rename a user variable: use fetch_named_var to get a user variable of the right name in the first place.


Adding functions to PARI

Nota Bene

As mentioned in the COPYING file, modified versions of the PARI package can be distributed under the conditions of the GNU General Public License. If you do modify PARI, however, it is certainly for a good reason, and we would like to know about it, so that everyone can benefit from your changes. There is then a good chance that your improvements are incorporated into the next release.

We classify changes to PARI into four rough classes, where changes of the first three types are almost certain to be accepted. The first type includes all improvements to the documentation, in a broad sense. This includes correcting typos or inaccuracies of course, but also items which are not really covered in this document, e.g. if you happen to write a tutorial, or pieces of code exemplifying fine points unduly omitted in the present manual.

The second type is to expand or modify the configuration routines and skeleton files (the Configure script and anything in the config/ subdirectory) so that compilation is possible (or easier, or more efficient) on an operating system previously not catered for. This includes discovering and removing idiosyncrasies in the code that would hinder its portability.

The third type is to modify existing (mathematical) code, either to correct bugs, to add new functionality to existing functions, or to improve their efficiency.

Finally the last type is to add new functions to PARI. We explain here how to do this, so that in particular the new function can be called from gp.

Coding guidelines

Code your function in a file of its own, using as a guide other functions in the PARI sources. One important thing to remember is to clean the stack before exiting your main function, since otherwise successive calls to the function clutters the stack with unnecessary garbage, and stack overflow occurs sooner. Also, if it returns a GEN and you want it to be accessible to gp, you have to make sure this GEN is suitable for gerepileupto (see Label se:garbage).

If error messages or warnings are to be generated in your function, use pari_err and pari_warn respectively. Recall that pari_err does not return but ends with a longjmp statement. As well, instead of explicit printf / fprintf statements, use the following encapsulated variants:

void pari_putc(char c): write character c to the output stream.

void pari_puts(char *s): write s to the output stream.

void pari_printf(const char *fmt, ...): write following arguments to the output stream, according to the conversion specifications in format fmt (see printf).

void err_printf(char *s): as pari_printf, writing to PARI's current error stream.

void err_flush(void) flush error stream.

Declare all public functions in an appropriate header file, if you want to access them from C. The other functions should be declared static in your file.

Your function is now ready to be used in library mode after compilation and creation of the library. If possible, compile it as a shared library (see the Makefile coming with the extgcd example in the distribution). It is however still inaccessible from gp.

Interlude: parser codes

A parser code is a character string describing all the GP parser needs to know about the function prototype. It contains a sequence of the following atoms:

* Return type: GEN by default (must be valid for gerepileupto), otherwise the following can appear as the first char of the code string:

  i return int   l return long   v return void   m return GEN. Here it is allowed to directly return a component of the input (obviously   not suitable for gerepileupto). Used for member functions, to avoid costly copies.

* Mandatory arguments, appearing in the same order as the input arguments they describe:

  G GEN   & *GEN   L long (we implicitly typecast int to long)   V loop variable   n variable, expects a variable number (a long, not an *entree)   r raw input (treated as a string without quotes). Quoted args are copied as strings   Stops at first unquoted ')' or ','. Special chars can be quoted using '\'   Example: aa"b\n)"c yields the string "aab\n)c"   s expanded string. Example: Pi"x"2 yields "3.142x2"   Unquoted components can be of any PARI type, converted to string following   current output format   I closure whose value is ignored, as in for loops,   to be processed by void closure_evalvoid(GEN C)   E closure whose value is used, as in sum loops,   to be processed by void closure_evalgen(GEN C)

A closure is a GP function in compiled (bytecode) form. It can be efficiently evaluated using the closure_evalxxx functions.

* Automatic arguments:

  f Fake *long. C function requires a pointer but we do not use the resulting long   p real precision (default realprecision)   P series precision (default seriesprecision, global variable precdl for the library)

* Syntax requirements, used by functions like for, sum, etc.:

  = separator = required at this point (between two arguments)

* Optional arguments and default values:

  s* any number of strings, possibly 0 (see s)   Dxxx argument can be omitted and has a default value

The s* code reads all remaining arguments in string context (see Label se:strings), and sends a (NULL-terminated) list of GEN* pointing to these. The automatic concatenation rules in string context are implemented so that adjacent strings are read as different arguments, as if they had been comma-separated. For instance, if the remaining argument sequence is: "xx" 1, "yy", the s* atom sends a GEN *g = { &a, &b, &c, NULL}, where a, b, c are GENs of type t_STR (content "xx"), t_INT (equal to 1) and t_STR (content "yy").

The format to indicate a default value (atom starts with a D) is ``Dvalue,type,'', where type is the code for any mandatory atom (previous group), value is any valid GP expression which is converted according to type, and the ending comma is mandatory. For instance D0,L, stands for ``this optional argument is converted to a long, and is 0 by default''. So if the user-given argument reads 1 + 3 at this point, 4L is sent to the function; and 0L if the argument is omitted. The following special notations are available:

  DG optional GEN, send NULL if argument omitted.

  D& optional *GEN, send NULL if argument omitted.

  Dr optional raw string, send NULL if argument omitted.

  Ds optional char *, send NULL if argument omitted.

  DV optional *entree, send NULL if argument omitted.

  DI optional closure, send NULL if argument omitted.

  Dn optional variable number, -1 if omitted.

Hardcoded limit. C functions using more than 20 arguments are not supported. Use vectors if you really need that many parameters.

When the function is called under gp, the prototype is scanned and each time an atom corresponding to a mandatory argument is met, a user-given argument is read (gp outputs an error message it the argument was missing). Each time an optional atom is met, a default value is inserted if the user omits the argument. The ``automatic'' atoms fill in the argument list transparently, supplying the current value of the corresponding variable (or a dummy pointer).

For instance, here is how you would code the following prototypes, which do not involve default values:

  GEN f(GEN x, GEN y, long prec)   ----> "GGp"
  void f(GEN x, GEN y, long prec)  ----> "vGGp"
  void f(GEN x, long y, long prec) ----> "vGLp"
  long f(GEN x)                    ----> "lG"
  int f(long x)                    ----> "iL"

If you want more examples, gp gives you easy access to the parser codes associated to all GP functions: just type \h function. You can then compare with the C prototypes as they stand in paridecl.h.

Remark. If you need to implement complicated control statements (probably for some improved summation functions), you need to know how the parser implements closures and lexicals and how the evaluator lets you deal with them, in particular the push_lex and pop_lex functions. Check their descriptions and adapt the source code in language/sumiter.c and language/intnum.c.

Integration with gp as a shared module

In this section we assume that your Operating System is supported by install. You have written a function in C following the guidelines is Label se:coding_guidelines; in case the function returns a GEN, it must satisfy gerepileupto assumptions (see Label se:garbage).

You then succeeded in building it as part of a shared library and want to finally tell gp about your function. First, find a name for it. It does not have to match the one used in library mode, but consistency is nice. It has to be a valid GP identifier, i.e. use only alphabetic characters, digits and the underscore character (_), the first character being alphabetic.

Then figure out the correct parser code corresponding to the function prototype (as explained in Label se:gp.interface) and write a GP script like the following:

  install(libname, code, gpname, library)
  addhelp(gpname, "some help text")

(see Label se:addhelp and se:install). The addhelp part is not mandatory, but very useful if you want others to use your module. libname is how the function is named in the library, usually the same name as one visible from C.

Read that file from your gp session, for instance from your preferences file (Label se:gprc), and that's it. You can now use the new function gpname under gp, and we would very much like to hear about it!

Example. A complete description could look like this:

  {
    install(bnfinit0, "GD0,L,DGp", ClassGroupInit, "libpari.so");
    addhelp(ClassGroupInit, "ClassGroupInit(P,{flag=0},{data=[]}):
      compute the necessary data for ...");
  }

which means we have a function ClassGroupInit under gp, which calls the library function bnfinit0 . The function has one mandatory argument, and possibly two more (two 'D' in the code), plus the current real precision. More precisely, the first argument is a GEN, the second one is converted to a long using itos (0 is passed if it is omitted), and the third one is also a GEN, but we pass NULL if no argument was supplied by the user. This matches the C prototype (from paridecl.h):

    GEN bnfinit0(GEN P, long flag, GEN data, long prec)

This function is in fact coded in basemath/buch2.c, and is in this case completely identical to the GP function bnfinit but gp does not need to know about this, only that it can be found somewhere in the shared library libpari.so.

Important note. You see in this example that it is the function's responsibility to correctly interpret its operands: data = NULL is interpreted by the function as an empty vector. Note that since NULL is never a valid GEN pointer, this trick always enables you to distinguish between a default value and actual input: the user could explicitly supply an empty vector!

Library interface for install

There is a corresponding library interface for this install functionality, letting you expand the GP parser/evaluator available in the library with new functions from your C source code. Functions such as gp_read_str may then evaluate a GP expression sequence involving calls to these new function!

entree * install(void *f, char *gpname, char *code)

where f is the (address of the) function (cast to void*), gpname is the name by which you want to access your function from within your GP expressions, and code is as above.

Integration by patching gp

If install is not available, and installing Linux or a BSD operating system is not an option (why?), you have to hardcode your function in the gp binary. Here is what needs to be done:

* Fetch the complete sources of the PARI distribution.

* Drop the function source code module in an appropriate directory (a priori src/modules), and declare all public functions in src/headers/paridecl.h.

* Choose a help section and add a file src/functions/section/gpname containing the following, keeping the notation above:

  Function:  I<gpname>
  Section:   I<section>
  C-Name:    I<libname>
  Prototype: I<code>
  Help:      I<some help text>

(If the help text does not fit on a single line, continuation lines must start by a whitespace character.) Two GP2C-related fields (Description and Wrapper) are also available to improve the code GP2C generates when compiling scripts involving your function. See the GP2C documentation for details.

* Launch Configure, which should pick up your C files and build an appropriate Makefile. At this point you can recompile gp, which will first rebuild the functions database.

Example. We reuse the ClassGroupInit / bnfinit0 from the preceding section. Since the C source code is already part of PARI, we only need to add a file

functions/number_fields/ClassGroupInit

containing the following:

  Function: ClassGroupInit
  Section: number_fields
  C-Name: bnfinit0
  Prototype: GD0,L,DGp
  Help: ClassGroupInit(P,{flag=0},{tech=[]}): this routine does ...

and recompile gp.


Globals related to PARI configuration

PARI version numbers

paricfg_version_code encodes in a single long, the Major and minor version numbers as well as the patchlevel.

long PARI_VERSION(long M, long m, long p) produces the version code associated to release M.m.p. Each code identifies a unique PARI release, and corresponds to the natural total order on the set of releases (bigger code number means more recent release).

PARI_VERSION_SHIFT is the number of bits used to store each of the integers M, m, p in the version code.

paricfg_vcsversion is a version string related to the revision control system used to handle your sources, if any. For instance git-commit hash if compiled from a git repository.

The two character strings paricfg_version and paricfg_buildinfo, correspond to the first two lines printed by gp just before the Copyright message.

GEN pari_version() returns the version number as a PARI object, a t_VEC with three t_INT and one t_STR components.

Miscellaneous

paricfg_datadir: character string. The location of PARI's datadir.

\newpage


NAME

libPARI - Arithmetic kernel: Level 0 and 1


Level 0 kernel (operations on ulongs)

Micro-kernel

The Level 0 kernel simulates basic operations of the 68020 processor on which PARI was originally implemented. They need ``global'' ulong variables overflow (which will contain only 0 or 1) and hiremainder to function properly. A routine using one of these lowest-level functions where the description mentions either hiremainder or overflow must declare the corresponding

    LOCAL_HIREMAINDER;  /* provides 'hiremainder' */
    LOCAL_OVERFLOW;     /* provides 'overflow' */

in a declaration block. Variables hiremainder and overflow then become available in the enclosing block. For instance a loop over the powers of an ulong p protected from overflows could read

   while (pk < lim)
   {
     LOCAL_HIREMAINDER;
     ...
     pk = mulll(pk, p); if (hiremainder) break;
   }

For most architectures, the functions mentioned below are really chunks of inlined assembler code, and the above `global' variables are actually local register values.

ulong addll(ulong x, ulong y) adds x and y, returns the lower BIL bits and puts the carry bit into overflow.

ulong addllx(ulong x, ulong y) adds overflow to the sum of the x and y, returns the lower BIL bits and puts the carry bit into overflow.

ulong subll(ulong x, ulong y) subtracts x and y, returns the lower BIL bits and put the carry (borrow) bit into overflow.

ulong subllx(ulong x, ulong y) subtracts overflow from the difference of x and y, returns the lower BIL bits and puts the carry (borrow) bit into overflow.

int bfffo(ulong x) returns the number of leading zero bits in x. That is, the number of bit positions by which it would have to be shifted left until its leftmost bit first becomes equal to 1, which can be between 0 and BIL-1 for nonzero x. When x is 0, the result is undefined.

ulong mulll(ulong x, ulong y) multiplies x by y, returns the lower BIL bits and stores the high-order BIL bits into hiremainder.

ulong addmul(ulong x, ulong y) adds hiremainder to the product of x and y, returns the lower BIL bits and stores the high-order BIL bits into hiremainder.

ulong divll(ulong x, ulong y) returns the quotient of (hiremainder * 2^{BIL}) + x by y and stores the remainder into hiremainder. An error occurs if the quotient cannot be represented by an ulong, i.e. if initially hiremainder >= y.

Obsolete routines. Those functions are awkward and no longer used; they are only provided for backward compatibility:

ulong shiftl(ulong x, ulong y) returns x shifted left by y bits, i.e. x << y, where we assume that 0 <= y <= BIL. The global variable hiremainder receives the bits that were shifted out, i.e. x >> (BIL - y).

ulong shiftlr(ulong x, ulong y) returns x shifted right by y bits, i.e. x >> y, where we assume that 0 <= y <= BIL. The global variable hiremainder receives the bits that were shifted out, i.e. x << (BIL - y).

Modular kernel

The following routines are not part of the level 0 kernel per se, but implement modular operations on words in terms of the above. They are written so that no overflow may occur. Let m >= 1 be the modulus; all operands representing classes modulo m are assumed to belong to [0,m-1]. The result may be wrong for a number of reasons otherwise: it may not be reduced, overflow can occur, etc.

int odd(ulong x) returns 1 if x is odd, and 0 otherwise.

int both_odd(ulong x, ulong y) returns 1 if x and y are both odd, and 0 otherwise.

ulong invmod2BIL(ulong x) returns the smallest positive representative of x^{-1} mod 2^BIL, assuming x is odd.

ulong Fl_add(ulong x, ulong y, ulong m) returns the smallest positive representative of x + y modulo m.

ulong Fl_neg(ulong x, ulong m) returns the smallest positive representative of -x modulo m.

ulong Fl_sub(ulong x, ulong y, ulong m) returns the smallest positive representative of x - y modulo m.

long Fl_center(ulong x, ulong m, ulong mo2) returns the representative in ]-m/2,m/2] of x modulo m. Assume 0 <= x < m and mo2 = m >> 1.

ulong Fl_mul(ulong x, ulong y, ulong m) returns the smallest positive representative of x y modulo m.

ulong Fl_sqr(ulong x, ulong m) returns the smallest positive representative of x^2 modulo m.

ulong Fl_inv(ulong x, ulong m) returns the smallest positive representative of x^{-1} modulo m. If x is not invertible mod m, raise an exception.

ulong Fl_div(ulong x, ulong y, ulong m) returns the smallest positive representative of x y^{-1} modulo m. If y is not invertible mod m, raise an exception.

ulong Fl_powu(ulong x, ulong n, ulong m) returns the smallest positive representative of x^n modulo m.

ulong Fl_sqrt(ulong x, ulong p) returns the square root of x modulo p (smallest positive representative). Assumes p to be prime, and x to be a square modulo p.

ulong Fl_order(ulong a, ulong o, ulong p) returns the order of the t_Fp a. It is assumed that o is a multiple of the order of a, 0 being allowed (no non-trivial information).

ulong random_Fl(ulong p) returns a pseudo-random integer uniformly distributed in 0, 1,...p-1.

ulong pgener_Fl(ulong p) returns a primitive root modulo p, assuming p is prime.

ulong pgener_Zl(ulong p) returns a primitive root modulo p^k, k E<gt> 1, assuming p is an odd prime. On a 64-bit machine, this function may fail and raise an exception, if p > 2^{63}; namely when g := pgener_Fl(p) is not a primitive element and g + p no longer fits in an ulong. (It turns out that this cannot happen on a 32-bit architecture.) Use gener_Fp if this is a problem.

ulong pgener_Fl_local(ulong p, GEN L), see gener_Fp_local, L is an Flv.

Switching between Fl_xxx and standard operators

Even though the Fl_xxx routines are efficient, they are slower than ordinary long operations, using the standard +, %, etc. operators. The following macro is used to choose in a portable way the most efficient functions for given operands:

int SMALL_ULONG(ulong p) true if 2p^2 < 2^BIL. In that case, it is possible to use ordinary operators efficiently. If p < 2^BIL, one may still use the Fl_xxx routines. Otherwise, one must use generic routines. For instance, the scalar product of the GENs x and y mod p could be computed as follows.

      long i, l = lg(x);
      if (lgefint(p) > 3)
      { /* arbitrary */
        GEN s = gen_0;
        for (i = 1; i < l; i++) s = addii(s, mulii(gel(x,i), gel(y,i)));
        return modii(s, p).
      }
      else
      {
        ulong s = 0, pp = itou(p);
        x = ZV_to_Flv(x, pp);
        y = ZV_to_Flv(y, pp);
        if (SMALL_ULONG(pp))
        { /* very small */
          for (i = 1; i < l; i++)
          {
            s += x[i] * y[i];
            if (s & HIGHBIT) s %= pp;
          }
          s %= pp;
        }
        else
        { /* small */
          for (i = 1; i < l; i++)
            s = Fl_add(s, Fl_mul(x[i], y[i], pp), pp);
        }
        return utoi(s);
      }

In effect, we have three versions of the same code: very small, small, and arbitrary inputs. The very small and arbitrary variants use lazy reduction and reduce only when it becomes necessary: when overflow might occur (very small), and at the very end (very small, arbitrary).


Level 1 kernel (operations on longs, integers and reals)

Note. Some functions consist of an elementary operation, immediately followed by an assignment statement. They will be introduced as in the following example:

GEN gadd[z](GEN x, GEN y[, GEN z]) followed by the explicit description of the function

GEN gadd(GEN x, GEN y)

which creates its result on the stack, returning a GEN pointer to it, and the parts in brackets indicate that there exists also a function

void gaddz(GEN x, GEN y, GEN z)

which assigns its result to the pre-existing object z, leaving the stack unchanged. These assignment variants are kept for backward compatibility but are inefficient: don't use them.

Creation

GEN cgeti(long n) allocates memory on the PARI stack for a t_INT of length n, and initializes its first codeword. Identical to cgetg(n,t_INT).

GEN cgetipos(long n) allocates memory on the PARI stack for a t_INT of length n, and initializes its two codewords. The sign of n is set to 1.

GEN cgetineg(long n) allocates memory on the PARI stack for a negative t_INT of length n, and initializes its two codewords. The sign of n is set to -1.

GEN cgetr(long n) allocates memory on the PARI stack for a t_REAL of length n, and initializes its first codeword. Identical to cgetg(n,t_REAL).

GEN cgetc(long n) allocates memory on the PARI stack for a t_COMPLEX, whose real and imaginary parts are t_REALs of length n.

GEN real_1(long prec) create a t_REAL equal to 1 to prec words of accuracy.

GEN real_m1(long prec) create a t_REAL equal to -1 to prec words of accuracy.

GEN real_0_bit(long bit) create a t_REAL equal to 0 with exponent -bit.

GEN real_0(long prec) is a shorthand for

    real_0_bit( -bit_accuracy(prec) )

GEN int2n(long n) creates a t_INT equal to 1 << n (i.e 2^n if n >= 0, and 0 otherwise).

GEN int2u(ulong n) creates a t_INT equal to 2^n.

GEN real2n(long n, long prec) create a t_REAL equal to 2^n to prec words of accuracy.

GEN strtoi(char *s) convert the character string s to a non-negative t_INT. The string s consists exclusively of digits (no leading sign).

GEN strtor(char *s, long prec) convert the character string s to a non-negative t_REAL of precision prec. The string s consists exclusively of digits and optional decimal point and exponent (no leading sign).

Assignment

In this section, the z argument in the z-functions must be of type t_INT or t_REAL.

void mpaff(GEN x, GEN z) assigns x into z (where x and z are t_INT or t_REAL). Assumes that lg(z) > 2.

void affii(GEN x, GEN z) assigns the t_INT x into the t_INT z.

void affir(GEN x, GEN z) assigns the t_INT x into the t_REAL z. Assumes that lg(z) > 2.

void affiz(GEN x, GEN z) assigns t_INT x into t_INT or t_REAL z. Assumes that lg(z) > 2.

void affsi(long s, GEN z) assigns the long s into the t_INT z. Assumes that lg(z) > 2.

void affsr(long s, GEN z) assigns the long s into the t_REAL z. Assumes that lg(z) > 2.

void affsz(long s, GEN z) assigns the long s into the t_INT or t_REAL z. Assumes that lg(z) > 2.

void affui(ulong u, GEN z) assigns the ulong u into the t_INT z. Assumes that lg(z) > 2.

void affur(ulong u, GEN z) assigns the ulong u into the t_REAL z. Assumes that lg(z) > 2.

void affrr(GEN x, GEN z) assigns the t_REAL x into the t_REAL z.

void affgr(GEN x, GEN z) assigns the scalar x into the t_REAL z, if possible.

The function affrs and affri do not exist. So don't use them.

void affrr_fixlg(GEN y, GEN z) a variant of affrr. First shorten z so that it is no longer than y, then assigns y to z. This is used in the following scenario: room is reserved for the result but, due to cancellation, fewer words of accuracy are available than had been anticipated; instead of appending meaningless 0s to the mantissa, we store what was actually computed.

Note that shortening z is not quite straightforward, since setlg(z, ly) would leave garbage on the stack, which gerepile might later inspect. It is done using

void fixlg(GEN z, long ly) see stackdummy and the examples that follow.

Copy

GEN icopy(GEN x) copy relevant words of the t_INT x on the stack: the length and effective length of the copy are equal.

GEN rcopy(GEN x) copy the t_REAL x on the stack.

GEN leafcopy(GEN x) copy the leaf x on the stack (works in particular for t_INTs and t_REALs). Contrary to icopy, leafcopy preserves the original length of a t_INT. The obsolete form GEN mpcopy(GEN x) is still provided for backward compatibility.

This function also works on recursive types, copying them as if they were leaves, i.e. making a shallow copy in that case: the components of the copy point to the same data as the component of the source; see also shallowcopy.

Conversions

GEN itor(GEN x, long prec) converts the t_INT x to a t_REAL of length prec and return the latter. Assumes that prec > 2.

long itos(GEN x) converts the t_INT x to a long if possible, otherwise raise an exception.

long itos_or_0(GEN x) converts the t_INT x to a long if possible, otherwise return 0.

int is_bigint(GEN n) true if itos(n) would succeed.

int is_bigint_lg(GEN n, long l) true if itos(n) would succeed. Assumes lgefint(n) is equal to l.

ulong itou(GEN x) converts the t_INT |x| to an ulong if possible, otherwise raise an exception.

long itou_or_0(GEN x) converts the t_INT |x| to an ulong if possible, otherwise return 0.

GEN stoi(long s) creates the t_INT corresponding to the long s.

GEN stor(long s, long prec) converts the long s into a t_REAL of length prec and return the latter. Assumes that prec > 2.

GEN utoi(ulong s) converts the ulong s into a t_INT and return the latter.

GEN utoipos(ulong s) converts the non-zero ulong s into a t_INT and return the latter.

GEN utoineg(ulong s) converts the non-zero ulong s into the t_INT -s and return the latter.

GEN utor(ulong s, long prec) converts the ulong s into a t_REAL of length prec and return the latter. Assumes that prec > 2.

GEN rtor(GEN x, long prec) converts the t_REAL x to a t_REAL of length prec and return the latter. If prec < lg(x), round properly. If prec > lg(x), pad with zeroes. Assumes that prec > 2.

The following function is also available as a special case of mkintn:

GEN uu32toi(ulong a, ulong b) returns the GEN equal to 2^{32} a + b, assuming that a,b < 2^{32}. This does not depend on sizeof(long): the behavior is as above on both 32 and 64-bit machines.

GEN uutoi(ulong a, ulong b) returns the GEN equal to 2^{BIL} a + b.

GEN uutoineg(ulong a, ulong b) returns the GEN equal to -(2^{BIL} a + b).

Integer parts

The following four functions implement the conversion from t_REAL to t_INT using standard rounding modes. Contrary to usual semantics (complement the mantissa with an infinite number of 0), they will raise an error precision loss in truncation if the t_REAL represents a range containing more than one integer.

GEN ceilr(GEN x) smallest integer larger or equal to the t_REAL x (i.e. the ceil function).

GEN floorr(GEN x) largest integer smaller or equal to the t_REAL x (i.e. the floor function).

GEN roundr(GEN x) rounds the t_REAL x to the nearest integer (towards + oo in case of tie).

GEN truncr(GEN x) truncates the t_REAL x (not the same as floorr if x is negative).

The following four function are analogous, but can also treat the trivial case when the argument is a t_INT:

GEN mpceil(GEN x) as ceilr except that x may be a t_INT.

GEN mpfloor(GEN x) as floorr except that x may be a t_INT.

GEN mpround(GEN x) as roundr except that x may be a t_INT.

GEN mptrunc(GEN x) as truncr except that x may be a t_INT.

GEN diviiround(GEN x, GEN y) if x and y are t_INTs, returns the quotient x/y of x and y, rounded to the nearest integer. If x/y falls exactly halfway between two consecutive integers, then it is rounded towards + oo (as for roundr).

GEN ceil_safe(GEN x), x being a real number (not necessarily a t_REAL) returns the smallest integer which is larger than any possible incarnation of x. (Recall that a t_REAL represents an interval of possible values.) Note that gceil raises an exception if the input accuracy is too low compared to its magnitude.

GEN floor_safe(GEN x), x being a real number (not necessarily a t_REAL) returns the largest integer which is smaller than any possible incarnation of x. (Recall that a t_REAL represents an interval of possible values.) Note that gfloor raises an exception if the input accuracy is too low compared to its magnitude.

GEN trunc_safe(GEN x), x being a real number (not necessarily a t_REAL) returns the integer with the largest absolute value, which is closer to 0 than any possible incarnation of x. (Recall that a t_REAL represents an interval of possible values.)

GEN roundr_safe(GEN x) rounds the t_REAL x to the nearest integer (towards + oo ). Complement the mantissa with an infinite number of 0 before rounding, hence never raise an exception.

2-adic valuations and shifts

long vals(long s) 2-adic valuation of the long s. Returns -1 if s is equal to 0.

long vali(GEN x) 2-adic valuation of the t_INT x. Returns -1 if x is equal to 0.

GEN mpshift(GEN x, long n) shifts the t_INT or t_REAL x by n. If n is positive, this is a left shift, i.e. multiplication by 2^{n}. If n is negative, it is a right shift by -n, which amounts to the truncation of the quotient of x by 2^{-n}.

GEN shifti(GEN x, long n) shifts the t_INT x by n.

GEN shiftr(GEN x, long n) shifts the t_REAL x by n.

GEN trunc2nr(GEN x, long n) given a t_REAL x, returns truncr(shiftr(x,n)), but faster, without leaving garbage on the stack and never raising a precision loss in truncation error. Called by gtrunc2n.

GEN trunc2nr_lg(GEN x, long lx, long n) given a t_REAL x, returns trunc2nr(x,n), pretending that the length of x is lx, which must be <= lg(x).

Low-level. In the following two functions, s(ource) and t(arget) need not be valid GENs (in practice, they usually point to some part of a t_REAL mantissa): they are considered as arrays of words representing some mantissa, and we shift globally s by n > 0 bits, storing the result in t. We assume that m <= M and only access s[m], s[m+1],...s[M] (read) and likewise for t (write); we may have s = t but more general overlaps are not allowed. The word f is concatenated to s to supply extra bits.

void shift_left(GEN t, GEN s, long m, long M, ulong f, ulong n) shifts the mantissa

  s[m], s[m+1],...s[M], f

left by n bits.

void shift_right(GEN t, GEN s, long m, long M, ulong f, ulong n) shifts the mantissa

  f, s[m], s[m+1],...s[M]

right by n bits.

Valuations

long Z_pvalrem(GEN x, GEN p, GEN *r) applied to t_INTs x != 0 and p, |p| > 1, returns the highest exponent e such that p^{e} divides x. The quotient x/p^{e} is returned in *r. In particular, if p is a prime, this returns the valuation at p of x, and *r is the prime-to-p part of x.

long Z_pval(GEN x, GEN p) as Z_pvalrem but only returns the ``valuation''.

long Z_lvalrem(GEN x, ulong p, GEN *r) as Z_pvalrem, except that p is an ulong (p > 1).

long Z_lval(GEN x, ulong p) as Z_pval, except that p is an ulong (p > 1).

long u_lvalrem(ulong x, ulong p, ulong *r) as Z_pvalrem, except the inputs/outputs are now ulongs.

long u_pvalrem(ulong x, GEN p, ulong *r) as Z_pvalrem, except x and r are now ulongs.

long u_lval(ulong x, ulong p) as Z_pval, except the inputs are now ulongs.

long u_pval(ulong x, GEN p) as Z_pval, except x is now an ulong.

long z_lval(long x, ulong p) as u_lval, for signed x.

long z_lvalrem(long x, ulong p) as u_lvalrem, for signed x.

long z_pval(long x, GEN p) as Z_pval, except x is now a long.

long z_pvalrem(long x, GEN p) as Z_pvalrem, except x is now a long.

long Q_pval(GEN x, GEN p) valuation at the t_INT p of the t_INT or t_FRAC x.

long factorial_lval(ulong n, ulong p) returns v_p(n!), assuming p is prime.

The following convenience functions generalize Z_pval and its variants to ``containers'' (ZV and ZX):

long ZV_pvalrem(GEN x, GEN p, GEN *r) x being a ZV (a vector of t_INTs), return the min v of the valuations of its components and set *r to x/p^v. Infinite loop if x is the zero vector. This function is not stack clean.

long ZV_pval(GEN x, GEN p) as ZV_pvalrem but only returns the ``valuation''.

long ZV_lvalrem(GEN x, ulong p, GEN *px) as ZV_pvalrem, except that p is an ulong (p > 1). This function is not stack-clean.

long ZV_lval(GEN x, ulong p) as ZV_pval, except that p is an ulong (p > 1).

long ZX_pvalrem(GEN x, GEN p, GEN *r) as ZV_pvalrem, for a ZX x (a t_POL with t_INT coefficients). This function is not stack-clean.

long ZX_pval(GEN x, GEN p) as ZV_pval for a ZX x.

long ZX_lvalrem(GEN x, ulong p, GEN *px) as ZV_lvalrem, a ZX x. This function is not stack-clean.

long ZX_lval(GEN x, ulong p) as ZX_pval, except that p is an ulong (p > 1).

Generic unary operators

Let ``op'' be a unary operation among

* neg: negation (-x).

* abs: absolute value (|x|).

* sqr: square (x^2).

The names and prototypes of the low-level functions corresponding to op are as follows. The result is of the same type as x.

GEN opi(GEN x) creates the result of op applied to the t_INT x.

GEN opr(GEN x) creates the result of op applied to the t_REAL x.

GEN mpop(GEN x) creates the result of op applied to the t_INT or t_REAL x.

Complete list of available functions:

GEN absi(GEN x), GEN absr(GEN x), GEN mpabs(GEN x)

GEN negi(GEN x), GEN negr(GEN x), GEN mpneg(GEN x)

GEN sqri(GEN x), GEN sqrr(GEN x), GEN mpsqr(GEN x)

Some miscellaneous routines:

GEN sqrs(long x) returns x^2.

GEN sqru(ulong x) returns x^2.

Comparison operators

long minss(long x, long y)

ulong minuu(ulong x, ulong y)

double mindd(double x, double y) returns the min of x and y.

long maxss(long x, long y)

ulong maxuu(ulong x, ulong y)

double maxdd(double x, double y) returns the max of x and y.

int mpcmp(GEN x, GEN y) compares the t_INT or t_REAL x to the t_INT or t_REAL y. The result is the sign of x-y.

int cmpii(GEN x, GEN y) compares the t_INT x to the t_INT y.

int cmpir(GEN x, GEN y) compares the t_INT x to the t_REAL y.

int cmpis(GEN x, long s) compares the t_INT x to the long s.

int cmpsi(long s, GEN x) compares the long s to the t_INT x.

int cmpsr(long s, GEN x) compares the long s to the t_REAL x.

int cmpri(GEN x, GEN y) compares the t_REAL x to the t_INT y.

int cmprr(GEN x, GEN y) compares the t_REAL x to the t_REAL y.

int cmprs(GEN x, long s) compares the t_REAL x to the long s.

int equalii(GEN x, GEN y) compares the t_INTs x and y. The result is 1 if x = y, 0 otherwise.

int equalrr(GEN x, GEN y) compares the t_REALs x and y. The result is 1 if x = y, 0 otherwise. Equality is decided according to the following rules: all real zeroes are equal, and different from a non-zero real; two non-zero reals are equal if all their digits coincide up to the length of the shortest of the two, and the remaining words in the mantissa of the longest are all 0.

int equalsi(long s, GEN x)

int equalis(GEN x, long s) compare the t_INT x and the long s. The result is 1 if x = y, 0 otherwise.

The remaining comparison operators disregard the sign of their operands:

int equalui(ulong s, GEN x)

int equaliu(GEN x, ulong s) compare the absolute value of the t_INT x and the ulong s. The result is 1 if |x |= y, 0 otherwise.

int cmpui(ulong u, GEN x)

int cmpiu(GEN x, ulong u) compare the absolute value of the t_INT x and the ulong s.

int absi_cmp(GEN x, GEN y) compares the t_INTs x and y. The result is the sign of |x| - |y|.

int absi_equal(GEN x, GEN y) compares the t_INTs x and y. The result is 1 if |x |= |y|, 0 otherwise.

int absr_cmp(GEN x, GEN y) compares the t_REALs x and y. The result is the sign of |x| - |y|.

int absrnz_equal2n(GEN x) tests whether a non-zero t_REAL x is equal to +- 2^e for some integer e.

int absrnz_equal1(GEN x) tests whether a non-zero t_REAL x is equal to +- 1.

Generic binary operators

The operators in this section have arguments of C-type GEN, long, and ulong, and only t_INT and t_REAL GENs are allowed. We say an argument is a real type if it is a t_REAL GEN, and an integer type otherwise. The result is always a t_REAL unless both x and y are integer types.

Let ``op'' be a binary operation among

* add: addition (x + y).

* sub: subtraction (x - y).

* mul: multiplication (x * y).

* div: division (x / y). In the case where x and y are both integer types, the result is the Euclidean quotient, where the remainder has the same sign as the dividend x. It is the ordinary division otherwise. A division-by-0 error occurs if y is equal to 0.

The last two generic operations are defined only when arguments have integer types; and the result is a t_INT:

* rem: remainder (``x % y''). The result is the Euclidean remainder corresponding to div, i.e. its sign is that of the dividend x.

* mod: true remainder (x % y). The result is the true Euclidean remainder, i.e. non-negative and less than the absolute value of y.

Important technical note. The rules given above fixing the output type (to t_REAL unless both inputs are integer types) are subtly incompatible with the general rules obeyed by PARI's generic functions, such as gmul or gdiv for instance: the latter return a result containing as much information as could be deduced from the inputs, so it is not true that if x is a t_INT and y a t_REAL, then gmul(x,y) is always the same as mulir(x,y). The exception is x = 0, in that case we can deduce that the result is an exact 0, so gmul returns gen_0, while mulir returns a t_REAL 0. Specifically, the one resulting from the conversion of gen_0 to a t_REAL of precision precision(y), multiplied by y; this determines the exponent of the real 0 we obtain.

The reason for the discrepancy between the two rules is that we use the two sets of functions in different contexts: generic functions allow to write high-level code forgetting about types, letting PARI return results which are sensible and as simple as possible; type specific functions are used in kernel programming, where we do care about types and need to maintain strict consistency: it is much easier to compute the types of results when they are determined from the types of the inputs only (without taking into account further arithmetic properties, like being non-0).

The names and prototypes of the low-level functions corresponding to op are as follows. In this section, the z argument in the z-functions must be of type t_INT when no r or mp appears in the argument code (no t_REAL operand is involved, only integer types), and of type t_REAL otherwise.

GEN mpop[z](GEN x, GEN y[, GEN z]) applies op to the t_INT or t_REAL x and y. The function mpdivz does not exist (its semantic would change drastically depending on the type of the z argument), and neither do mprem[z] nor mpmod[z] (specific to integers).

GEN opsi[z](long s, GEN x[, GEN z]) applies op to the long s and the t_INT x. These functions always return the global constant gen_0 (not a copy) when the sign of the result is 0.

GEN opsr[z](long s, GEN x[, GEN z]) applies op to the long s and the t_REAL x.

GEN opss[z](long s, long t[, GEN z]) applies op to the longs s and t. These functions always return the global constant gen_0 (not a copy) when the sign of the result is 0.

GEN opii[z](GEN x, GEN y[, GEN z]) applies op to the t_INTs x and y. These functions always return the global constant gen_0 (not a copy) when the sign of the result is 0.

GEN opir[z](GEN x, GEN y[, GEN z]) applies op to the t_INT x and the t_REAL y.

GEN opis[z](GEN x, long s[, GEN z]) applies op to the t_INT x and the long s. These functions always return the global constant gen_0 (not a copy) when the sign of the result is 0.

GEN opri[z](GEN x, GEN y[, GEN z]) applies op to the t_REAL x and the t_INT y.

GEN oprr[z](GEN x, GEN y[, GEN z]) applies op to the t_REALx and y.

GEN oprs[z](GEN x, long s[, GEN z]) applies op to the t_REAL x and the long s.

Some miscellaneous routines:

long expu(ulong x) assuming x > 0, returns the binary exponent of the real number equal to x. This is a special case of gexpo.

GEN adduu(ulong x, ulong y) adds x by y.

GEN subuu(ulong x, ulong y) subtracts x by y.

GEN muluu(ulong x, ulong y) multiplies x by y.

GEN mului(ulong x, GEN y) multiplies x by y.

GEN muliu(GEN x, ulong y) multiplies x by y.

void addumului(ulong a, ulong b, GEN x) return a + b|X|.

GEN mulu_interval(ulong a, ulong b) returns a(a+1)...b, assuming that a <= b. Very inefficient when a = 0.

GEN invr(GEN x) returns the inverse of the non-zero t_REAL x.

GEN truedivii(GEN x, GEN y) returns the true Euclidean quotient (with non-negative remainder less than |y|).

GEN truedivis(GEN x, long y) returns the true Euclidean quotient (with non-negative remainder less than |y|).

GEN truedivsi(long x, GEN y) returns the true Euclidean quotient (with non-negative remainder less than |y|).

GEN centermodii(GEN x, GEN y, GEN y2), given t_INTs x, y, returns z congruent to x modulo y, such that -y/2 <= z < y/2. The function requires an extra argument y2, such that y2 = shifti(y, -1). (In most cases, y is constant for many reductions and y2 need only be computed once.)

GEN remi2n(GEN x, long n) returns x mod 2^n.

GEN addii_sign(GEN x, long sx, GEN y, long sy) add the t_INTs x and y as if their signs were sx and sy.

GEN addir_sign(GEN x, long sx, GEN y, long sy) add the t_INT x and the t_REAL y as if their signs were sx and sy.

GEN addrr_sign(GEN x, long sx, GEN y, long sy) add the t_REALs x and y as if their signs were sx and sy.

GEN addsi_sign(long x, GEN y, long sy) add x and the t_INT y as if its sign was sy.

Exact division and divisibility

void diviiexact(GEN x, GEN y) returns the Euclidean quotient x / y, assuming y divides x. Uses Jebelean algorithm (Jebelean-Krandick bidirectional exact division is not implemented).

void diviuexact(GEN x, ulong y) returns the Euclidean quotient x / y, assuming y divides x and y is non-zero.

The following routines return 1 (true) if y divides x, and 0 otherwise. (Error if y is 0, even if x is 0.) All GEN are assumed to be t_INTs:

int dvdii(GEN x, GEN y), int dvdis(GEN x, long y), int dvdiu(GEN x, ulong y),

int dvdsi(long x, GEN y), int dvdui(ulong x, GEN y).

The following routines return 1 (true) if y divides x, and in that case assign the quotient to z; otherwise they return 0. All GEN are assumed to be t_INTs:

int dvdiiz(GEN x, GEN y, GEN z), int dvdisz(GEN x, long y, GEN z).

int dvdiuz(GEN x, ulong y, GEN z) if y divides x, assigns the quotient |x|/y to z and returns 1 (true), otherwise returns 0 (false).

Division with integral operands and t_REAL result

GEN rdivii(GEN x, GEN y, long prec), assuming x and y are both of type t_INT, return the quotient x/y as a t_REAL of precision prec.

GEN rdiviiz(GEN x, GEN y, GEN z), assuming x and y are both of type t_INT, and z is a t_REAL, assign the quotient x/y to z.

GEN rdivis(GEN x, long y, long prec), assuming x is of type t_INT, return the quotient x/y as a t_REAL of precision prec.

GEN rdivsi(long x, GEN y, long prec), assuming y is of type t_INT, return the quotient x/y as a t_REAL of precision prec.

GEN rdivss(long x, long y, long prec), return the quotient x/y as a t_REAL of precision prec.

Division with remainder

The following functions return two objects, unless specifically asked for only one of them --- a quotient and a remainder. The quotient is returned and the remainder is returned through the variable whose address is passed as the r argument. The term true Euclidean remainder refers to the non-negative one (mod), and Euclidean remainder by itself to the one with the same sign as the dividend (rem). All GENs, whether returned directly or through a pointer, are created on the stack.

GEN dvmdii(GEN x, GEN y, GEN *r) returns the Euclidean quotient of the t_INT x by a t_INT y and puts the remainder into *r. If r is equal to NULL, the remainder is not created, and if r is equal to ONLY_REM, only the remainder is created and returned. In the generic case, the remainder is created after the quotient and can be disposed of individually with a cgiv(r). The remainder is always of the sign of the dividend x. If the remainder is 0 set r = gen_0.

void dvmdiiz(GEN x, GEN y, GEN z, GEN t) assigns the Euclidean quotient of the t_INTs x and y into the t_INT z, and the Euclidean remainder into the t_INT t.

Analogous routines dvmdis[z], dvmdsi[z], dvmdss[z] are available, where s denotes a long argument. But the following routines are in general more flexible:

long sdivss_rem(long s, long t, long *r) computes the Euclidean quotient and remainder of the longs s and t. Puts the remainder into *r, and returns the quotient. The remainder is of the sign of the dividend s, and has strictly smaller absolute value than t.

long sdivsi_rem(long s, GEN x, long *r) computes the Euclidean quotient and remainder of the long s by the t_INT x. As sdivss_rem otherwise.

long sdivsi(long s, GEN x) as sdivsi_rem, without remainder.

GEN divis_rem(GEN x, long s, long *r) computes the Euclidean quotient and remainder of the t_INT x by the long s. As sdivss_rem otherwise.

GEN diviu_rem(GEN x, ulong s, long *r) computes the Euclidean quotient and remainder of absolute value of the t_INT x by the ulong s. As sdivss_rem otherwise.

ulong udivui_rem(ulong s, GEN y, ulong *rem) computes the Euclidean quotient and remainder of the x by y. As sdivss_rem otherwise.

GEN divsi_rem(long s, GEN y, long *r) computes the Euclidean quotient and remainder of the t_long s by the GEN y. As sdivss_rem otherwise.

GEN divss_rem(long x, long y, long *r) computes the Euclidean quotient and remainder of the t_long x by the long y. As sdivss_rem otherwise.

GEN truedvmdii(GEN x, GEN y, GEN *r), as dvmdii but with a non-negative remainder.

GEN truedvmdis(GEN x, long y, GEN *z), as dvmdis but with a non-negative remainder.

GEN truedvmdsi(long x, GEN y, GEN *z), as dvmdsi but with a non-negative remainder.

Modulo to longs

The following variants of modii do not clutter the stack:

long smodis(GEN x, long y) computes the true Euclidean remainder of the t_INT x by the long y. This is the non-negative remainder, not the one whose sign is the sign of x as in the div functions.

long smodss(long x, long y) computes the true Euclidean remainder of the long x by a long y.

ulong umodiu(GEN x, ulong y) computes the true Euclidean remainder of the t_INT x by the ulong y.

ulong umodui(ulong x, GEN y) computes the true Euclidean remainder of the ulong x by the t_INT |y|.

The routine smodsi does not exist, since it would not always be defined: for a negative x, if the quotient is +-1, the result x + |y| would in general not fit into a long. Use either umodui or modsi.

Powering, Square root

GEN powii(GEN x, GEN n), assumes x and n are t_INTs and returns x^n.

GEN powuu(ulong x, ulong n), returns x^n.

GEN powiu(GEN x, ulong n), assumes x is a t_INT and returns x^n.

GEN powis(GEN x, long n), assumes x is a t_INT and returns x^n (possibly a t_FRAC if n < 0).

GEN powrs(GEN x, long n), assumes x is a t_REAL and returns x^n. This is considered as a sequence of mulrr, possibly empty: as such the result has type t_REAL, even if n = 0. Note that the generic function gpowgs(x,0) would return gen_1, see the technical note in Label se:genbinop.

GEN powru(GEN x, ulong n), assumes x is a t_REAL and returns x^n (always a t_REAL, even if n = 0).

GEN powrshalf(GEN x, long n), assumes x is a t_REAL and returns x^{n/2} (always a t_REAL, even if n = 0).

GEN powruhalf(GEN x, ulong n), assumes x is a t_REAL and returns x^{n/2} (always a t_REAL, even if n = 0).

GEN powrfrac(GEN x, long n, long d), assumes x is a t_REAL and returns x^{n/d} (always a t_REAL, even if n = 0).

GEN powIs(long n) returns I^n belongs to {1,I,-1,-I} (t_INT for even n, t_COMPLEX otherwise).

ulong upowuu(ulong x, ulong n), returns x^n modulo 2^BIL. This is meant to be used for tiny n, where in fact x^n fits into an ulong.

GEN sqrtremi(GEN N, GEN *r), returns the integer square root S of the non-negative t_INT N (rounded towards 0) and puts the remainder R into *r. Precisely, N = S^2 + R with 0 <= R <= 2S. If r is equal to NULL, the remainder is not created. In the generic case, the remainder is created after the quotient and can be disposed of individually with cgiv(R). If the remainder is 0 set R = gen_0.

Uses a divide and conquer algorithm (discrete variant of Newton iteration) due to Paul Zimmermann (``Karatsuba Square Root'', INRIA Research Report 3805 (1999)).

GEN sqrti(GEN N), returns the integer square root S of the non-negative t_INT N (rounded towards 0). This is identical to sqrtremi(N, NULL).

GCD, extended GCD and LCM

long cgcd(long x, long y) returns the GCD of x and y.

ulong ugcd(ulong x, ulong y) returns the GCD of x and y.

long clcm(long x, long y) returns the LCM of x and y, provided it fits into a long. Silently overflows otherwise.

GEN gcdii(GEN x, GEN y), returns the GCD of the t_INTs x and y.

GEN lcmii(GEN x, GEN y), returns the LCM of the t_INTs x and y.

GEN bezout(GEN a,GEN b, GEN *u,GEN *v), returns the GCD d of t_INTs a and b and sets u, v to the Bezout coefficients such that au + bv = d.

long cbezout(long a,long b, long *u,long *v), returns the GCD d of a and b and sets u, v to the Bezout coefficients such that au + bv = d.

Pure powers

long Z_issquare(GEN n) returns 1 if the t_INT n is a square, and 0 otherwise. This is tested first modulo small prime powers, then sqrtremi is called.

long Z_issquareall(GEN n, GEN *sqrtn) as Z_issquare. If n is indeed a square, set sqrtn to its integer square root. Uses a fast congruence test mod 64 x 63 x 65 x 11 before computing an integer square root.

long uissquareall(ulong n, ulong *sqrtn) as Z_issquareall, for an ulong operand n.

long Z_ispower(GEN x, ulong k) returns 1 if the t_INT n is a k-th power, and 0 otherwise; assume that k > 1.

long Z_ispowerall(GEN x, ulong k, GEN *pt) as Z_ispower. If n is indeed a k-th power, set *pt to its integer k-th root.

long Z_isanypower(GEN x, GEN *ptn) returns the maximal k >= 2 such that the t_INT x = n^k is a perfect power, or 0 if no such k exist; in particular ispower(1), ispower(0), ispower(-1) all return 0. If the return value k is not 0 (so that x = n^k) and ptn is not NULL, set *ptn to n.

The following low-level functions are called by Z_isanypower but can be directly useful:

int is_357_power(GEN x, GEN *ptn, ulong *pmask) tests whether the integer x > 0 is a 3-rd, 5-th or 7-th power. The bits of *mask initially indicate which test is to be performed; bit 0: 3-rd, bit 1: 5-th, bit 2: 7-th (e.g. *pmask = 7 performs all tests). They are updated during the call: if the ``i-th power'' bit is set to 0 then x is not a k-th power. The function returns 0 (not a 3-rd, 5-th or 7-th power), 3 (3-rd power, not a 5-th or 7-th power), 5 (5-th power, not a 7-th power), or 7 (7-th power); if an i-th power bit is initially set to 0, we take it at face value and assume x is not an i-th power without performing any test. If the return value k is non-zero, set *ptn to n such that x = n^k.

int is_pth_power(GEN x, GEN *ptn, ulong *pminp, ulong cutoff) x > 0 is an integer and we look for the smallest prime p >= \max(11,*pminp) such that x = n^p. (The 11 is due to the fact that is_357_power and issquare are faster than the generic version for p < 11.) Fail and return 0 when the existence of p would imply 2^{cutoff} > x^{1/p}, meaning that a possible n is so small that it should have been found by trial division; for maximal speed, you should start by a round of trial division, but the cut-off may also be set to 1 for a rigorous result without any trial division.

Otherwise returns the smallest suitable prime p and set *ptn to n. *pminp is updated to p, so that we may immediately recall the function with the same parameters after setting x = *ptn.

Factorization

GEN Z_factor(GEN n) factors the t_INT n. The ``primes'' in the factorization are actually strong pseudoprimes.

int is_Z_factor(GEN f) returns 1 if f looks like the factorization of a positive integer, and 0 otherwise. Useful for sanity checks but not 100% foolproof. Specifically, this routine checks that f is a two-column matrix all of whose entries are positive integers.

long Z_issquarefree(GEN x) returns 1 if the t_INT n is square-free, and 0 otherwise.

long Z_isfundamental(GEN x) returns 1 if the t_INT x is a fundamental discriminant, and 0 otherwise.

GEN Z_factor_until(GEN n, GEN lim) as Z_factor, but stop the factorization process as soon as the unfactored part is smaller than lim. The resulting factorization matrix only contains the factors found. No other assumptions can be made on the remaining factors.

GEN Z_factor_limit(GEN n, ulong lim) trial divide n by all primes p E<lt> lim in the precomputed list of prime numbers and return the corresponding factorization matrix. In this case, the last ``prime'' divisor in the first column of the factorization matrix may well be a proven composite.

If lim = 0, the effect is the same as setting lim = maxprime() + 1: use all precomputed primes.

GEN boundfact(GEN x, ulong lim) as Z_factor_limit, applying to t_INT or t_FRAC inputs.

GEN Z_smoothen(GEN n, GEN L, GEN *pP, GEN *pE) given a t_VECSMALL L containing a list of small primes and a t_INT n, trial divide n by the elements of L and return the cofactor. Return NULL if the cofactor is +- 1. *P and *E contain the list of prime divisors found and their exponents, as t_VECSMALLs. Neither memory-clean, nor suitable for gerepileupto.

GEN core(GEN n) unique squarefree integer d dividing n such that n/d is a square.

GEN core2(GEN n) return [d,f] with d squarefree and n = df^2.

GEN corepartial(GEN n, long lim) as core, using boundfact(n,lim) to partially factor n. The result is not necessarily squarefree, but p^2 | n implies p > lim.

GEN core2partial(GEN n, long lim) as core2, using boundfact(n,lim) to partially factor n. The resulting d is not necessarily squarefree, but p^2 | n implies p > lim.

GEN factor_pn_1(GEN p, long n) returns the factorization of p^n-1, where p is prime and n is a positive integer.

GEN factor_Aurifeuille_prime(GEN p, long n) an Aurifeuillian factor of phi_n(p), assuming p prime and an Aurifeuillian factor exists (p zeta_n is a square in Q(zeta_n)).

GEN factor_Aurifeuille(GEN a, long d) an Aurifeuillian factor of phi_n(a), assuming a is a non-zero integer and n > 2. Returns 1 if no Aurifeuillian factor exists.

GEN factoru(ulong n), returns the factorization of n. The result is a 2-component vector [P,E], where P and E are t_VECSMALL containing the prime divisors of n, and the v_p(n).

GEN factoru_pow(ulong n), returns the factorization of n. The result is a 3-component vector [P,E,C], where P, E and C are t_VECSMALL containing the prime divisors of n, the v_p(n) and the p^{v_p(n)}.

Primality and compositeness tests

int uisprime(ulong p), returns 1 if p is a prime number and 0 otherwise.

ulong uprimepi(ulong n), returns the number of primes p <= n.

ulong unextprime(ulong n), returns the smallest prime >= n. Return 0 if it cannot be represented as an ulong (bigger than 2^{64} - 59 or 2^{32} - 5 depending on the word size).

ulong uprime(long n) returns the n-th prime, assuming it belongs to the precomputed prime table. Error otherwise.

GEN prime(long n) same as utoi(uprime(n)).

GEN primes_zv(long m) returns the m-th first primes, in a t_VECSMALL, assuming they belong to the precomputed prime table. Error otherwise.

int isprime(GEN n), returns 1 if the t_INT n is a (fully proven) prime number and 0 otherwise.

long isprimeAPRCL(GEN n), returns 1 if the t_INT n is a prime number and 0 otherwise, using only the APRCL test --- not even trial division or compositeness tests. The workhorse isprime should be faster on average, especially if non-primes are included!

long BPSW_psp(GEN n), returns 1 if the t_INT n is a Baillie-Pomerance-Selfridge-Wagstaff pseudoprime, and 0 otherwise (proven composite).

int BPSW_isprime(GEN x) assuming x is a BPSW-pseudoprime, rigorously prove its primality. The function isprime is currently implemented as

   BPSW_psp(x) && BPSW_isprime(x)

long millerrabin(GEN n, long k) performs k strong Rabin-Miller compositeness tests on the t_INT n, using k random bases. This function also caches square roots of -1 that are encountered during the successive tests and stops as soon as three distinct square roots have been produced; we have in principle factored n at this point, but unfortunately, there is currently no way for the factoring machinery to become aware of it. (It is highly implausible that hard to find factors would be exhibited in this way, though.) This should be slower than BPSW_psp for k >= 4 and we would expect it to be less reliable.

Pseudo-random integers

These routine return pseudo-random integers uniformly distributed in some interval. The all use the same underlying generator which can be seeded and restarted using getrand and setrand.

void setrand(GEN seed) reseeds the random number generator using the seed n. The seed is either a technical array output by getrand or a small positive integer, used to generate deterministically a suitable state array. For instance, running a randomized computation starting by setrand(1) twice will generate the exact same output.

GEN getrand(void) returns the current value of the seed used by the pseudo-random number generator random. Useful mainly for debugging purposes, to reproduce a specific chain of computations. The returned value is technical (reproduces an internal state array of type t_VECSMALL), and can only be used as an argument to setrand.

ulong pari_rand(void) returns a random 0 <= x < 2^BIL.

long random_bits(long k) returns a random 0 <= x < 2^k. Assumes that 0 <= k <= BIL.

ulong random_Fl(ulong p) returns a pseudo-random integer in 0, 1,...p-1.

GEN randomi(GEN n) returns a random t_INT between 0 and n - 1.

GEN randomr(long prec) returns a random t_REAL in [0,1[, with precision prec.

Modular operations

In this subsection, all GENs are t_INT

GEN Fp_red(GEN a, GEN m) returns a modulo m (smallest non-negative residue). (This is identical to modii).

GEN Fp_neg(GEN a, GEN m) returns -a modulo m (smallest non-negative residue).

GEN Fp_add(GEN a, GEN b, GEN m) returns the sum of a and b modulo m (smallest non-negative residue).

GEN Fp_sub(GEN a, GEN b, GEN m) returns the difference of a and b modulo m (smallest non-negative residue).

GEN Fp_center(GEN a, GEN p, GEN pov2) assuming that pov2 is shifti(p,-1) and that a is between 0 and p - 1 and, returns the representative of a in the symmetric residue system.

GEN Fp_mul(GEN a, GEN b, GEN m) returns the product of a by b modulo m (smallest non-negative residue).

GEN Fp_mulu(GEN a, ulong b, GEN m) returns the product of a by b modulo m (smallest non-negative residue).

GEN Fp_sqr(GEN a, GEN m) returns a^2 modulo m (smallest non-negative residue).

ulong Fp_powu(GEN x, ulong n, GEN m) raises x to the n-th power modulo m (smallest non-negative residue). Not memory-clean, but suitable for gerepileupto.

ulong Fp_pows(GEN x, long n, GEN m) raises x to the n-th power modulo m (smallest non-negative residue). A negative n is allowed Not memory-clean, but suitable for gerepileupto.

GEN Fp_pow(GEN x, GEN n, GEN m) returns x^n modulo m (smallest non-negative residue).

GEN Fp_inv(GEN a, GEN m) returns an inverse of a modulo m (smallest non-negative residue). Raise an error if a is not invertible.

GEN Fp_invsafe(GEN a, GEN m) as Fp_inv, but return NULL if a is not invertible.

GEN FpV_inv(GEN x, GEN m) x being a vector of t_INTs, return the vector of inverses of the x[i] mod m. The routine uses Montgomery's trick, and involves a single inversion mod m, plus 3(N-1) multiplications for N entries. The routine is not stack-clean: 2N integers mod m are left on stack, besides the N in the result.

GEN Fp_div(GEN a, GEN b, GEN m) returns the quotient of a by b modulo m (smallest non-negative residue). Raise an error if b is not invertible.

int invmod(GEN a, GEN m, GEN *g), return 1 if a modulo m is invertible, else return 0 and set g = gcd(a,m).

GEN Fp_log(GEN a, GEN g, GEN ord, GEN p) Let g such that g^ord = 1 (mod p). Return an integer e such that a^e = g (mod p). If e does not exists, the result is currently undefined.

GEN Fp_order(GEN a, GEN ord, GEN p) returns the order of the t_Fp a. If ord is non-NULL, it is assumed that ord is a multiple of the order of a, either as a t_INT or a factorization matrix.

GEN Fp_sqrt(GEN x, GEN p) returns a square root of x modulo p (the smallest non-negative residue), where x, p are t_INTs, and p is assumed to be prime. Return NULL if x is not a quadratic residue modulo p.

GEN Fp_sqrtn(GEN x, GEN n, GEN p, GEN *zn) returns an n-th root of x modulo p (smallest non-negative residue), where x, n, p are t_INTs, and p is assumed to be prime. Return NULL if x is not an n-th power residue. Otherwise, if zn is non-NULL set it to a primitive n-th root of 1.

GEN Zn_sqrt(GEN x, GEN n) returns one of the square roots of x modulo n (possibly not prime), where x is a t_INT and n is either a t_INT or is given by its factorisation matrix. Return NULL if no such square root exist.

long kross(long x, long y) returns the Kronecker symbol (x|y), i.e.-1, 0 or 1. If y is an odd prime, this is the Legendre symbol. (Contrary to krouu, kross also supports y = 0)

long krouu(ulong x, ulong y) returns the Kronecker symbol (x|y), i.e. -1, 0 or 1. Assumes y is non-zero. If y is an odd prime, this is the Legendre symbol.

long krois(GEN x, long y) returns the Kronecker symbol (x|y) of t_INT x and long y. As kross otherwise.

long krosi(long x, GEN y) returns the Kronecker symbol (x|y) of long x and t_INT y. As kross otherwise.

long kronecker(GEN x, GEN y) returns the Kronecker symbol (x|y) of t_INTs x and y. As kross otherwise.

GEN pgener_Fp(GEN p) returns a primitive root modulo p, assuming p is prime.

GEN pgener_Zp(GEN p) returns a primitive root modulo p^k, k > 1, assuming p is an odd prime.

long Zp_issquare(GEN x, GEN p) returns 1 if the t_INT x is a p-adic square, 0 otherwise.

long Zn_issquare(GEN x, GEN n) returns 1 if t_INT x is a square modulo n (possibly not prime), where n is either a t_INT or is given by its factorisation matrix. Return 0 otherwise.

GEN pgener_Fp_local(GEN p, GEN L), L being a vector of primes dividing p - 1, returns an integer x which is a generator of the \ell-Sylow of F_p^* for every \ell in L. In other words, x^{(p-1)/\ell} != 1 for all such \ell. In particular, returns pgener_Fp(p) if L contains all primes dividing p - 1. It is not necessary, and in fact slightly inefficient, to include \ell = 2, since 2 is treated separately in any case, i.e. the generator obtained is never a square.

Extending functions to vector inputs

The following functions apply f to the given arguments, recursively if they are of vector / matrix type:

GEN map_proto_G(GEN (*f)(GEN), GEN x) For instance, if x is a t_VEC, return a t_VEC whose components are the f(x[i]).

GEN map_proto_lG(long (*f)(GEN), GEN x) As above, applying the function stoi( f() ).

GEN map_proto_GG(GEN (*f)(GEN,GEN), GEN x, GEN n) If x and n are both vector types, expand x first, then n.

GEN map_proto_lGG(long (*f)(GEN,GEN), GEN x, GEN n)

GEN map_proto_GL(GEN (*f)(GEN,long), GEN x, long y)

GEN map_proto_lGL(long (*f)(GEN,long), GEN x, long y)

In the last function, f implements an associative binary operator, which we extend naturally to an n-ary operator f_n for any n : by convention, f_0() = 1, f_1(x) = x, and

   f_n(x_1,...,x_n) = f( f_{n-1}(x_1,...,x_{n-1}), x_n)),

for n >= 2.

GEN gassoc_proto(GEN (*f)(GEN,GEN),GEN x, GEN y) If y is not NULL, return f(x,y). Otherwise, x must be of vector type, and we return the result of f applied to its components, computed using a divide-and-conquer algorithm. More precisely, return

  f( f(x_1,NULL), f(x_2,NULL) ),

where x_1, x_2 are the two halves of x.

Miscellaneous arithmetic functions

ulong eulerphiu(ulong n), Euler's totient function of n.

GEN divisorsu(ulong n), returns the divisors of n in a t_VECSMALL, sorted by increasing order.

GEN hilbertii(GEN x, GEN y, GEN p), returns the Hilbert symbol (x,y) at the prime p (NULL for the place at infinity); x and y are t_INTs.

GEN sumdedekind(GEN h, GEN k) returns the Dedekind sum associated to the t_INT h and k, k > 0.

GEN sumdedekind_coprime(GEN h, GEN k) as sumdedekind, except that h and k are assumed to be coprime t_INTs.

\newpage


NAME

libPARI - Level 2 kernel

These functions deal with modular arithmetic, linear algebra and polynomials where assumptions can be made about the types of the coefficients.


Naming scheme

A function name is built in the following way: A_1_..._A_nfun for an operation fun with n arguments of class A_1,..., A_n. A class name is given by a base ring followed by a number of code letters. Base rings are among

Fl: Z/lZ where l < 2^{BIL} is not necessarily prime. Implemented using ulongs

Fp: Z/pZ where p is a t_INT, not necessarily prime. Implemented as t_INTs z, preferably satisfying 0 <= z < p. More precisely, any t_INT can be used as an Fp, but reduced inputs are treated more efficiently. Outputs from Fpxxx routines are reduced.

Fq: Z[X]/(p,T(X)), p a t_INT, T a t_POL with Fp coefficients or NULL (in which case no reduction modulo T is performed). Implemented as t_POLs z with Fp coefficients, deg (z) < deg T, although z a t_INT is allowed for elements in the prime field.

Z: the integers Z, implemented as t_INTs.

z: the integers Z, implemented using (signed) longs.

Q: the rational numbers Q, implemented as t_INTs and t_FRACs.

Rg: a commutative ring, whose elements can be gadd-ed, gmul-ed, etc.

Possible letters are:

X: polynomial in X (t_POL in a fixed variable), e.g. FpX means Z/pZ[X]

Y: polynomial in Y != X. This is used to resolve ambiguities. E.g. FpXY means ((Z/pZ)[X])[Y].

V: vector (t_VEC or t_COL), treated as a line vector (independently of the actual type). E.g. ZV means Z^k for some k.

C: vector (t_VEC or t_COL), treated as a column vector (independently of the actual type). The difference with V is purely semantic: if the result is a vector, it will be of type t_COL unless mentioned otherwise. For instance the function ZC_add receives two integral vectors (t_COL or t_VEC, possibly different types) of the same length and returns a t_COL whose entries are the sums of the input coefficients.

M: matrix (t_MAT). E.g. QM means a matrix with rational entries

E: point over an elliptic curve, represented as two-component vectors [x,y], except for the represented by the one-component vector [0]. Not all curve models are supported.

Q: representative (t_POL) of a class in a polynomial quotient ring. E.g. an FpXQ belongs to (Z/pZ)[X]/(T(X)), FpXQV means a vector of such elements, etc.

x, y, m, v, c, q: as their uppercase counterpart, but coefficient arrays are implemented using t_VECSMALLs, which coefficient understood as ulongs.

x and y (and q) are implemented by a t_VECSMALL whose first coefficient is used as a code-word and the following are the coefficients , similarly to a t_POL. This is known as a 'POLSMALL'.

m are implemented by a t_MAT whose components (columns) are t_VECSMALLs. This is know as a 'MATSMALL'.

v and c are regular t_VECSMALLs. Difference between the two is purely semantic.

Omitting the letter means the argument is a scalar in the base ring. Standard functions fun are

add: add

sub: subtract

mul: multiply

sqr: square

div: divide (Euclidean quotient)

rem: Euclidean remainder

divrem: return Euclidean quotient, store remainder in a pointer argument. Three special values of that pointer argument modify the default behavior: NULL (do not store the remainder, used to implement div), ONLY_REM (return the remainder, used to implement rem), ONLY_DIVIDES (return the quotient if the division is exact, and NULL otherwise).

gcd: GCD

extgcd: return GCD, store Bezout coefficients in pointer arguments

pow: exponentiate

eval: evaluation / composition


Modular arithmetic

These routines implement univariate polynomial arithmetic and linear algebra over finite fields, in fact over finite rings of the form (Z/pZ)[X]/(T), where p is not necessarily prime and T belongs to (Z/pZ)[X] is possibly reducible; and finite extensions thereof. All this can be emulated with t_INTMOD and t_POLMOD coefficients and using generic routines, at a considerable loss of efficiency. Also, specialized routines are available that have no obvious generic equivalent.

FpC / FpV, FpM, FqM

A ZV (resp. a ZM) is a t_VEC or t_COL (resp. t_MAT) with t_INT coefficients. An FpV or FpM, with respect to a given t_INT p, is the same with Fp coordinates; operations are understood over Z/pZ. An FqM is a matrix with Fq coefficients (with respect to given T, p), not necessarily reduced (i.e arbitrary t_INTs and ZXs in the same variable as T).

Conversions

int Rg_is_Fp(GEN z, GEN *p), checks if z can be mapped to Z/pZ: a t_INT or a t_INTMOD whose modulus is equal to *p, (if *p not NULL), in that case return 1, else 0. If a modulus is found it is put in *p, else *p is left unchanged.

int RgV_is_FpV(GEN z, GEN *p), z a t_VEC (resp. t_COL), checks if it can be mapped to a FpV (resp. FpC), by checking Rg_is_Fp coefficientwise.

int RgM_is_FpM(GEN z, GEN *p), z a t_MAT, checks if it can be mapped to a FpM, by checking RgV_is_FpV columnwise.

GEN Rg_to_Fp(GEN z, GEN p), z a scalar which can be mapped to Z/pZ: a t_INT, a t_INTMOD whose modulus is divisible by p, a t_FRAC whose denominator is coprime to p, or a t_PADIC with underlying prime \ell satisfying p = \ell^n for some n (less than the accuracy of the input). Returns lift(z * Mod(1,p)), normalized.

GEN padic_to_Fp(GEN x, GEN p) special case of Rg_to_Fp, for a x a t_PADIC.

GEN RgV_to_FpV(GEN z, GEN p), z a t_VEC or t_COL, returns the FpV (as a t_VEC) obtained by applying Rg_to_Fp coefficientwise.

GEN RgC_to_FpC(GEN z, GEN p), z a t_VEC or t_COL, returns the FpC (as a t_COL) obtained by applying Rg_to_Fp coefficientwise.

GEN RgM_to_FpM(GEN z, GEN p), z a t_MAT, returns the FpM obtained by applying RgC_to_FpC columnwise.

The functions above are generally used as follow:

  GEN add(GEN x, GEN y)
  {
    GEN p = NULL;
    if (Rg_is_Fp(x, &p) && Rg_is_Fp(y, &p) && p)
    {
      x = Rg_to_Fp(x, p); y = Rg_to_Fp(y, p);
      z = Fp_add(x, y, p);
      return Fp_to_mod(z);
    }
    else return gadd(x, y);
  }

GEN FpC_red(GEN z, GEN p), z a ZC. Returns lift(Col(z) * Mod(1,p)), hence a t_COL.

GEN FpV_red(GEN z, GEN p), z a ZV. Returns lift(Vec(z) * Mod(1,p)), hence a t_VEC

GEN FpM_red(GEN z, GEN p), z a ZM. Returns lift(z * Mod(1,p)), which is an FpM.

Basic operations

GEN FpC_center(GEN z, GEN p, GEN pov2) returns a t_COL whose entries are the Fp_center of the gel(z,i).

GEN FpM_center(GEN z, GEN p, GEN pov2) returns a matrix whose entries are the Fp_center of the gcoeff(z,i,j).

GEN FpC_add(GEN x, GEN y, GEN p) adds the ZC x and y and reduce modulo p to obtain an FpC.

GEN FpV_add(GEN x, GEN y, GEN p) same as FpC_add, returning and FpV.

GEN FpC_sub(GEN x, GEN y, GEN p) subtracts the ZC y to the ZC x and reduce modulo p to obtain an FpC.

GEN FpV_sub(GEN x, GEN y, GEN p) same as FpC_sub, returning and FpV.

GEN FpC_Fp_mul(GEN x, GEN y, GEN p) multiplies the ZC x (seen as a column vector) by the t_INT y and reduce modulo p to obtain an FpC.

GEN FpC_FpV_mul(GEN x, GEN y, GEN p) multiplies the ZC x (seen as a column vector) by the ZV y (seen as a row vector, assumed to have compatible dimensions), and reduce modulo p to obtain an FpM.

GEN FpM_mul(GEN x, GEN y, GEN p) multiplies the two ZMx and y (assumed to have compatible dimensions), and reduce modulo p to obtain an FpM.

GEN FpM_FpC_mul(GEN x, GEN y, GEN p) multiplies the ZM x by the ZC y (seen as a column vector, assumed to have compatible dimensions), and reduce modulo p to obtain an FpC.

GEN FpM_FpC_mul_FpX(GEN x, GEN y, GEN p, long v) is a memory-clean version of

    GEN tmp = FpM_FpC_mul(x,y,p);
    return RgV_to_RgX(tmp, v);

GEN FpV_FpC_mul(GEN x, GEN y, GEN p) multiplies the ZV x (seen as a row vector) by the ZC y (seen as a column vector, assumed to have compatible dimensions), and reduce modulo p to obtain an Fp.

GEN FpV_dotproduct(GEN x,GEN y,GEN p) scalar product of x and y (assumed to have the same length).

GEN FpV_dotsquare(GEN x, GEN p) scalar product of x with itself. has t_INT entries.

Fp-linear algebra The implementations are not

asymptotically efficient (O(n^3) standard algorithms).

GEN FpM_deplin(GEN x, GEN p) returns a non-trivial kernel vector, or NULL if none exist.

GEN FpM_det(GEN x, GEN p) as det

GEN FpM_gauss(GEN a, GEN b, GEN p) as gauss

GEN FpM_image(GEN x, GEN p) as image

GEN FpM_intersect(GEN x, GEN y, GEN p) as intersect

GEN FpM_inv(GEN x, GEN p) returns the inverse of x, or NULL if x is not invertible.

GEN FpM_invimage(GEN m, GEN v, GEN p) as inverseimage

GEN FpM_ker(GEN x, GEN p) as ker

long FpM_rank(GEN x, GEN p) as rank

GEN FpM_indexrank(GEN x, GEN p) as indexrank but returns a t_VECSMALL

GEN FpM_suppl(GEN x, GEN p) as suppl

Fq-linear algebra

GEN FqM_gauss(GEN a, GEN b, GEN T, GEN p) as gauss

GEN FqM_ker(GEN x, GEN T, GEN p) as ker

GEN FqM_suppl(GEN x, GEN T, GEN p) as suppl

Flc / Flv, Flm

See FpV, FpM operations.

GEN Flv_copy(GEN x) returns a copy of x.

GEN Flm_copy(GEN x) returns a copy of x.

GEN Flm_Flc_mul(GEN x, GEN y, ulong p) multiplies x and y (assumed to have compatible dimensions).

GEN Flm_Fl_mul(GEN x, ulong y, ulong p) multiplies the Flm x by y.

void Flm_Fl_mul_inplace(GEN x, ulong y, ulong p) replaces the Flm x by x*y.

GEN Flc_Fl_mul(GEN x, ulong y, ulong p) multiplies the Flv x by y.

void Flc_Fl_mul_inplace(GEN x, ulong y, ulong p) replaces the Flc x by x*y.

GEN Flc_Fl_div(GEN x, ulong y, ulong p) divides the Flv x by y.

void Flc_Fl_div_inplace(GEN x, ulong y, ulong p) replaces the Flv x by x/y.

GEN Flv_add(GEN x, GEN y, ulong p) adds two Flv.

void Flv_add_inplace(GEN x, GEN y, ulong p) replaces x by x+y.

GEN Flv_sub(GEN x, GEN y, ulong p) subtracts y to x.

void Flv_sub_inplace(GEN x, GEN y, ulong p) replaces x by x-y.

ulong Flv_dotproduct(GEN x, GEN y, ulong p) returns the scalar product of x and y

ulong Flv_sum(GEN x, ulong p) returns the sums of the components of x.

GEN zero_Flm(long m, long n) creates a Flm with m x n components set to 0. Note that the result allocates a single column, so modifying an entry in one column modifies it in all columns.

GEN zero_Flm_copy(long m, long n) creates a Flm with m x n components set to 0.

GEN zero_Flv(long n) creates a Flv with n components set to 0.

GEN row_Flm(GEN A, long x0) return A[i,], the i-th row of the Flm (or zm) A.

GEN Flm_mul(GEN x, GEN y, ulong p) multiplies x and y (assumed to have compatible dimensions).

GEN Flm_charpoly(GEN x, ulong p) return the characteristic polynomial of the square Flm x, as a Flx.

GEN Flm_deplin(GEN x, ulong p)

ulong Flm_det(GEN x, ulong p)

ulong Flm_det_sp(GEN x, ulong p), as Flm_det, in place (destroys x).

GEN Flm_gauss(GEN a, GEN b, ulong p)

GEN Flm_indexrank(GEN x, ulong p)

GEN Flm_inv(GEN x, ulong p)

GEN Flm_ker(GEN x, ulong p)

GEN Flm_ker_sp(GEN x, ulong p, long deplin), as Flm_ker (if deplin = 0) or Flm_deplin (if deplin = 1) , in place (destroys x).

long Flm_rank(GEN x, ulong p)

GEN Flm_image(GEN x, ulong p)

GEN Flm_transpose(GEN x)

GEN Flm_hess(GEN x, ulong p) upper Hessenberg form of x over F_p.

F2c / F2v, F2m

An F2v v is a t_VECSMALL representing a vector over F_2. Specifically z[0] is the usual codeword, z[1] is the number of components of v and the coefficients are given by the bits of remaining words by increasing indices.

ulong F2v_coeff(GEN x, long i) returns the coefficient i >= 1 of x.

void F2v_clear(GEN x, long i) sets the coefficient i >= 1 of x to 0.

void F2v_flip(GEN x, long i) adds 1 to the coefficient i >= 1 of x.

void F2v_set(GEN x, long i) sets the coefficient i >= 1 of x to 1.

ulong F2m_coeff(GEN x, long i, long j) returns the coefficient (i,j) of x.

void F2m_clear(GEN x, long i, long j) sets the coefficient (i,j) of x to 0.

void F2m_flip(GEN x, long i, long j) adds 1 to the coefficient (i,j) of x.

void F2m_set(GEN x, long i, long j) sets the coefficient (i,j) of x to 1.

void F2m_copy(GEN x) returns a copy of x.

GEN zero_F2v(long n) creates a F2v with n components set to 0.

GEN zero_F2m(long m, long n) creates a Flm with m x n components set to 0. Note that the result allocates a single column, so modifying an entry in one column modifies it in all columns.

GEN zero_F2m_copy(long m, long n) creates a F2m with m x n components set to 0.

GEN F2c_to_ZC(GEN x)

GEN ZV_to_F2v(GEN x)

GEN F2m_to_ZM(GEN x)

GEN Flv_to_F2v(GEN x)

GEN Flm_to_F2m(GEN x)

GEN ZM_to_F2m(GEN x)

void F2v_add_inplace(GEN x, GEN y) replaces x by x+y. It is allowed for y to be shorter than x.

ulong F2m_det(GEN x)

ulong F2m_det_sp(GEN x), as F2m_det, in place (destroys x).

GEN F2m_deplin(GEN x)

GEN F2m_ker(GEN x)

GEN F2m_ker_sp(GEN x, long deplin), as F2m_ker (if deplin = 0) or F2m_deplin (if deplin = 1) , in place (destroys x).

FlxqV, FlxqM

See FqV, FqM operations.

GEN FlxqM_ker(GEN x, GEN T, ulong p)

FpX

Let p an understood t_INT, to be given in the function arguments; in practice p is not assumed to be prime, but be wary. Recall than an Fp object is a t_INT, preferrably belonging to [0, p-1]; an FpX is a t_POL in a fixed variable whose coefficients are Fp objects. Unless mentioned otherwise, all outputs in this section are FpXs. All operations are understood to take place in (Z/pZ)[X].

Conversions In what follows p is always a t_INT,

not necessarily prime.

int RgX_is_FpX(GEN z, GEN *p), z a t_POL, checks if it can be mapped to a FpX, by checking Rg_is_Fp coefficientwise.

GEN RgX_to_FpX(GEN z, GEN p), z a t_POL, returns the FpX obtained by applying Rg_to_Fp coefficientwise.

GEN FpX_red(GEN z, GEN p), z a ZX, returns lift(z * Mod(1,p)), normalized.

GEN FpXV_red(GEN z, GEN p), z a t_VEC of ZX. Applies FpX_red componentwise and returns the result (and we obtain a vector of FpXs).

Basic operations In what follows p is always a t_INT,

not necessarily prime.

Now, except for p, the operands and outputs are all FpX objects. Results are undefined on other inputs.

GEN FpX_add(GEN x,GEN y, GEN p) adds x and y.

GEN FpX_neg(GEN x,GEN p) returns -x, the components are between 0 and p if this is the case for the components of x.

GEN FpX_renormalize(GEN x, long l), as normalizepol, where l = lg(x), in place.

GEN FpX_sub(GEN x,GEN y,GEN p) returns x - y.

GEN FpX_mul(GEN x,GEN y,GEN p) returns x y.

GEN FpX_sqr(GEN x,GEN p) returns x^2.

GEN FpX_divrem(GEN x, GEN y, GEN p, GEN *pr) returns the quotient of x by y, and sets pr to the remainder.

GEN FpX_div(GEN x, GEN y, GEN p) returns the quotient of x by y.

GEN FpX_div_by_X_x(GEN A, GEN a, GEN p, GEN *r) returns the quotient of the FpX A by (X - a), and sets r to the remainder A(a).

GEN FpX_rem(GEN x, GEN y, GEN p) returns the remainder x mod y.

long FpX_valrem(GEN x, GEN t, GEN p, GEN *r) The arguments x and e being non-zero FpX returns the highest exponent e such that t^{e} divides x. The quotient x/t^{e} is returned in *r. In particular, if t is irreducible, this returns the valuation at t of x, and *r is the prime-to-t part of x.

GEN FpX_deriv(GEN x, GEN p) returns the derivative of x. This function is not memory-clean, but nevertheless suitable for gerepileupto.

GEN FpX_gcd(GEN x, GEN y, GEN p) returns a (not necessarily monic) greatest common divisor of x and y.

GEN FpX_halfgcd(GEN x, GEN y, GEN p) returns a two-by-two FpXM M with determinant +- 1 such that the image (a,b) of (x,y) by M has the property that deg a >= ( deg x )/(2) > deg b.

GEN FpX_extgcd(GEN x, GEN y, GEN p, GEN *u, GEN *v) returns d = {GCD}(x,y) (not necessarily monic), and sets *u, *v to the Bezout coefficients such that *ux + *vy = d. If *u is set to NULL, it is not computed which is a bit faster. This is useful when computing the inverse of y modulo x.

GEN FpX_center(GEN z, GEN p, GEN pov2) returns the polynomial whose coefficient belong to the symmetric residue system. Assumes the coefficients already belong to [0,p-1]) and pov2 is shifti(p,-1).

Mixed operations

The following functions implement arithmetic operations between FpX and Fp operands, the result being of type FpX. The integer p need not be prime.

GEN FpX_Fp_add(GEN y, GEN x, GEN p) add the Fp x to the FpX y.

GEN FpX_Fp_add_shallow(GEN y, GEN x, GEN p) add the Fp x to the FpX y, using a shallow copy (result not suitable for gerepileupto)

GEN FpX_Fp_sub(GEN y, GEN x, GEN p) subtract the Fp x from the FpX y.

GEN FpX_Fp_sub_shallow(GEN y, GEN x, GEN p) subtract the Fp x from the FpX y, using a shallow copy (result not suitable for gerepileupto)

GEN Fp_FpX_sub(GEN x,GEN y,GEN p) returns x - y, where x is a t_INT and y an FpX.

GEN FpX_Fp_mul(GEN x, GEN y, GEN p) multiplies the FpX x by the Fp y.

GEN FpX_Fp_mul_to_monic(GEN y,GEN x,GEN p) returns y*x assuming the result is monic of the same degree as y (in particular x != 0).

Miscellaneous operations

GEN FpX_normalize(GEN z, GEN p) divides the FpX z by its leading coefficient. If the latter is 1, z itself is returned, not a copy. If not, the inverse remains uncollected on the stack.

GEN FpX_invMontgomery(GEN T, GEN p), returns the Montgomery inverse M of T defined by M(x)\*x^n\*T(1/x) = 1 (mod x^{n-1}) where n is the degree of T.

GEN FpX_rem_Montgomery(GEN x, GEN mg, GEN T, GEN p), returns x modulo T, assuming that deg x <= 2\*( deg {T} - 1) where mg is the Montgomery inverse of T.

GEN FpX_rescale(GEN P, GEN h, GEN p) returns h^{ deg (P)} P(x/h). P is an FpX and h is a non-zero Fp (the routine would work with any non-zero t_INT but is not efficient in this case).

GEN FpX_eval(GEN x, GEN y, GEN p) evaluates the FpX x at the Fp y. The result is an Fp.

GEN FpXY_eval(GEN Q, GEN y, GEN x, GEN p) Q an FpXY, i.e. a t_POL with Fp or FpX coefficients representing an element of F_p[X][Y]. Returns the Fp Q(x,y).

GEN FpXY_evalx(GEN Q, GEN x, GEN p) Q an FpXY, i.e. a t_POL with Fp or FpX coefficients representing an element of F_p[X][Y]. Returns the FpY Q(x,Y).

GEN FpXY_evaly(GEN Q, GEN y, GEN p, long vy) Q an FpXY, i.e. a t_POL with Fp or FpX coefficients representing an element of F_p[X][Y]. Returns the FpX Q(X,y).

GEN FpXV_FpC_mul(GEN V, GEN W, GEN p) multiplies a non-empty line vector ofFpX by a column vector of Fp of compatible dimensions. The result is an FpX.

GEN FpXV_prod(GEN V, GEN p), V being a vector of FpX, returns their product.

GEN FpV_roots_to_pol(GEN V, GEN p, long v), V being a vector of INTs, returns the monic FpX prod_i (pol_x[v] - V[i]).

GEN FpX_chinese_coprime(GEN x,GEN y, GEN Tx,GEN Ty, GEN Tz, GEN p): returns an FpX, congruent to x mod Tx and to y mod Ty. Assumes Tx and Ty are coprime, and Tz = Tx * Ty or NULL (in which case it is computed within).

GEN FpV_polint(GEN x, GEN y, GEN p) returns the FpX interpolation polynomial with value y[i] at x[i]. Assumes lengths are the same, components are t_INTs, and the x[i] are distinct modulo p.

int FpX_is_squarefree(GEN f, GEN p) returns 1 if the FpX f is squarefree, 0 otherwise.

int FpX_is_irred(GEN f, GEN p) returns 1 if the FpX f is irreducible, 0 otherwise. Assumes that p is prime. If f has few factors, FpX_nbfact(f,p) == 1 is much faster.

int FpX_is_totally_split(GEN f, GEN p) returns 1 if the FpX f splits into a product of distinct linear factors, 0 otherwise. Assumes that p is prime.

GEN FpX_factor(GEN f, GEN p), factors the FpX f. Assumes that p is prime. The returned value v is a t_VEC with two components: v[1] is a vector of distinct irreducible (FpX) factors, and v[2] is a t_VECSMALL of corresponding exponents. The order of the factors is deterministic (the computation is not).

long FpX_nbfact(GEN f, GEN p), assuming the FpX f is squarefree, returns the number of its irreducible factors. Assumes that p is prime.

long FpX_degfact(GEN f, GEN p), as FpX_factor, but the degrees of the irreducible factors are returned instead of the factors themselves (as a t_VECSMALL). Assumes that p is prime.

long FpX_nbroots(GEN f, GEN p) returns the number of distinct roots in Z/pZ of the FpX f. Assumes that p is prime.

GEN FpX_oneroot(GEN f, GEN p) returns one root in Z/pZ of the FpX f. Return NULL if no root exists. Assumes that p is prime.

GEN FpX_roots(GEN f, GEN p) returns the roots in Z/pZ of the FpX f (without multiplicity, as a vector of Fps). Assumes that p is prime.

GEN random_FpX(long d, long v, GEN p) returns a random FpX in variable v, of degree less than d.

GEN FpX_resultant(GEN x, GEN y, GEN p) returns the resultant of x and y, both FpX. The result is a t_INT belonging to [0,p-1].

GEN FpX_FpXY_resultant(GEN a, GEN b, GEN p), a a t_POL of t_INTs (say in variable X), b a t_POL (say in variable X) whose coefficients are either t_POLs in Z[Y] or t_INTs. Returns {Res}_X(a, b) in F_p[Y] as an FpY. The function assumes that X has lower priority than Y.

FpXQ, Fq

Let p a t_INT and T an FpX for p, both to be given in the function arguments; an FpXQ object is an FpX whose degree is strictly less than the degree of T. An Fq is either an FpXQ or an Fp. Both represent a class in (Z/pZ)[X] / (T), in which all operations below take place. In addition, Fq routines also allow T = NULL, in which case no reduction mod T is performed on the result.

For efficiency, the routines in this section may leave small unused objects behind on the stack (their output is still suitable for gerepileupto). Besides T and p, arguments are either FpXQ or Fq depending on the function name. (All Fq routines accept FpXQs by definition, not the other way round.)

GEN Rg_is_FpXQ(GEN z, GEN *T, GEN *p), checks if z is a GEN which can be mapped to F_p[X]/(T): anything for which Rg_is_Fp return 1, a t_POL for which RgX_to_FpX return 1, a t_POLMOD whose modulus is equal to *T if *T is not NULL (once mapped to a FpX). If an integer modulus is found it is put in *p, else *p is left unchanged. If a polynomial modulus is found it is put in *T, else *T is left unchanged.

int RgX_is_FpXQX(GEN z, GEN *T, GEN *p), z a t_POL, checks if it can be mapped to a FpXQX, by checking Rg_is_FpXQ coefficientwise.

GEN Rg_to_FpXQ(GEN z, GEN T, GEN p), z a GEN which can be mapped to F_p[X]/(T): anything Rg_to_Fp can be applied to, a t_POL to which RgX_to_FpX can be applied to, a t_POLMOD whose modulus is divisible by T (once mapped to a FpX), a suitable t_RFRAC. Returns z as an FpXQ, normalized.

GEN RgX_to_FpXQX(GEN z, GEN T, GEN p), z a t_POL, returns the FpXQ obtained by applying Rg_to_FpXQ coefficientwise.

GEN RgX_to_FqX(GEN z, GEN T, GEN p): let z be a t_POL; returns the FpXQ obtained by applying Rg_to_FpXQ coefficientwise and simplifying scalars to t_INTs.

GEN Fq_red(GEN x, GEN T, GEN p), x a ZX or t_INT, reduce it to an Fq (T = NULL is allowed iff x is a t_INT).

GEN FqX_red(GEN x, GEN T, GEN p), x a t_POL whose coefficients are ZXs or t_INTs, reduce them to Fqs. (If T = NULL, as FpXX_red(x, p).)

GEN FqV_red(GEN x, GEN T, GEN p), x a vector of ZXs or t_INTs, reduce them to Fqs. (If T = NULL, only reduce components mod p to FpXs or Fps.)

GEN FpXQ_red(GEN x, GEN T,GEN p) x a t_POL whose coefficients are t_INTs, reduce them to FpXQs.

GEN FpXQ_add(GEN x, GEN y, GEN T,GEN p)

GEN FpXQ_sub(GEN x, GEN y, GEN T,GEN p)

GEN FpXQ_mul(GEN x, GEN y, GEN T,GEN p)

GEN FpXQ_sqr(GEN x, GEN T, GEN p)

GEN FpXQ_div(GEN x, GEN y, GEN T,GEN p)

GEN FpXQ_inv(GEN x, GEN T, GEN p) computes the inverse of x

GEN FpXQ_invsafe(GEN x,GEN T,GEN p), as FpXQ_inv, returning NULL if x is not invertible.

GEN FpXQX_renormalize(GEN x, long lx)

GEN FpXQ_pow(GEN x, GEN n, GEN T, GEN p) computes x^n.

GEN FpXQ_log(GEN a, GEN g, GEN ord, GEN T, GEN p) Let g be of order ord in the finite field F_p[X]/(T). Return e such that a^e = g. If e does not exists, the result is currently undefined. Assumes that T is irreducible mod p.

GEN Fp_FpXQ_log(GEN a, GEN g, GEN ord, GEN T, GEN p) As FpXQ_log, a being a Fp.

int FpXQ_issquare(GEN x, GEN T, GEN p) returns 1 if x is a square and 0 otherwise. Assumes that T is irreducible mod p.

GEN FpXQ_order(GEN a, GEN ord, GEN T, GEN p) returns the order of the t_FpXQ a. If o is non-NULL, it is assumed that o is a multiple of the order of a, either as a t_INT or a factorization matrix. Assumes that T is irreducible mod p.

GEN FpXQ_sqrtn(GEN x, GEN n, GEN T, GEN p, GEN *zn) returns an n-th root of x. Return NULL if x is not an n-th power residue. Otherwise, if zn is non-NULL set it to a primitive n-th root of the unity. Assumes that T is irreducible mod p.

GEN Fq_add(GEN x, GEN y, GEN T/*unused*/, GEN p)

GEN Fq_sub(GEN x, GEN y, GEN T/*unused*/, GEN p)

GEN Fq_mul(GEN x, GEN y, GEN T, GEN p)

GEN Fq_Fp_mul(GEN x, GEN y, GEN T, GEN p) multiplies the Fq x by the t_INT y.

GEN Fq_sqr(GEN x, GEN T, GEN p)

GEN Fq_neg(GEN x, GEN T, GEN p)

GEN Fq_neg_inv(GEN x, GEN T, GEN p) computes -x^{-1}

GEN Fq_inv(GEN x, GEN pol, GEN p) computes x^{-1}, raising an error if x is not invertible.

GEN Fq_invsafe(GEN x, GEN pol, GEN p) as Fq_inv, but returns NULL if x is not invertible.

GEN FqV_inv(GEN x, GEN T, GEN p) x being a vector of t_Fqs, return the vector of inverses of the x[i]. The routine uses Montgomery's trick, and involves a single inversion, plus 3(N-1) multiplications for N entries. The routine is not stack-clean: 2N FpXQ are left on stack, besides the N in the result.

GEN Fq_pow(GEN x, GEN n, GEN pol, GEN p) returns x^n.

GEN Fq_sqrt(GEN x, GEN T, GEN p) returns a square root of x. Return NULL if x is not a square.

GEN FpXQ_charpoly(GEN x, GEN T, GEN p) returns the characteristic polynomial of x

GEN FpXQ_minpoly(GEN x, GEN T, GEN p) returns the minimal polynomial of x

GEN FpXQ_norm(GEN x, GEN T, GEN p) returns the norm of x

GEN FpXQ_trace(GEN x, GEN T, GEN p) returns the trace of x

GEN FpXQ_conjvec(GEN x, GEN T, GEN p) returns the vector of conjugates [x,x^p,x^{p^2},...,x^{p^{n-1}}] where n is the degree of T.

GEN gener_FpXQ(GEN T, GEN p, GEN *po) returns a primitive root modulo (T,p). T is an FpX assumed to be irreducible modulo the prime p. If po is not NULL it is set to [o,fa], where o is the order of the multiplicative group of the finite field, and fa is its factorization.

GEN FpXQ_powers(GEN x, long n, GEN T, GEN p) returns [x^0, ..., x^n] as a t_VEC of FpXQs.

GEN FpXQ_matrix_pow(GEN x, long m, long n, GEN T, GEN p), as FpXQ_powers(x, n-1, T, p), but returns the powers as a an m x n matrix. Usually, we have m = n = deg T.

GEN FpX_FpXQ_eval(GEN f,GEN x,GEN T,GEN p) returns f(x).

GEN FpX_FpXQV_eval(GEN f,GEN V,GEN T,GEN p) returns f(x), assuming that V was computed by FpXQ_powers(x, n, T, p).

FpXX

Contrary to what the name implies, an FpXX is a t_POL whose coefficients are either t_INTs or t_FpXs. This reduces memory overhead at the expense of consistency.

GEN FpXX_red(GEN z, GEN p), z a t_POL whose coefficients are either ZXs or t_INTs. Returns the t_POL equal to z with all components reduced modulo p.

GEN FpXX_renormalize(GEN x, long l), as normalizepol, where l = lg(x), in place.

GEN FpXX_add(GEN x, GEN y, GEN p) adds x and y.

GEN FpXX_sub(GEN x, GEN y, GEN p) returns x-y.

GEN FpXX_Fp_mul(GEN x, GEN y, GEN p) multiplies the FpXX x by the Fp y.

FpXQX, FqX

Contrary to what the name implies, an FpXQX is a t_POL whose coefficients are Fqs. So the only difference between FqX and FpXQX routines is that T = NULL is not allowed in the latter. (It was thought more useful to allow t_INT components than to enforce strict consistency, which would not imply any efficiency gain.)

Basic operations

GEN FqX_add(GEN x,GEN y,GEN T,GEN p)

GEN FqX_sub(GEN x,GEN y,GEN T,GEN p)

GEN FqX_mul(GEN x, GEN y, GEN T, GEN p)

GEN FqX_Fq_mul(GEN x, GEN y, GEN T, GEN p) multiplies the FqX x by the Fq y.

GEN FqX_Fp_mul(GEN x, GEN y, GEN T, GEN p) multiplies the FqX x by the t_INT y.

GEN FqX_Fq_mul_to_monic(GEN x, GEN y, GEN T, GEN p) returns x*y assuming the result is monic of the same degree as x (in particular y != 0).

GEN FqX_normalize(GEN z, GEN T, GEN p) divides the FqX z by its leading term.

GEN FqX_sqr(GEN x, GEN T, GEN p)

GEN FqX_divrem(GEN x, GEN y, GEN T, GEN p, GEN *z)

GEN FqX_div(GEN x, GEN y, GEN T, GEN p)

GEN FqX_rem(GEN x, GEN y, GEN T, GEN p)

GEN FqX_deriv(GEN x, GEN T, GEN p) returns the derivative of x. (This function is suitable for gerepilupto but not memory-clean.)

GEN FqX_translate(GEN P, GEN c, GEN T, GEN p) let c be an Fq defined modulo (p, T), and let P be an FqX; returns the translated FqX of P(X+c).

GEN FqX_gcd(GEN P, GEN Q, GEN T, GEN p) returns a (not necessarily monic) greatest common divisor of x and y.

GEN FqX_extgcd(GEN x, GEN y, GEN T, GEN p, GEN *ptu, GEN *ptv) returns d = {GCD}(x,y) (not necessarily monic), and sets *u, *v to the Bezout coefficients such that *ux + *vy = d.

GEN FqX_eval(GEN x, GEN y, GEN T, GEN p) evaluates the FqX x at the Fq y. The result is an Fq.

GEN FpXQX_red(GEN z, GEN T, GEN p) z a t_POL whose coefficients are ZXs or t_INTs, reduce them to FpXQs.

GEN FpXQX_mul(GEN x, GEN y, GEN T, GEN p)

GEN FpXQX_FpXQ_mul(GEN x, GEN y, GEN T, GEN p)

GEN FpXQX_sqr(GEN x, GEN T, GEN p)

GEN FpXQX_divrem(GEN x, GEN y, GEN T, GEN p, GEN *pr)

GEN FpXQX_div(GEN x, GEN y, GEN T, GEN p)

GEN FpXQX_rem(GEN x, GEN y, GEN T, GEN p)

GEN FpXQXV_prod(GEN V, GEN T, GEN p), V being a vector of FpXQX, returns their product.

GEN FpXQX_gcd(GEN x, GEN y, GEN T, GEN p)

GEN FpXQX_extgcd(GEN x, GEN y, GEN T, GEN p, GEN *ptu, GEN *ptv)

GEN FpXQXQ_div(GEN x, GEN y, GEN S, GEN T, GEN p), x, y and S being FpXQXs, returns x*y^{-1} modulo S.

GEN FpXQXQ_inv(GEN x, GEN S, GEN T, GEN p), x and S being FpXQXs, returns x^{-1} modulo S.

GEN FpXQXQ_invsafe(GEN x, GEN S, GEN T,GEN p), as FpXQXQ_inv, returning NULL if x is not invertible.

GEN FpXQXQ_mul(GEN x, GEN y, GEN S, GEN T, GEN p), x, y and S being FpXQXs, returns x\*y modulo S.

GEN FpXQXQ_sqr(GEN x, GEN S, GEN T, GEN p), x and S being FpXQXs, returns x^2 modulo S.

GEN FpXQXQ_pow(GEN x, GEN n, GEN S, GEN T, GEN p), x and S being FpXQXs, returns x^n modulo S.

GEN FqXQ_add(GEN x, GEN y, GEN S, GEN T, GEN p), x, y and S being FqXs, returns x + y modulo S.

GEN FqXQ_sub(GEN x, GEN y, GEN S, GEN T, GEN p), x, y and S being FqXs, returns x - y modulo S.

GEN FqXQ_mul(GEN x, GEN y, GEN S, GEN T, GEN p), x, y and S being FqXs, returns x\*y modulo S.

GEN FqXQ_div(GEN x, GEN y, GEN S, GEN T, GEN p), x and S being FqXs, returns x/y modulo S.

GEN FqXQ_inv(GEN x, GEN S, GEN T, GEN p), x and S being FqXs, returns x^{-1} modulo S.

GEN FqXQ_invsafe(GEN x, GEN S, GEN T, GEN p) , as FqXQ_inv, returning NULL if x is not invertible.

GEN FqXQ_sqr(GEN x, GEN S, GEN T, GEN p), x and S being FqXs, returns x^2 modulo S.

GEN FqXQ_pow(GEN x, GEN n, GEN S, GEN T, GEN p), x and S being FqXs, returns x^n modulo S.

GEN FqV_roots_to_pol(GEN V, GEN T, GEN p, long v), V being a vector of Fqs, returns the monic FqX prod_i (pol_x[v] - V[i]).

GEN FpXYQQ_pow(GEN x, GEN n, GEN S, GEN T, GEN p), x being a FpXY, T being a FpX and S being a FpY, return x^n (mod S,T,p).

Miscellaneous operations

GEN init_Fq(GEN p, long n, long v) returns an irreducible polynomial of degree n > 0 over F_p, in variable v.

int FqX_is_squarefree(GEN P, GEN T, GEN p)

GEN FqX_roots(GEN x, GEN T, GEN p) return the roots of x in F_p[X]/(T). Assumes p is prime and T irreducible in F_p[X].

GEN FqX_factor(GEN x, GEN T, GEN p) same output convention as FpX_factor. Assumes p is prime and T irreducible in F_p[X].

GEN FpX_factorff(GEN P, GEN p, GEN T). Assumes p prime and T irreducible in F_p[X]. Factor the FpX P over the finite field F_p[Y]/(T(Y)). See FpX_factorff_irred if P is known to be irreducible of F_p.

GEN FpX_rootsff(GEN P, GEN p, GEN T). Assumes p prime and T irreducible in F_p[X]. Returns the roots of the FpX P belonging to the finite field F_p[Y]/(T(Y)).

GEN FpX_factorff_irred(GEN P, GEN T, GEN p). Assumes p prime and T irreducible in F_p[X]. Factors the irreducible FpX P over the finite field F_p[Y]/(T(Y)) and returns the vector of irreducible FqXs factors (the exponents, being all equal to 1, are not included).

GEN FpX_ffisom(GEN P, GEN Q, GEN p). Assumes p prime, P, Q are ZXs, both irreducible mod p, and deg (P) | deg Q. Outputs a monomorphism between F_p[X]/(P) and F_p[X]/(Q), as a polynomial R such that Q | P(R) in F_p[X]. If P and Q have the same degree, it is of course an isomorphism.

void FpX_ffintersect(GEN P, GEN Q, long n, GEN p, GEN *SP,GEN *SQ, GEN MA,GEN MB)\hfil

Assumes p is prime, P, Q are ZXs, both irreducible mod p, and n divides both the degree of P and Q. Compute SP and SQ such that the subfield of F_p[X]/(P) generated by SP and the subfield of F_p[X]/(Q) generated by SQ are isomorphic of degree n. The polynomials P and Q do not need to be of the same variable. If MA (resp. MB) is not NULL, it must be the matrix of the Frobenius map in F_p[X]/(P) (resp. F_p[X]/(Q)).

GEN FpXQ_ffisom_inv(GEN S, GEN T, GEN p). Assumes p is prime, T a ZX, which is irreducible modulo p, S a ZX representing an automorphism of F_q := F_p[X]/(T). (S(X) is the image of X by the automorphism.) Returns the inverse automorphism of S, in the same format, i.e. an FpX H such that H(S) = X modulo (T, p).

long FqX_nbfact(GEN u, GEN T, GEN p). Assumes p is prime and T irreducible in F_p[X].

long FqX_nbroots(GEN f, GEN T, GEN p) Assumes p is prime and T irreducible in F_p[X].

Flx

Let p an understood ulong, assumed to be prime, to be given the the function arguments; an Fl is an ulong belonging to [0,p-1], an Flx z is a t_VECSMALL representing a polynomial with small integer coefficients. Specifically z[0] is the usual codeword, z[1] = evalvarn(v) for some variable v, then the coefficients by increasing degree. An FlxX is a t_POL whose coefficients are Flxs.

In the following, an argument called sv is of the form evalvarn(v) for some variable number v.

Basic operations

ulong Rg_to_Fl(GEN z, ulong p), z which can be mapped to Z/pZ: a t_INT, a t_INTMOD whose modulus is divisible by p, a t_FRAC whose denominator is coprime to p, or a t_PADIC with underlying prime \ell satisfying p = \ell^n for some n (less than the accuracy of the input). Returns lift(z * Mod(1,p)), normalized, as an Fl.

ulong padic_to_Fl(GEN x, ulong p) special case of Rg_to_Fl, for a x a t_PADIC.

GEN Flx_red(GEN z, ulong p) converts from zx with non-negative coefficients to Flx (by reducing them mod p).

int Flx_equal1(GEN x) returns 1 (true) if the Flx x is equal to 1, 0 (false) otherwise.

GEN Flx_copy(GEN x) returns a copy of x.

GEN Flx_add(GEN x, GEN y, ulong p)

GEN Flx_Fl_add(GEN y, ulong x, ulong p)

GEN Flx_neg(GEN x, ulong p)

GEN Flx_neg_inplace(GEN x, ulong p), same as Flx_neg, in place (x is destroyed).

GEN Flx_sub(GEN x, GEN y, ulong p)

GEN Flx_mul(GEN x, GEN y, ulong p)

GEN Flx_Fl_mul(GEN y, ulong x, ulong p)

GEN Flx_Fl_mul_to_monic(GEN y, ulong x, ulong p) returns y*x assuming the result is monic of the same degree as y (in particular x != 0).

GEN Flx_sqr(GEN x, ulong p)

GEN Flx_divrem(GEN x, GEN y, ulong p, GEN *pr)

GEN Flx_div(GEN x, GEN y, ulong p)

GEN Flx_rem(GEN x, GEN y, ulong p)

GEN Flx_deriv(GEN z, ulong p)

GEN Flx_gcd(GEN a, GEN b, ulong p) returns a (not necessarily monic) greatest common divisor of x and y.

GEN Flx_halfgcd(GEN x, GEN y, GEN p) returns a two-by-two FlxM M with determinant +- 1 such that the image (a,b) of (x,y) by M has the property that deg a >= ( deg x )/(2) > deg b.

GEN Flx_extgcd(GEN a, GEN b, ulong p, GEN *ptu, GEN *ptv)

GEN Flx_pow(GEN x, long n, ulong p)

GEN Flx_roots_naive(GEN f, ulong p) returns the vector of roots of f as a t_VECSMALL (multiple roots are not repeated), found by an exhaustive search. Efficient for small p and small degrees !

Miscellaneous operations

GEN pol0_Flx(long sv) returns a zero Flx in variable v.

GEN zero_Flx(long sv) alias for pol0_Flx

GEN pol1_Flx(long sv) returns the unit Flx in variable v.

GEN polx_Flx(long sv) returns the variable v as degree 1 Flx.

GEN Flx_normalize(GEN z, ulong p), as FpX_normalize.

GEN random_Flx(long d, long sv, ulong p) returns a random Flx in variable v, of degree less than d.

GEN Flx_recip(GEN x), returns the reciprocal polynomial

ulong Flx_resultant(GEN a, GEN b, ulong p), returns the resultant of a and b

ulong Flx_extresultant(GEN a, GEN b, ulong p, GEN *ptU, GEN *ptV) given two Flx a and b, returns their resultant and sets Bezout coefficients (if the resultant is 0, the latter are not set).

GEN Flx_invMontgomery(GEN T, ulong p), returns the Montgomery inverse M of T defined by M(x)\*x^n\*T(1/x) = 1 (mod x^{n-1}) where n is the degree of T.

GEN Flx_rem_Montgomery(GEN x, GEN mg, GEN T, ulong p), returns x modulo T, assuming that deg x <= 2\*( deg {T} - 1) where mg is the Montgomery inverse of T.

GEN Flx_renormalize(GEN x, long l), as FpX_renormalize, where l = lg(x), in place.

GEN Flx_shift(GEN T, long n) returns T * x^n if n >= 0, and T \x^{-n} otherwise.

long Flx_val(GEN x) returns the valuation of x, i.e. the multiplicity of the 0 root.

long Flx_valrem(GEN x, GEN *Z) as RgX_valrem, returns the valuation of x. In particular, if the valuation is 0, set *Z to x, not a copy.

GEN FlxYqQ_pow(GEN x, GEN n, GEN S, GEN T, ulong p), as FpXYQQ_pow.

GEN Flx_div_by_X_x(GEN A, ulong a, ulong p, ulong *rem), returns the Euclidean quotient of the Flx A by X - a, and sets rem to the remainder A(a).

ulong Flx_eval(GEN x, ulong y, ulong p), as FpX_eval.

GEN Flx_deflate(GEN P, long d) assuming P is a polynomial of the form Q(X^d), return Q.

GEN Flx_inflate(GEN P, long d) returns P(X^d).

GEN FlxV_Flc_mul(GEN V, GEN W, ulong p), as FpXV_FpC_mul.

int Flx_is_squarefree(GEN z, ulong p)

long Flx_nbfact(GEN z, ulong p), as FpX_nbfact.

GEN Flx_nbfact_by_degree(GEN z, long *nb, ulong p) Assume that the Flx z is squarefree mod the prime p. Returns a t_VECSMALL D with deg z entries, such that D[i] is the number of irreducible factors of degree i. Set nb to the total number of irreducible factors (the sum of the D[i]).

long FpX_nbfact(GEN f, GEN p), assuming the FpX f is squarefree, returns the number of its irreducible factors. Assumes that p is prime.

long Flx_nbroots(GEN f, ulong p), as FpX_nbroots.

GEN Flv_polint(GEN x, GEN y, ulong p, long sv) as FpV_polint, returning an Flx in variable v.

GEN Flv_roots_to_pol(GEN a, ulong p, long sv) as FpV_roots_to_pol returning an Flx in variable v.

Flxq

See FpXQ operations.

GEN Flxq_add(GEN x, GEN y, GEN T, ulong p)

GEN Flxq_sub(GEN x, GEN y, GEN T, ulong p)

GEN Flxq_mul(GEN x, GEN y, GEN T, ulong p)

GEN Flxq_sqr(GEN y, GEN T, ulong p)

GEN Flxq_inv(GEN x, GEN T, ulong p)

GEN Flxq_invsafe(GEN x, GEN T, ulong p)

GEN Flxq_div(GEN x, GEN y, GEN T, ulong p)

GEN Flxq_pow(GEN x, GEN n, GEN T, ulong p)

GEN Flxq_powers(GEN x, long n, GEN T, ulong p)

GEN Flxq_matrix_pow(GEN x, long m, long n, GEN T, ulong p), see FpXQ_matrix_pow.

GEN FlxqV_roots_to_pol(GEN V, GEN T, ulong p, long v) as FqV_roots_to_pol returning an FlxqX in variable v.

GEN Flxq_order(GEN a, GEN ord, GEN T, ulong p) returns the order of the t_Flxq a. If o is non-NULL, it is assumed that o is a multiple of the order of a, either as a t_INT or a factorization matrix.

int Flxq_issquare(GEN x, GEN T, ulong p) returns 1 if x is a square and 0 otherwise. Assumes that T is irreducible mod p.

GEN Flxq_log(GEN a, GEN g, GEN ord, GEN T, ulong p) Let g of exact order ord in the field F_p[X]/(T). Return e such that a^e = g. If e does not exists, the result is currently undefined. Assumes that T is irreducible mod p.

GEN Flxq_sqrtn(GEN x, GEN n, GEN T, ulong p, GEN *zn) returns an n-th root of x. Return NULL if x is not an n-th power residue. Otherwise, if zn is non-NULL set it to a primitive n-th root of 1. Assumes that T is irreducible mod p.

GEN Flxq_charpoly(GEN x, GEN T, ulong p) returns the characteristic polynomial of x

GEN Flxq_minpoly(GEN x, GEN T, ulong p) returns the minimal polynomial of x

ulong Flxq_norm(GEN x, GEN T, ulong p) returns the norm of x

ulong Flxq_trace(GEN x, GEN T, ulong p) returns the trace of x

GEN Flxq_conjvec(GEN x, GEN T, ulong p) returns the conjugates [x,x^p,x^{p^2},...,x^{p^{n-1}}] where n is the degree of T.

GEN gener_Flxq(GEN T, ulong p, GEN *po) returns a primitive root modulo (T,p). T is an Flx assumed to be irreducible modulo the prime p. If po is not NULL it is set to [o,fa], where o is the order of the multiplicative group of the finite field, and fa is its factorization.

FlxX

See FpXX operations.

GEN pol1_FlxX(long vX, long sx) returns the unit FlxX as a t_POL in variable vX which only coefficient is pol1_Flx(sx).

GEN FlxX_add(GEN P, GEN Q, ulong p)

GEN FlxY_Flx_div(GEN x, GEN y, ulong p)

GEN FlxX_renormalize(GEN x, long l), as normalizepol, where l = lg(x), in place.

GEN FlxX_resultant(GEN u, GEN v, ulong p, long sv) Returns {Res}_X(u, v), which is an Flx. The coefficients of u and v are assumed to be in the variable v.

GEN Flx_FlxY_resultant(GEN a, GEN b, ulong p) Returns {Res}_x(a, b), which is an Flx in the main variable of b.

GEN FlxX_shift(GEN a, long n)

FlxqX

See FpXQX operations.

GEN FlxqX_mul(GEN x, GEN y, GEN T, ulong p)

GEN FlxqX_Flxq_mul(GEN P, GEN U, GEN T, ulong p)

GEN FlxqX_Flxq_mul_to_monic(GEN P, GEN U, GEN T, ulong p) returns P*U assuming the result is monic of the same degree as P (in particular U != 0).

GEN FlxqX_red(GEN z, GEN T, ulong p)

GEN FlxqX_normalize(GEN z, GEN T, ulong p)

GEN FlxqX_sqr(GEN x, GEN T, ulong p)

GEN FlxqX_divrem(GEN x, GEN y, GEN T, ulong p, GEN *pr)

GEN FlxqX_div(GEN x, GEN y, GEN T, ulong p)

GEN FlxqX_rem(GEN x, GEN y, GEN T, ulong p)

GEN FlxqX_gcd(GEN x, GEN y, ulong p) returns a (not necessarily monic) greatest common divisor of x and y.

GEN FlxqX_extgcd(GEN x, GEN y, GEN T, ulong p, GEN *ptu, GEN *ptv)

GEN FlxqXV_prod(GEN V, GEN T, ulong p)

GEN FlxqX_safegcd(GEN P, GEN Q, GEN T, ulong p) Returns the monic GCD of P and Q if Euclid's algorithm succeeds and NULL otherwise. In particular, if p is not prime or T is not irreducible over F_p[X], the routine may still be used (but will fail if non-invertible leading terms occur).

FlxqXQ

See FpXQXQ operations.

GEN FlxqXQ_mul(GEN x, GEN y, GEN S, GEN T, ulong p)

GEN FlxqXQ_sqr(GEN x, GEN S, GEN T, ulong p)

GEN FlxqXQ_inv(GEN x, GEN S, GEN T, ulong p)

GEN FlxqXQ_invsafe(GEN x, GEN S, GEN T, ulong p)

GEN FlxqXQ_pow(GEN x, GEN n, GEN S, GEN T, ulong p)

F2x

An F2x z is a t_VECSMALL representing a polynomial over F_2[X]. Specifically z[0] is the usual codeword, z[1] = evalvarn(v) for some variable v and the coefficients are given by the bits of remaining words by increasing degree.

Basic operations

ulong F2x_coeff(GEN x, long i) returns the coefficient i >= 0 of x.

void F2x_clear(GEN x, long i) sets the coefficient i >= 0 of x to 0.

void F2x_flip(GEN x, long i) adds 1 to the coefficient i >= 0 of x.

void F2x_set(GEN x, long i) sets the coefficient i >= 0 of x to 1.

GEN Flx_to_F2x(GEN x)

GEN Z_to_F2x(GEN x, long sv)

GEN ZX_to_F2x(GEN x)

GEN ZXX_to_F2xX(GEN x, long v)

GEN F2x_to_Flx(GEN x)

GEN F2x_to_ZX(GEN x)

GEN pol0_F2x(long sv) returns a zero F2x in variable v.

GEN zero_F2x(long sv) alias for pol0_F2x.

GEN pol1_F2x(long sv) returns the F2x in variable v constant to 1.

GEN polx_F2x(long sv) returns the variable v as degree 1 F2x.

GEN random_F2x(long d, long sv) returns a random F2x in variable v, of degree less than d.

long F2x_degree(GEN x) returns the degree of the F2x x. The degree of 0 is defined as -1.

int F2x_equal1(GEN x)

GEN F2x_1_add(GEN y) returns y+1 where y is a Flx.

GEN F2x_add(GEN x, GEN y)

GEN F2x_mul(GEN x, GEN y)

GEN F2x_sqr(GEN x)

GEN F2x_divrem(GEN x, GEN y, GEN *pr)

GEN F2x_rem(GEN x, GEN y)

GEN F2x_div(GEN x, GEN y)

GEN F2x_renormalize(GEN x, long lx)

GEN F2x_deriv(GEN x)

GEN F2x_extgcd(GEN a, GEN b, GEN *ptu, GEN *ptv)

GEN F2x_gcd(GEN a, GEN b)

F2xq

See FpXQ operations.

GEN F2xq_mul(GEN x, GEN y, GEN pol)

GEN F2xq_sqr(GEN x,GEN pol)

GEN F2xq_div(GEN x,GEN y,GEN T)

GEN F2xq_inv(GEN x, GEN T)

GEN F2xq_invsafe(GEN x, GEN T)

GEN F2xq_pow(GEN x, GEN n, GEN pol)

ulong F2xq_trace(GEN x, GEN T)

GEN F2xq_conjvec(GEN x, GEN T) returns the vector of conjugates [x,x^2,x^{2^2},...,x^{2^{n-1}}] where n is the degree of T.

GEN F2xq_log(GEN a, GEN g, GEN ord, GEN T)

GEN F2xq_order(GEN a, GEN ord, GEN T)

GEN F2xq_sqrt(GEN a, GEN T)

GEN F2xq_sqrtn(GEN a, GEN n, GEN T, GEN *zeta)

GEN gener_F2xq(GEN T, GEN *po)

GEN F2xq_powers(GEN x, long n, GEN T)

GEN F2xq_matrix_pow(GEN x, long m, long n, GEN T)

Functions returning objects with t_INTMOD coefficients

Those functions are mostly needed for interface reasons: t_INTMODs should not be used in library mode since the modular kernel is more flexible and more efficient, but GP users do not have access to the modular kernel. We document them for completeness:

GEN Fp_to_mod(GEN z, GEN p), z a t_INT. Returns z * Mod(1,p), normalized. Hence the returned value is a t_INTMOD.

GEN FpX_to_mod(GEN z, GEN p), z a ZX. Returns z * Mod(1,p), normalized. Hence the returned value has t_INTMOD coefficients.

GEN FpC_to_mod(GEN z, GEN p), z a ZC. Returns Col(z) * Mod(1,p), a t_COL with t_INTMOD coefficients.

GEN FpV_to_mod(GEN z, GEN p), z a ZV. Returns Vec(z) * Mod(1,p), a t_VEC with t_INTMOD coefficients.

GEN FpM_to_mod(GEN z, GEN p), z a ZM. Returns z * Mod(1,p), with t_INTMOD coefficients.

GEN FpXQC_to_mod(GEN V, GEN T, GEN p) V being a vector of FpXQ, converts each entry to a t_POLMOD with t_INTMOD coefficients, and return a t_COL.

GEN QXQV_to_mod(GEN V, GEN T) V a vector of QXQ, which are lifted representatives of elements of Q[X]/(T) (number field elements in most applications) and T is in Z[X]. Return a vector where all non-rational entries are converted to t_POLMOD modulo T; no reduction mod T is attempted: the representatives should be already reduced. Used to normalize the output of nfroots.

GEN QXQXV_to_mod(GEN V, GEN T) V a vector of polynomials whose coefficients are QXQ. Analogous to QXQV_to_mod. Used to normalize the output of nffactor.

The following functions are obsolete and should not be used: they receive a polynomial with arbitrary coefficients, apply RgX_to_FpX, a function from the modular kernel, then *_to_mod:

GEN rootmod(GEN f, GEN p), applies FpX_roots.

GEN rootmod2(GEN f, GEN p), applies ZX_to_flx then Flx_roots_naive.

GEN factmod(GEN f, GEN p) applies FpX_factor.

GEN simplefactmod(GEN f, GEN p) applies FpX_degfact.

Chinese remainder theorem over Z

GEN Z_chinese(GEN a, GEN b, GEN A, GEN B) returns the integer in [0, lcm(A,B)[ congruent to a mod A and b mod B, assuming it exists; in other words, that a and b are congruent mod gcd(A,B).

GEN Z_chinese_all(GEN a, GEN b, GEN A, GEN B, GEN *pC) as Z_chinese, setting *pC to the lcm of A and B.

GEN Z_chinese_coprime(GEN a, GEN b, GEN A, GEN B, GEN C), as Z_chinese, assuming that gcd(A,B) = 1 and that C = lcm(A,B) = AB.

void Z_chinese_pre(GEN A, GEN B, GEN *pC, GEN *pU, GEN *pd) initializes chinese remainder computations modulo A and B. Sets *pC to lcm(A,B), *pd to gcd(A,B), *pU to an integer congruent to 0 mod (A/d) and 1 mod (B/d). It is allowed to set pd = NULL, in which case, d is still computed, but not saved.

GEN Z_chinese_post(GEN a, GEN b, GEN C, GEN U, GEN d) returns the solution to the chinese remainder problem x congruent to a mod A and b mod B, where C, U, d were set in Z_chinese_pre. If d is NULL, assume the problem has a solution. Otherwise, return NULL if it has no solution.

The following pair of functions is used in homomorphic imaging schemes, when reconstructing an integer from its images modulo pairwise coprime integers. The idea is as follows: we want to discover an integer H which satisfies |H| < B for some known bound B; we are given pairs (H_p, p) with H congruent to H_p mod p and all p pairwise coprime.

Given H congruent to H_p modulo a number of p, whose product is q, and a new pair (Hp, p), p coprime to q, the following incremental functions use the chinese remainder theorem (CRT) to find a new H, congruent to the preceding one modulo q, but also to Hp modulo p. It is defined uniquely modulo qp, and we choose the centered representative. When P is larger than 2B, we have H = H, but of course, the value of H may stabilize sooner. In many applications it is possible to directly check that such a partial result is correct.

GEN Z_init_CRT(ulong Hp, ulong p) given a Fl Hp in [0, p-1], returns the centered representative H congruent to Hp modulo p.

int Z_incremental_CRT(GEN *H, ulong Hp, GEN q, GEN qp, ulong p) given a t_INT *H, centered modulo q, a new pair (Hp, p) with p coprime to q, and the product qp = p .q, this function updates *H so that it also becomes congruent to (Hp, p). It returns 1 if the new value is equal to the old one, and 0 otherwise.

GEN chinese1_coprime_Z(GEN v) an alternative divide-and-conquer implementation: v is a vector of t_INTMOD with pairwise coprime moduli. Return the t_INTMOD solving the corresponding chinese remainder problem. This is a streamlined version of

GEN chinese1(GEN v), which solves a general chinese remainder problem (not necessarily over Z, moduli not assumed coprime).

As above, for H a ZM: we assume that H and all Hp have dimension > 0. The original *H is destroyed.

GEN ZM_init_CRT(GEN Hp, ulong p)

int ZM_incremental_CRT(GEN *H, GEN Hp, GEN q, GEN qp, ulong p)

As above for H a ZX: note that the degree may increase or decrease. The original *H is destroyed.

GEN ZX_init_CRT(GEN Hp, ulong p, long v)

int ZX_incremental_CRT(GEN *H, GEN Hp, GEN q, GEN qp, ulong p)

Rational reconstruction

int Fp_ratlift(GEN x, GEN m, GEN amax, GEN bmax, GEN *a, GEN *b). Assuming that 0 <= x < m, amax >= 0, and bmax > 0 are t_INTs, and that 2 amax bmax < m, attempts to recognize x as a rational a/b, i.e. to find t_INTs a and b such that

* a = b x modulo m,

* |a| <= amax, 0 < b <= bmax,

* gcd(m,b) = gcd(a,b).

If unsuccessful, the routine returns 0 and leaves a, b unchanged; otherwise it returns 1 and sets a and b.

In almost all applications, we actually know that a solution exists, as well as a non-zero multiple B of b, and m = p^\ell is a prime power, for a prime p chosen coprime to B hence to b. Under the single assumption gcd(m,b) = 1, if a solution a,b exists satisfying the three conditions above, then it is unique.

int ratlift(GEN x, GEN m, GEN amax, GEN bmax, GEN *a, GEN *b). Calls Fp_ratlift after explicitly checking all preconditions.

GEN FpM_ratlift(GEN M, GEN m, GEN amax, GEN bmax, GEN denom) given an FpM modulo m with reduced or Fp_center-ed entries, reconstructs a matrix with rational coefficients by applying Fp_ratlift to all entries. Assume that all preconditions for Fp_ratlift are satisfied, as well gcd(m,b) = 1 (so that the solution is unique if it exists). Return NULL if the reconstruction fails, and the rational matrix otherwise. If denom is not NULL check further that all denominators divide denom.

The functions is not stack clean if one coefficients of M is negative (centered residues), but still suitable for gerepileupto.

GEN FpX_ratlift(GEN P, GEN m, GEN amax, GEN bmax, GEN denom) as FpM_ratlift, where P is an FpX.

Hensel lifts

GEN Zp_sqrtlift(GEN a, GEN S, GEN p, long e) let a,b,p be t_INTs, with p > 1 odd, such that a^2 = b mod p. Returns a t_INT A such that A^2 = b mod p^e. Special case of Zp_sqrtnlift.

GEN Zp_sqrtnlift(GEN b, GEN n, GEN a, GEN p, long e) let a,b,n,p be t_INTs, with n,p > 1, and p coprime to n, such that a^n = b mod p. Returns a t_INT A such that A^n = b mod p^e. Special case of ZpX_liftroot.

GEN ZpXQ_sqrtnlift(GEN b, GEN n, GEN a, GEN T, GEN p, long e) let n,p be t_INTs, with n,p > 1 and p coprime to n, and a,b be Fqs (modulo T) such that a^n = b mod (p,T). Returns an Fq A such that A^n = b mod (p^e, T). Special case of ZpXQ_liftroot.

GEN rootpadicfast(GEN f, GEN p, long e) f a ZX with leading term prime to p, and without multiple roots mod p. Return a vector of t_INTs which are the roots of f mod p^e. This is a very important special case of rootpadic.

GEN ZpX_liftroot(GEN f, GEN a, GEN p, long e) f a ZX with leading term prime to p, and a a simple root mod p. Return a t_INT which are the root of f mod p^e congruent to a mod p.

GEN ZpX_liftroots(GEN f, GEN S, GEN q, long e) f a ZX with leading term prime to p, and S a vector of simple roots mod p. Return a vector of t_INTs which are the root of f mod p^e congruent to the S[i] mod p.

GEN ZpXQX_liftroot(GEN f, GEN a, GEN T, GEN p, long e) as ZpX_liftroot, but f is now a polynomial in Z[X,Y] and we find roots in the unramified extension of Q_p with residue field F_p[Y]/(T).

GEN ZpX_liftfact(GEN A, GEN B, GEN T, GEN p, long e, GEN pe) is the routine underlying polhensellift. Here, p is prime, T(Y) defines a finite field F_q, either F_q = F_p (T is NULL) or a non-prime finite field (T an FpX). A is a polynomial in Z[X] (T NULL) or Z[X,Y], whose leading coefficient is non-zero in F_q. B is a vector of monic FpX (T NULL) or FqX, pairwise coprime in F_q[X], whose product is congruent to A/{lc}(A) in F_q[X]. Lifts the elements of B mod pe = p^e, such that the congruence now holds mod (T,p^e).

The following technical function returns an optimal sequence of p-adic accuracies, for a given target accuracy:

ulong quadratic_prec_mask(long n) we want to reach accuracy n >= 1, starting from accuracy 1, using a quadratically convergent, self-correcting, algorithm; in other words, from inputs correct to accuracy l one iteration outputs a result correct to accuracy 2l. For instance, to reach n = 9, we want to use accuracies [1,2,3,5,9] instead of [1,2,4,8,9]. The idea is to essentially double the accuracy at each step, and not overshoot in the end.

Let a_0 = 1, a_1 = 2,..., a_k = n, be the desired sequence of accuracies. To obtain it, we work backwards and set

   a_k = n, a_{i-1} = (a_i + 1)\2.

This is in essence what the function returns. But we do not want to store the a_i explicitly, even as a t_VECSMALL, since this would leave an object on the stack. Instead, we store a_i implicitly in a bitmask MASK: let a_0 = 1, if the i-th bit of the mask is set, set a_{i+1} = 2a_i - 1, and 2a_i otherwise; in short the bits indicate the places where we do something special and do not quite double the accuracy (which would be the straightforward thing to do).

In fact, to avoid returning separately the mask and the sequence length k+1, the function returns MASK + 2^{k+1}, so the highest bit of the mask indicates the length of the sequence, and the following ones give an algorithm to obtain the accuracies. This is much simpler than it sounds, here is what it looks like in practice:

    ulong mask = quadratic_prec_mask(n);
    long l = 1;
    while (mask > 1) {            /* here, the result is known to accuracy l */
      l = 2*l; if (mask & 1) l--; /* new accuracy l for the iteration */
      mask >>= 1;                 /* pop low order bit */
      /* ... lift to the new accuracy ... */
    }
    /* we are done. At this point l = n */

We just pop the bits in mask starting from the low order bits, stop when mask is 1 (that last bit corresponds to the 2^{k+1} that we added to the mask proper). Note that there is nothing specific to Hensel lifts in that function: it would work equally well for an Archimedean Newton iteration.

Note that in practice, we rather use an infinite loop, and insert an

    if (mask == 1) break;

in the middle of the loop: the loop body usually includes preparations for the next iterations (e.g. lifting Bezout coefficients in a quadratic Hensel lift), which are costly and useless in the last iteration.

Other p-adic functions

long ZpX_disc_val(GEN f, GEN p) returns the valuation at p of the discriminant of f. Assume that f is a monic separable ZX and that p is a prime number. Proceeds by dynamically increasing the p-adic accuracy; infinite loop if the discriminant of f is 0.

GEN ZpX_gcd(GEN f,GEN g, GEN pm) f a monic ZX, g a ZX, pm = p^m a prime power. There is a unique integer r >= 0 and a monic h belongs to Q_p[X] such that

  p^rhZ_p[X] + p^mZ_p[X] = fZ_p[X] + gZ_p[X] + p^mZ_p[X].

Return the 0 polynomial if r >= m and a monic h belongs to Z[1/p][X] otherwise (whose valuation at p is > -m).

GEN ZpX_reduced_resultant(GEN f, GEN g, GEN pm) f a monic ZX, g a ZX, pm = p^m a prime power. The p-adic reduced resultant\varsidx{resultant (reduced)} of f and g is 0 if f, g not coprime in Z_p[X], and otherwise the generator of the form p^d of

   (fZ_p[X] + gZ_p[X]) cap Z_p.

Return the reduced resultant modulo p^m.

GEN ZpX_reduced_resultant_fast(GEN f, GEN g, GEN p, long M) f a monic ZX, g a ZX, p a prime. Returns the the p-adic reduced resultant of f and g modulo p^M. This function computes resultants for a sequence of increasing p-adic accuracies (up to M p-adic digits), returning as soon as it obtains a non-zero result. It is very inefficient when the resultant is 0, but otherwise usually more efficient than computations using a priori bounds.

Conversions involving single precision objects

To single precision

GEN RgX_to_Flx(GEN x, ulong p), x a t_POL, returns the Flx obtained by applying Rg_to_Fl coefficientwise.

GEN ZX_to_Flx(GEN x, ulong p) reduce ZX x modulo p (yielding an Flx). Faster than RgX_to_Flx.

GEN ZV_to_Flv(GEN x, ulong p) reduce ZV x modulo p (yielding an Flv).

GEN ZXV_to_FlxV(GEN v, ulong p), as ZX_to_Flx, repeatedly called on the vector's coefficients.

GEN ZXX_to_FlxX(GEN B, ulong p, long v), as ZX_to_Flx, repeatedly called on the polynomial's coefficients.

GEN ZXXV_to_FlxXV(GEN V, ulong p, long v), as ZXX_to_FlxX, repeatedly called on the vector's coefficients.

GEN ZM_to_Flm(GEN x, ulong p) reduce ZM x modulo p (yielding an Flm).

GEN ZV_to_zv(GEN z), converts coefficients using itos

GEN ZV_to_nv(GEN z), converts coefficients using itou

GEN ZM_to_zm(GEN z), converts coefficients using itos

GEN FqC_to_FlxC(GEN x, GEN T, GEN p), converts coefficients in Fq to coefficient in Flx, result being a column vector.

GEN FqV_to_FlxV(GEN x, GEN T, GEN p), converts coefficients in Fq to coefficient in Flx, result being a line vector.

GEN FqM_to_FlxM(GEN x, GEN T, GEN p), converts coefficients in Fq to coefficient in Flx.

From single precision

GEN Flx_to_ZX(GEN z), converts to ZX (t_POL of non-negative t_INTs in this case)

GEN Flx_to_ZX_inplace(GEN z), same as Flx_to_ZX, in place (z is destroyed).

GEN FlxX_to_ZXX(GEN B), converts an FlxX to a polynomial with ZX or t_INT coefficients (repeated calls to Flx_to_ZX).

GEN FlxC_to_ZXC(GEN x), converts a vector of Flx to a column vector of polynomials with t_INT coefficients (repeated calls to Flx_to_ZX).

GEN FlxM_to_ZXM(GEN z), converts a matrix of Flx to a matrix of polynomials with t_INT coefficients (repeated calls to Flx_to_ZX).

GEN zx_to_ZX(GEN z), as Flx_to_ZX, without assuming coefficients are non-negative.

GEN Flc_to_ZC(GEN z), converts to ZC (t_COL of non-negative t_INTs in this case)

GEN Flv_to_ZV(GEN z), converts to ZV (t_VEC of non-negative t_INTs in this case)

GEN Flm_to_ZM(GEN z), converts to ZM (t_MAT with non-negative t_INTs coefficients in this case)

GEN zc_to_ZC(GEN z) as Flc_to_ZC, without assuming coefficients are non-negative.

GEN zv_to_ZV(GEN z) as Flv_to_ZV, without assuming coefficients are non-negative.

GEN zm_to_ZM(GEN z) as Flm_to_ZM, without assuming coefficients are non-negative.

Mixed precision linear algebra Assumes dimensions are compatible.

Multiply a multiprecision object by a single-precision one.

GEN RgM_zc_mul(GEN x, GEN y)

GEN RgM_zm_mul(GEN x, GEN y)

GEN RgV_zc_mul(GEN x, GEN y)

GEN RgV_zm_mul(GEN x, GEN y)

GEN ZM_zc_mul(GEN x, GEN y)

GEN ZM_zm_mul(GEN x, GEN y)

GEN ZC_z_mul(GEN x, long y)

Miscellaneous involving Fl

GEN Fl_to_Flx(ulong x, long evx) converts a unsigned long to a scalar Flx. Assume that evx = evalvarn(vx) for some variable number vx.

GEN Z_to_Flx(GEN x, ulong p, long v) converts a t_INT to a scalar polynomial in variable v.

GEN Flx_to_Flv(GEN x, long n) converts from Flx to Flv with n components (assumed larger than the number of coefficients of x).

GEN zx_to_zv(GEN x, long n) as Flx_to_Flv.

GEN Flv_to_Flx(GEN x, long sv) converts from vector (coefficient array) to (normalized) polynomial in variable v.

GEN zv_to_zx(GEN x, long n) as Flv_to_Flx.

GEN matid_Flm(long n) returns an Flm which is an n x n identity matrix.

GEN Flm_to_FlxV(GEN x, long sv) converts the columns of Flm x to an array of Flx in the variable v (repeated calls to Flv_to_Flx).

GEN zm_to_zxV(GEN x, long n) as Flm_to_FlxV.

GEN Flm_to_FlxX(GEN x, long sw, long sv) same as Flm_to_FlxV(x,sv) but returns the result as a (normalized) polynomial in variable w.

GEN FlxV_to_Flm(GEN v, long n) reverse Flm_to_FlxV, to obtain an Flm with n rows (repeated calls to Flx_to_Flv).

GEN FlxX_to_Flm(GEN v, long n) reverse Flm_to_FlxX, to obtain an Flm with n rows (repeated calls to Flx_to_Flv).

GEN Fly_to_FlxY(GEN a, long sv) convert coefficients of a to constant Flx in variable v.

Miscellaneous involving F2

GEN F2x_to_F2v(GEN x, long n) converts from F2x to F2v with n components (assumed larger than the number of coefficients of x).

GEN F2xC_to_ZXC(GEN x), converts a vector of F2x to a column vector of polynomials with t_INT coefficients (repeated calls to F2x_to_ZX).

GEN F2xV_to_F2m(GEN v, long n) F2x_to_F2v to each polynomials to get an F2m with n rows.


Arithmetic on elliptic curve over a finite field in simple form

FpE

Let p a prime number and E the elliptic curve given by the equation E:y^2 = x^3+a_4\*x+a_6. A FpE is a point of E(F_p).

GEN FpE_add(GEN P, GEN Q, GEN a4, GEN p) returns the sum P+Q in the group E(F_p), where E is defined by E:y^2 = x^3+a_4\*x+a_6, for any value of a_6 compatible with the points given.

GEN FpE_sub(GEN P, GEN Q, GEN a4, GEN p) returns P-Q.

GEN FpE_dbl(GEN P, GEN a4, GEN p) returns 2.P.

GEN FpE_neg(GEN P, GEN p) returns -P.

GEN FpE_mul(GEN P, GEN n, GEN a4, GEN p) return n.P.

GEN random_FpE(GEN a4, GEN a6, GEN p) returns a random point on E(F_p), where E is defined by E:y^2 = x^3+a_4\*x+a_6.

GEN FpE_order(GEN P, GEN o, GEN a4, GEN p) returns the order of P in the group E(F_p), where o is a multiple of the order of P, or its factorization.

GEN FpE_tatepairing(GEN P, GEN Q, GEN m, GEN a4, GEN p) returns the reduced Tate pairing of the point of m-torsion P and the point Q.

GEN FpE_weilpairing(GEN Q, GEN Q, GEN m, GEN a4, GEN p) returns the Weil pairing of the points of m-torsion P and Q.


Integral, rational and generic linear algebra

ZC / ZV, ZM

A ZV (resp. a ZM, resp. a ZX) is a t_VEC or t_COL (resp. t_MAT, resp. t_POL) with t_INT coefficients.

ZC / ZV

void RgV_check_ZV(GEN A, const char *s) Assuming x is a t_VEC or t_COL raise an error if it is not a ZV (s should point to the name of the caller).

int ZV_equal0(GEN x) returns 1 if all entries of the ZV x are zero, and 0 otherwise.

int ZV_cmp(GEN x, GEN y) compare two ZV, which we assume have the same length (lexicographic order, comparing absolute values).

int ZV_abscmp(GEN x, GEN y) compare two ZV, which we assume have the same length (lexicographic order).

int ZV_equal(GEN x, GEN y) returns 1 if the two ZV are equal and 0 otherwise. A t_COL and a t_VEC with the same entries are declared equal.

GEN ZC_add(GEN x, GEN y) adds x and y.

GEN ZC_sub(GEN x, GEN y) subtracts x and y.

GEN ZC_Z_add(GEN x, GEN y) adds y to x[1].

GEN ZC_Z_sub(GEN x, GEN y) subtracts y to x[1].

GEN ZC_copy(GEN x) returns a (t_COL) copy of x.

GEN ZC_neg(GEN x) returns -x as a t_COL.

void ZV_neg_inplace(GEN x) negates the ZV x in place, by replacing each component by its opposite (the type of x remains the same, t_COL or t_COL). If you want to save even more memory by avoiding the implicit component copies, use ZV_togglesign.

void ZV_togglesign(GEN x) negates x in place, by toggling the sign of its integer components. Universal constants gen_1, gen_m1, gen_2 and gen_m2 are handled specially and will not be corrupted. (We use togglesign_safe.)

GEN ZC_Z_mul(GEN x, GEN y) multiplies the ZC or ZV x (which can be a column or row vector) by the t_INT y, returning a ZC.

GEN ZC_Z_divexact(GEN x, GEN y) returns x/y assuming all divisions are exact.

GEN ZV_dotproduct(GEN x,GEN y) as RgV_dotproduct assuming x and y have t_INT entries.

GEN ZV_dotsquare(GEN x) as RgV_dotsquare assuming x has t_INT entries.

GEN ZC_lincomb(GEN u, GEN v, GEN x, GEN y) returns ux + vy, where u, v are t_INT and x,y are ZC or ZV. Return a ZC

void ZC_lincomb1_inplace(GEN X, GEN Y, GEN v) sets X\leftarrow X + vY, where v is a t_INT and X,Y are ZC or ZV. (The result has the type of X.) Memory efficient (e.g. no-op if v = 0), but not gerepile-safe.

GEN ZC_ZV_mul(GEN x, GEN y, GEN p) multiplies the ZC x (seen as a column vector) by the ZV y (seen as a row vector, assumed to have compatible dimensions).

GEN ZV_content(GEN x) returns the GCD of all the components of x.

GEN ZV_prod(GEN x) returns the product of all the components of x (1 for the empty vector).

GEN ZV_sum(GEN x) returns the sum of all the components of x (0 for the empty vector).

long ZV_max_lg(GEN x) returns the effective length of the longest entry in x.

int ZV_dvd(GEN x, GEN y) assuming x, y are two ZVs of the same length, return 1 if y[i] divides x[i] for all i and 0 otherwise. Error if one of the y[i] is 0.

GEN ZV_sort(GEN L) sort the ZV L. Returns a vector with the same type as L.

GEN ZV_sort_uniq(GEN L) sort the ZV L, removing duplicate entries. Returns a vector with the same type as L.

long ZV_search(GEN L, GEN y) look for the t_INT y in the sorted ZV L. Return an index i such that L[i] = y, and 0 otherwise.

GEN ZV_indexsort(GEN L) returns the permutation which, applied to the ZV L, would sort the vector. The result is a t_VECSMALL.

GEN ZV_union_shallow(GEN x, GEN y) given two sorted ZV (as per ZV_sort, returns the union of x and y. Shallow function. In case two entries are equal in x and y, include the one from x.

ZM

void RgM_check_ZM(GEN A, const char *s) Assuming x is a t_MAT raise an error if it is not a ZM (s should point to the name of the caller).

GEN ZM_copy(GEN x) returns a copy of x.

int ZM_equal(GEN A, GEN B) returns 1 if the two ZM are equal and 0 otherwise.

GEN ZM_add(GEN x, GEN y) returns x + y (assumed to have compatible dimensions).

GEN ZM_sub(GEN x, GEN y) returns x - y (assumed to have compatible dimensions).

GEN ZM_neg(GEN x) returns -x.

GEN ZM_mul(GEN x, GEN y) multiplies x and y (assumed to have compatible dimensions).

GEN ZM_Z_mul(GEN x, GEN y) multiplies the ZM x by the t_INT y.

GEN ZM_ZC_mul(GEN x, GEN y) multiplies the ZM x by the ZC y (seen as a column vector, assumed to have compatible dimensions).

GEN ZMrow_ZC_mul(GEN x, GEN y, long i) multiplies the i-th row of ZM x by the ZC y (seen as a column vector, assumed to have compatible dimensions). Assumes that x is non-empty and 0 < i < lg(x[1]).

GEN ZV_ZM_mul(GEN x, GEN y) multiplies the ZV x by the ZM y. Returns a t_VEC.

GEN ZM_Z_divexact(GEN x, GEN y) returns x/y assuming all divisions are exact.

GEN ZM_pow(GEN x, GEN n) returns x^n, assuming x is a square ZM and n >= 0.

GEN ZM_detmult(GEN M) if M is a ZM, returns a multiple of the determinant of the lattice generated by its columns. This is the function underlying detint.

GEN ZM_supnorm(GEN x) return the sup norm of the ZM x.

GEN ZM_charpoly(GEN M) returns the characteristic polynomial (in variable 0) of the ZM M.

long ZM_max_lg(GEN x) returns the effective length of the longest entry in x.

GEN ZM_inv(GEN M, GEN d) if M is a ZM and d is a t_INT such that M' := dM^{-1} is integral, return M'. It is allowed to set d = NULL, in which case, the determinant of M is computed and used instead.

GEN QM_inv(GEN M, GEN d) as above, with M a QM. We still assume that M' has integer coefficients.

GEN ZM_det_triangular(GEN x) returns the product of the diagonal entries of x (its determinant if it is indeed triangular).

int ZM_isidentity(GEN x) return 1 is the t_ZM x is the identity matrix, and 0 otherwise.

int ZM_ishnf(GEN x) return 1 if x is in HNF form, i.e. is upper triangular with positive diagonal coefficients, and for j > i, x_{i,i} > x_{i,j} >= 0.

zv, zm

GEN zv_neg(GEN x) return -x. No check for overflow is done, which occurs in the fringe case where an entry is equal to 2^{BIL-1}.

long zv_content(GEN x) returns the gcd of the entries of x.

long zv_prod(GEN x) returns the product of all the components of x (assumes no overflow occurs).

long zv_sum(GEN x) returns the sum of all the components of x (assumes no overflow occurs).

int zv_cmp0(GEN x) returns 1 if all entries of the zv x are 0, and 0 otherwise.

int zv_equal(GEN x, GEN y) returns 1 if the two zv are equal and 0 otherwise.

GEN zv_copy(GEN x) as Flv_copy.

GEN zm_transpose(GEN x) as Flm_transpose.

GEN zm_copy(GEN x) as Flm_copy.

GEN zero_zm(long m, long n) as zero_Flm.

GEN zero_zv(long n) as zero_Flv.

GEN row_zm(GEN A, long x0) as row_Flm.

RgC / RgV, RgM

RgC and RgV routines assume the inputs are VEC or COL of the same dimension. RgM assume the inputs are MAT of compatible dimensions.

GEN RgC_add(GEN x, GEN y) returns x + y as a t_COL.

GEN RgC_neg(GEN x) returns -x as a t_COL.

GEN RgC_sub(GEN x, GEN y) returns x - y as a t_COL.

GEN RgV_add(GEN x, GEN y) returns x + y as a t_VEC.

GEN RgV_neg(GEN x) returns -x as a t_VEC.

GEN RgV_sub(GEN x, GEN y) returns x - y as a t_VEC.

GEN RgM_add(GEN x, GEN y) return x+y.

GEN RgM_neg(GEN x) returns -x.

GEN RgM_sub(GEN x, GEN y) returns x-y.

GEN RgM_Rg_add(GEN x, GEN y) assuming x is a square matrix and y a scalar, returns the square matrix x + y*{Id}.

GEN RgM_Rg_add_shallow(GEN x, GEN y) as RgM_Rg_add with much fewer copies. Not suitable for gerepileupto.

GEN RgC_Rg_add(GEN x, GEN y) assuming x is a non-empty column vector and y a scalar, returns the vector [x_1 + y, x_2,...,x_n].

GEN RgC_Rg_div(GEN x, GEN y)

GEN RgM_Rg_div(GEN x, GEN y) returns x/y (y treated as a scalar).

GEN RgC_Rg_mul(GEN x, GEN y)

GEN RgV_Rg_mul(GEN x, GEN y)

GEN RgM_Rg_mul(GEN x, GEN y) returns x x y (y treated as a scalar).

GEN RgV_RgC_mul(GEN x, GEN y) returns x x y.

GEN RgV_RgM_mul(GEN x, GEN y) returns x x y.

GEN RgM_RgC_mul(GEN x, GEN y) returns x x y.

GEN RgM_mul(GEN x, GEN y) returns x x y.

GEN RgM_mulreal(GEN x, GEN y) returns the real part of x x y (whose entries are t_INT, t_FRAC, t_REAL or t_COMPLEX).

GEN RgM_sqr(GEN x) returns x^2.

GEN RgC_RgV_mul(GEN x, GEN y) returns x x y (the square matrix (x_iy_j)).

The following two functions are not well defined in general and only provided for convenience in specific cases:

GEN RgC_RgM_mul(GEN x, GEN y) returns x x y[1,] is y is a row matrix 1 x n, error otherwise.

GEN RgM_RgV_mul(GEN x, GEN y) returns x x y[,1] is y is a column matrix n x 1, error otherwise.

GEN RgM_powers(GEN x, long n) returns [x^0, ..., x^n] as a t_VEC of RgMs.

GEN RgV_sum(GEN v) sum of the entries of v

GEN RgV_sumpart(GEN v, long n) returns the sum v[1] +...+ v[n] (assumes that lg(v) > n).

GEN RgV_sumpart2(GEN v, long m, long n) returns the sum v[m] +...+ v[n] (assumes that lg(v) > n and m > 0). Returns gen_0 when m > n.

GEN RgV_dotproduct(GEN x,GEN y) returns the scalar product of x and y

GEN RgV_dotsquare(GEN x) returns the scalar product of x with itself.

GEN RgM_inv(GEN a) returns a left inverse of a (which needs not be square), or NULL if this turns out to be impossible. The latter happens when the matrix does not have maximal rank (or when rounding errors make it appear so).

GEN RgM_inv_upper(GEN a) as RgM_inv, assuming that a is a non-empty invertible upper triangular matrix, hence a little faster.

GEN RgM_solve(GEN a, GEN b) returns a^{-1}b where a is a square t_MAT and b is a t_COL or t_MAT. Returns NULL if a^{-1} cannot be computed, see RgM_inv.

GEN RgM_solve_realimag(GEN M, GEN b) M being a t_MAT with r_1+r_2 rows and r_1+2r_2 columns, y a t_COL or t_MAT such that the equation Mx = y makes sense, returns x under the following simplifying assumptions: the first r_1 rows of M and y are real (the r_2 others are complex), and x is real. This is stabler and faster than calling RgM_solve(M, b) over C. In most applications, M approximates the complex embeddings of an integer basis in a number field, and x is actually rational.

GEN split_realimag(GEN x, long r1, long r2) x is a t_COL or t_MAT with r_1 + r_2 rows, whose first r_1 rows have real entries (the r_2 others are complex). Return an object of the same type as x and r_1 + 2r_2 rows, such that the first r_1 + r_2 rows contain the real part of x, and the r_2 following ones contain the imaginary part of the last r_2 rows of x. Called by RgM_solve_realimag.

GEN RgM_det_triangular(GEN x) returns the product of the diagonal entries of x (its determinant if it is indeed triangular).

GEN RgM_diagonal(GEN m) returns the diagonal of m as a t_VEC.

GEN RgM_diagonal_shallow(GEN m) shallow version of RgM_diagonal

GEN gram_matrix(GEN v) returns the Gram matrix (v_i.v_j) associated to the entries of v (matrix or vector).

GEN RgC_gtofp(GEN x, GEN prec) returns the t_COL obtained by applying gtofp(gel(x,i), prec) to all coefficients of x.

GEN RgC_fpnorml2(GEN x, long prec) returns (a stack-clean variant of)

    gnorml2( RgC_gtofp(x, prec) )

GEN RgM_gtofp(GEN x, GEN prec) returns the t_MAT obtained by applying gtofp(gel(x,i), prec) to all coefficients of x.

GEN RgM_fpnorml2(GEN x, long prec) returns (a stack-clean variant of)

    gnorml2( RgM_gtofp(x, prec) )

The following routines check whether matrices or vectors have a special shape, using gequal1 and gequal0 to test components. (This makes a difference when components are inexact.)

int RgV_isscalar(GEN x) return 1 if all the entries of x are 0 (as per gequal0), except possibly the first one. The name comes from vectors expressing polynomials on the standard basis 1,T,..., T^{n-1}, or on nf.zk (whose first element is 1).

int QV_isscalar(GEN x) as RgV_isscalar, assuming x is a QV (t_INT and t_FRAC entries only).

int ZV_isscalar(GEN x) as RgV_isscalar, assuming x is a ZV (t_INT entries only).

int RgM_isscalar(GEN x, GEN s) return 1 if x is the scalar matrix equal to s times the identity, and 0 otherwise. If s is NULL, test whether x is an arbitrary scalar matrix.

int RgM_isidentity(GEN x) return 1 is the t_MAT x is the identity matrix, and 0 otherwise.

int RgM_isdiagonal(GEN x) return 1 is the t_MAT x is a diagonal matrix, and 0 otherwise.

int RgM_is_ZM(GEN x) return 1 is the t_MAT x has only t_INT coefficients, and 0 otherwise.

long RgV_isin(GEN v, GEN x) return the first index i such that v[i] = x if it exists, and 0 otherwise. Naive search in linear time, does not assume that v is sorted.

GEN Frobeniusform(GEN V, long n) given the vector V of elementary divisors for M - x{Id}, where M is an n x n square matrix. Returns the Frobenius form of M. Used by matfrobenius.

Obsolete functions

The functions in this section are kept for backward compatibility only and will eventually disappear.

GEN image2(GEN x) compute the image of x using a very slow algorithm. Use image instead.


Integral, rational and generic polynomial arithmetic

ZX, QX

void RgX_check_ZX(GEN x, const char *s) Assuming x is a t_POL raise an error if it is not a ZX (s should point to the name of the caller).

void RgX_check_ZXY(GEN x, const char *s) Assuming x is a t_POL raise an error if it one of its coefficients is not an integer or a ZX (s should point to the name of the caller).

GEN ZX_copy(GEN x,GEN p) returns a copy of x.

GEN scalar_ZX(GEN x, long v) returns the constant ZX in variable v equal to the t_INT x.

GEN scalar_ZX_shallow(GEN x, long v) returns the constant ZX in variable v equal to the t_INT x. Shallow function not suitable for gerepile and friends.

GEN ZX_renormalize(GEN x, long l), as normalizepol, where l = lg(x), in place.

int ZX_equal(GEN x, GEN y) returns 1 if the two ZX are equal and 0 otherwise.

GEN ZX_add(GEN x,GEN y) adds x and y.

GEN ZX_sub(GEN x,GEN y) subtracts x and y.

GEN ZX_neg(GEN x,GEN p) returns -x.

GEN ZX_Z_add(GEN x,GEN y) adds the integer y to the ZX x.

GEN ZX_Z_sub(GEN x,GEN y) subtracts the integer y to the ZX x.

GEN Z_ZX_sub(GEN x,GEN y) subtracts the ZX y to the integer x.

GEN ZX_Z_mul(GEN x,GEN y) multiplies the ZX x by the integer y.

GEN ZX_Z_divexact(GEN x, GEN y) returns x/y assuming all divisions are exact.

GEN ZXV_Z_mul(GEN x,GEN y) multiplies the vector of ZX x by the integer y.

GEN ZX_mul(GEN x,GEN y) multiplies x and y.

GEN ZX_sqr(GEN x,GEN p) returns x^2.

GEN ZX_mulspec(GEN a, GEN b, long na, long nb). Internal routine: a and b are arrays of coefficients representing polynomials sum_{i = 0}^{na-1} a[i] X^i and sum_{i = 0}^{nb-1} b[i] X^i. Returns their product (as a true GEN).

GEN ZX_sqrspec(GEN a, long na). Internal routine: a is an array of coefficients representing polynomial sum_{i = 0}^{na-1} a[i] X^i. Return its square (as a true GEN).

GEN ZX_rem(GEN x, GEN y) returns the remainder of the Euclidean division of x mod y. Assume that x, y are two ZX and that y is monic.

GEN ZXQ_mul(GEN x,GEN y,GEN T) returns x*y mod T, assuming that all inputs are ZXs and that T is monic.

GEN ZXQ_sqr(GEN x,GEN T) returns x^2 mod T, assuming that all inputs are ZXs and that T is monic.

long ZX_valrem(GEN P, GEN *z) as RgX_valrem, but assumes P has t_INT coefficients.

long ZX_val(GEN P) as RgX_val, but assumes P has t_INT coefficients.

GEN ZX_gcd(GEN x,GEN y) returns a gcd of the ZX x and y. Not memory-clean, but suitable for gerepileupto.

GEN ZX_gcd_all(GEN x, GEN y, GEN *pX). returns a gcd d of x and y. If pX is not NULL, set *pX to a (non-zero) integer multiple of x/d. If x and y are both monic, then d is monic and *pX is exactly x/d. Not memory clean if the gcd is 1 (in that case *pX is set to x).

GEN ZX_content(GEN x) returns the content of the ZX x.

GEN QX_gcd(GEN x,GEN y) returns a gcd of the QX x and y.

GEN ZX_to_monic(GEN q GEN *L) given q a non-zero ZX, returns a monic integral polynomial Q such that Q(x) = C q(x/L), for some rational C and positive integer L > 0. If L is not NULL, set *L to L; if L = 1, *L is set to gen_1. Not suitable for gerepileupto.

GEN ZX_primitive_to_monic(GEN q, GEN *L) as ZX_to_monic except q is assumed to have trivial content, which avoids recomputing it. The result is suboptimal if q is not primitive (L larger than necessary), but remains correct.

GEN ZX_Z_normalize(GEN q, GEN *L) a restricted version of ZX_primitive_to_monic, where q is a monic ZX of degree > 0. Finds the largest integer L > 0 such that Q(X) := L^{- deg q} q(Lx) is integral and return Q; this is not well-defined if q is a monomial, in that case, set L = 1 and Q = q. If L is not NULL, set *L to L.

GEN ZX_Q_normalize(GEN q, GEN *L) a variant of ZX_Z_normalize where L > 0 is allowed to be rational, the monic Q belongs to Z[X] has possibly smaller coefficients.

GEN ZX_rescale(GEN P, GEN h) returns h^{ deg (P)} P(x/h). P is a ZX and h is a non-zero integer. (Leaves small objects on the stack. Suitable but inefficient for gerepileupto.)

long ZX_max_lg(GEN x) returns the effective length of the longest component in x.

long ZXY_max_lg(GEN x) returns the effective length of the longest component in x; assume all coefficients are t_INT or ZXs.

GEN ZXQ_charpoly(GEN A, GEN T, long v): let T and A be ZXs, returns the characteristic polynomial of Mod(A, T). More generally, A is allowed to be a QX, hence possibly has rational coefficients, assuming the result is a ZX, i.e. the algebraic number Mod(A,T) is integral over Z.

GEN ZX_deriv(GEN x) returns the derivative of x.

GEN ZX_disc(GEN T) returns the discriminant of the ZX T.

GEN QX_disc(GEN T) returns the discriminant of the QX T.

int ZX_is_squarefree(GEN T) returns 1 if the ZX T is squarefree, 0 otherwise.

GEN ZX_factor(GEN T) returns the factorization of the primitive part of T over Q[X] (the content is lost).

GEN QX_factor(GEN T) as ZX_factor.

long ZX_is_irred(GEN T) returns 1 it T is irreducible, and 0 otherwise.

GEN ZX_squff(GEN T, GEN *E) write T as a product prod T_i^{e_i} with the e_1 < e_2 < ... all distinct and the T_i pairwise coprime. Return the vector of the T_i, and set *E to the vector of the e_i, as a t_VECSMALL.

GEN ZX_resultant(GEN A, GEN B) returns the resultant of the ZX A and B.

GEN QX_resultant(GEN A, GEN B) returns the resultant of the QX A and B.

GEN QXQ_norm(GEN A, GEN B) A being a QX and B being a ZX, returns the norm of the algebraic number A mod B, using a modular algorithm. To ensure that B is a ZX, one may replace it by Q_primpart(B), which of course does not change the norm.

If A is not a ZX --- it has a denominator ---, but the result is nevertheless known to be an integer, it is much more efficient to call QXQ_intnorm instead.

GEN QXQ_intnorm(GEN A, GEN B) A being a QX and B being a ZX, returns the norm of the algebraic number A mod B, assuming that the result is an integer, which is for instance the case is A mod B is an algebraic integer, in particular if A is a ZX. To ensure that B is a ZX, one may replace it by Q_primpart(B) (which of course does not change the norm).

If the result is not known to be an integer, you must use QXQ_norm instead, which is slower.

GEN ZX_ZXY_resultant(GEN A, GEN B) under the assumption that A in Z[Y], B in Q[Y][X], and R = {Res}_Y(A, B) belongs to Z[X], returns the resultant R.

GEN ZX_ZXY_rnfequation(GEN A, GEN B, long *lambda), assume A in Z[Y], B in Q[Y][X], and R = {Res}_Y(A, B) belongs to Z[X]. If lambda = NULL, returns R as in ZY_ZXY_resultant. Otherwise, lambda must point to some integer, e.g. 0 which is used as a seed. The function then finds a small lambda belongs to Z (starting from *lambda) such that R_lambda(X) := {Res}_Y(A, B(X + lambda Y)) is squarefree, resets *lambda to the chosen value and returns R_{lambda}.

GEN nfgcd(GEN P, GEN Q, GEN T, GEN den) given P and Q in Z[X,Y], T monic irreducible in Z[Y], returns the primitive d in Z[X,Y] which is a gcd of P, Q in K[X], where K is the number field Q[Y]/(T). If not NULL, den is a multiple of the integral denominator of the (monic) gcd of P,Q in K[X].

GEN nfgcd_all(GEN P, GEN Q, GEN T, GEN den, GEN *Pnew) as nfgcd. If Pnew is not NULL, set *Pnew to a non-zero integer multiple of P/d. If P and Q are both monic, then d is monic and *Pnew is exactly P/d. Not memory clean if the gcd is 1 (in that case *Pnew is set to P).

GEN QXQ_inv(GEN A, GEN B) returns the inverse of A modulo B where A is a QX and B is a ZX. Should you need this for a QX B, just use

    QXQ_inv(A, Q_primpart(B));

But in all cases where modular arithmetic modulo B is desired, it is much more efficient to replace B by Q_primpart(B) once and for all.

GEN QXQ_powers(GEN x, long n, GEN T) returns [x^0,..., x^n] as RgXQ_powers would, but in a more efficient way when x has a huge integer denominator (we start by removing that denominator). Meant to be used to precompute powers of algebraic integers in Q[t]/(T). The current implementation does not require x to be a QX: any polynomial to which Q_remove_denom can be applied is fine.

GEN QXQ_reverse(GEN f, GEN T) as RgXQ_reverse, assuming f is a QX.

zx

GEN zero_zx(long sv) returns a zero zx in variable v.

GEN polx_zx(long sv) returns the variable v as degree 1 Flx.

GEN zx_renormalize(GEN x, long l), as Flx_renormalize, where l = lg(x), in place.

GEN zx_shift(GEN T, long n) returns T multiplied by x^n, assuming n >= 0.

RgX

long RgX_type(GEN x, GEN *ptp, GEN *ptpol, long *ptprec) returns the ``natural'' base ring over which the polynomial x is defined. Raise an error if it detects consistency problems in modular objects: incompatible rings (e.g. F_p and F_q for primes p != q, F_p[X]/(T) and F_p[X]/(U) for T != U). Minor discrepancies are supported if they make general sense (e.g. F_p and F_{p^k}, but not F_p and Q_p); t_FFELT and t_POLMOD of t_INTMODs are considered inconsistent, even if they define the same field : if you need to use simultaneously these different finite field implementations, multiply the polynomial by a t_FFELT equal to 1 first.

* 0: none of the others (presumably multivariate, possibly inconsistent).

* t_INT: defined over Q (not necessarily Z).

* t_INTMOD: defined over Z/pZ, where *ptp is set to p. It is not checked whether p is prime.

* t_COMPLEX: defined over C (at least one t_COMPLEX with at least one inexact floating point t_REAL component). Set *ptprec to the minimal accuracy (as per precision) of inexact components.

* t_REAL: defined over R (at least one inexact floating point t_REAL component). Set *ptprec to the minimal accuracy (as per precision) of inexact components.

* t_PADIC: defined over Q_p, where *ptp is set to p and *ptprec to the p-adic accuracy.

* t_FFELT: defined over a finite field F_{p^k}, where *ptp is set to the field characteristic p and *ptpol is set to a t_FFELT belonging to the field.

* other values are composite corresponding to quotients R[X]/(T), with one primary type t1, describing the form of the quotient, and a secondary type t2, describing R. If t is the RgX_type, t1 and t2 are recovered using

void RgX_type_decode(long t, long *t1, long *t2)

t1 is one of

t_POLMOD : at least one t_POLMOD component, set *ppol to the modulus,

t_QUAD : no t_POLMOD, at least one t_QUAD component, set *ppol to the modulus (-.pol) of the t_QUAD,

t_COMPLEX : no t_POLMOD or t_QUAD, at least one t_COMPLEX component, set *ppol to y^2 + 1.

and the underlying base ring R is given by t2, which is one of t_INT, t_INTMOD (set *ptp) or t_PADIC (set *ptp and *ptprec), with the same meaning as above.

int RgX_type_is_composite(long t) t as returned by RgX_type, return 1 if t is a composite type, and 0 otherwise.

GEN RgX_get_0(GEN x) returns 0 in the base ring over which x is defined, to the proper accuracy (e.g. 0, Mod(0,3), O(5^10)).

GEN RgX_get_1(GEN x) returns 1 in the base ring over which x is defined, to the proper accuracy (e.g. 0, Mod(0,3),

int RgX_isscalar(GEN x) return 1 if x all the coefficients of x of degree > 0 are 0 (as per gequal0).

GEN RgX_add(GEN x,GEN y) adds x and y.

GEN RgX_sub(GEN x,GEN y) subtracts x and y.

GEN RgX_neg(GEN x) returns -x.

GEN RgX_Rg_add(GEN y, GEN x) returns x+y.

GEN RgX_Rg_add_shallow(GEN y, GEN x) returns x+y; shallow function.

GEN Rg_RgX_sub(GEN x, GEN y)

GEN RgX_Rg_sub(GEN y, GEN x) returns x-y

GEN RgX_mul(GEN x, GEN y) multiplies the two t_POL (in the same variable) x and y. Uses Karatsuba algorithm.

GEN RgX_mulspec(GEN a, GEN b, long na, long nb). Internal routine: a and b are arrays of coefficients representing polynomials sum_{i = 0}^{na-1} a[i] X^i and sum_{i = 0}^{nb-1} b[i] X^i. Returns their product (as a true GEN).

GEN RgX_sqr(GEN x) squares the t_POL x. Uses Karatsuba algorithm.

GEN RgX_sqrspec(GEN a, long na). Internal routine: a is an array of coefficients representing polynomial sum_{i = 0}^{na-1} a[i] X^i. Return its square (as a true GEN).

GEN RgX_divrem(GEN x, GEN y, GEN *r) by default, returns the Euclidean quotient and store the remainder in r. Three special values of r change that behavior * NULL: do not store the remainder, used to implement RgX_div,

* ONLY_REM: return the remainder, used to implement RgX_rem,

* ONLY_DIVIDES: return the quotient if the division is exact, and NULL otherwise.

GEN RgX_div(GEN x, GEN y)

GEN RgX_div_by_X_x(GEN A, GEN a, GEN *r) returns the quotient of the RgX A by (X - a), and sets r to the remainder A(a).

GEN RgX_rem(GEN x, GEN y)

GEN RgX_pseudodivrem(GEN x, GEN y, GEN *ptr) compute a pseudo-quotient q and pseudo-remainder r such that lc(y)^{ deg (x) - deg (y) + 1}x = qy + r. Return q and set *ptr to r.

GEN RgX_pseudorem(GEN x, GEN y) return the remainder in the pseudo-division of x by y.

GEN RgXQX_pseudorem(GEN x, GEN y, GEN T) return the remainder in the pseudo-division of x by y over R[X]/(T).

GEN RgXQX_pseudodivrem(GEN x, GEN y, GEN T, GEN *ptr) compute a pseudo-quotient q and pseudo-remainder r such that lc(y)^{ deg (x) - deg (y) + 1}x = qy + r in R[X]/(T). Return q and set *ptr to r.

GEN RgX_mulXn(GEN x, long n) returns x * t^n. This may be a t_FRAC if n < 0 and the valuation of x is not large enough.

GEN RgX_shift(GEN x, long n) returns x * t^n if n >= 0, and x \t^{-n} otherwise.

GEN RgX_shift_shallow(GEN x, long n) as RgX_shift, but shallow (coefficients are not copied).

long RgX_valrem(GEN P, GEN *pz) returns the valuation v of the t_POL P with respect to its main variable X. Check whether coefficients are 0 using gequal0. Set *pz to RgX_shift_shallow(P,-v).

long RgX_val(GEN P) returns the valuation v of the t_POL P with respect to its main variable X. Check whether coefficients are 0 using gequal0.

long RgX_valrem_inexact(GEN P, GEN *z) as RgX_valrem, using isexactzero instead of gequal0.

GEN RgX_deriv(GEN x) returns the derivative of x with respect to its main variable.

GEN RgX_gcd(GEN x, GEN y) returns the GCD of x and y, assumed to be t_POLs in the same variable.

GEN RgX_gcd_simple(GEN x, GEN y) as RgX_gcd using a standard extended Euclidean algorithm. Usually slower than RgX_gcd.

GEN RgX_extgcd(GEN x, GEN y, GEN *u, GEN *v) returns d = {GCD}(x,y), and sets *u, *v to the Bezout coefficients such that *ux + *vy = d. Uses a generic subresultant algorithm.

GEN RgX_extgcd_simple(GEN x, GEN y, GEN *u, GEN *v) as RgX_extgcd using a standard extended Euclidean algorithm. Usually slower than RgX_extgcd.

GEN RgX_disc(GEN x) returns the discriminant of the t_POL x with respect to its main variable.

GEN RgX_resultant_all(GEN x, GEN y, GEN *sol) returns resultant(x,y). If sol is not NULL, sets it to the last non-zero remainder in the polynomial remainder sequence if it exists and to gen_0 otherwise (e.g. one polynomial has degree 0). Compared to resultant_all, this function always uses the generic subresultant algorithm, hence always computes sol.

GEN RgX_modXn_shallow(GEN x, long n) return x % t^n, where n >= 0. Shallow function.

GEN RgX_renormalize(GEN x) remove leading terms in x which are equal to (necessarily inexact) zeros.

GEN RgX_gtofp(GEN x, GEN prec) returns the polynomial obtained by applying

    gtofp(gel(x,i), prec)

to all coefficients of x.

GEN RgX_fpnorml2(GEN x, long prec) returns (a stack-clean variant of)

    gnorml2( RgX_gtofp(x, prec) )

GEN RgX_recip(GEN P) returns the reverse of the polynomial P, i.e. X^{ deg P} P(1/X).

GEN RgX_recip_shallow(GEN P) shallow function of RgX_recip.

GEN RgX_deflate(GEN P, long d) assuming P is a polynomial of the form Q(X^d), return Q. Shallow function, not suitable for gerepileupto.

long RgX_deflate_max(GEN P, long *d) sets d to the largest exponent such that P is of the form P(x^d) (use gequal0 to check whether coefficients are 0), 0 if P is the zero polynomial. Returns RgX_deflate(P,d).

GEN RgX_inflate(GEN P, long d) return P(X^d). Shallow function, not suitable for gerepileupto.

GEN RgX_rescale(GEN P, GEN h) returns h^{ deg (P)} P(x/h). P is an RgX and h is non-zero. (Leaves small objects on the stack. Suitable but inefficient for gerepileupto.)

GEN RgX_unscale(GEN P, GEN h) returns P(h x). (Leaves small objects on the stack. Suitable but inefficient for gerepileupto.)

GEN RgXV_unscale(GEN v, GEN h) apply RgX_unscale to a vector of RgX.

int RgX_is_rational(GEN P) return 1 is the RgX P has only rational coefficients (t_INT and t_FRAC), and 0 otherwise.

int RgX_is_ZX(GEN P) return 1 is the RgX P has only t_INT coefficients, and 0 otherwise.

int RgX_is_monomial(GEN x) returns 1 (true) if x is a non-zero monomial in its main variable, 0 otherwise.

long RgX_equal(GEN x, GEN y) returns 1 if the t_POLs x and y have the same degpol and their coefficients are equal (as per gequal). Variable numbers are not checked. Note that this is more stringent than gequal(x,y), which only checks whether x - y satisfies gequal0; in particular, they may have different apparent degrees provided the extra leading terms are 0.

long RgX_equal_var(GEN x, GEN y) returns 1 if x and y have the same variable number and RgX_equal(x,y) is 1.

GEN RgXQ_mul(GEN y, GEN x, GEN T) computes xy mod T

GEN RgXQ_sqr(GEN x, GEN T) computes x^2 mod T

GEN RgXQ_inv(GEN x, GEN T) return the inverse of x mod T.

GEN RgXQ_pow(GEN x, GEN n, GEN T) computes x^n mod T

GEN RgXQ_powu(GEN x, ulong n, GEN T) computes x^n mod T, n being an ulong.

GEN RgXQ_powers(GEN x, long n, GEN T) returns [x^0, ..., x^n] as a t_VEC of RgXQs.

int RgXQ_ratlift(GEN x, GEN T, long amax, long bmax, GEN *P, GEN *Q) Assuming that amax+bmax < deg T, attempts to recognize x as a rational function a/b, i.e. to find t_POLs P and Q such that

* P = Q x modulo T,

* deg P <= amax, deg Q <= bmax,

* gcd(T,P) = gcd(P,Q).

If unsuccessful, the routine returns 0 and leaves P, Q unchanged; otherwise it returns 1 and sets P and Q.

GEN RgXQ_reverse(GEN f, GEN T) returns a t_POL g of degree < n = {deg}S< >T such that T(x) divides (g o f)(x) - x, by solving a linear system. Low-level function underlying modreverse: it returns a lift of \kbd[modreverse(f,T)]; faster than the high-level function since it needs not compute the characteristic polynomial of f mod T (often already known in applications). In the trivial case where n <= 1, returns a scalar, not a constant t_POL.

GEN RgXQ_matrix_pow(GEN y, long n, long m, GEN P) returns RgXQ_powers(y,m-1,P), as a matrix of dimension n >= deg P.

GEN RgXQ_norm(GEN x, GEN T) returns the norm of Mod(x, T).

GEN RgXQ_charpoly(GEN x, GEN T, long v) returns the characteristic polynomial of Mod(x, T), in variable v.

GEN RgX_RgXQ_eval(GEN f, GEN x, GEN T) returns f(x) modulo T.

GEN RgX_RgXQV_eval(GEN f, GEN V) as RgX_RgXQ_eval(f, x, T), assuming V was output by RgXQ_powers(x, n, T).

GEN QX_ZXQV_eval(GEN f, GEN nV, GEN dV) as RgX_RgXQV_eval, except that f is assumed to be a QX, V is given implicitly by a numerator nV (ZV) and denominator dV (a positive t_INT or NULL for trivial denominator). Not memory clean, but suitable for gerepileupto.

GEN RgX_translate(GEN P, GEN c) assume c is a scalar or a polynomials whose main variable has lower priority than the main variable X of P. Returns P(X + c) (optimized for c = +- 1).

GEN RgXQX_translate(GEN P, GEN c, GEN T) assume the main variable X of P has higher priority than the main variable Y of T and c. Return a lift of P(X+{Mod}(c(Y), T(Y))).

GEN RgXQC_red(GEN z, GEN T) z a vector whose coefficients are RgXs (arbitrary GENs in fact), reduce them to RgXQs (applying grem coefficientwise) in a t_COL.

GEN RgXQV_red(GEN z, GEN T) z a t_POL whose coefficients are RgXs (arbitrary GENs in fact), reduce them to RgXQs (applying grem coefficientwise) in a t_VEC.

GEN RgXQX_red(GEN z, GEN T) z a t_POL whose coefficients are RgXs (arbitrary GENs in fact), reduce them to RgXQs (applying grem coefficientwise).

GEN RgXQX_mul(GEN x, GEN y, GEN T)

GEN RgX_Rg_mul(GEN y, GEN x) multiplies the RgX y by the scalar x.

GEN RgX_muls(GEN y, long s) multiplies the RgX y by the long s.

GEN RgX_Rg_div(GEN y, GEN x) divides the RgX y by the scalar x.

GEN RgX_divs(GEN y, long s) divides the RgX y by the long s.

GEN RgX_Rg_divexact(GEN x, GEN y) exact division of the RgX y by the scalar x.

GEN RgXQX_RgXQ_mul(GEN x, GEN y, GEN T) multiplies the RgXQX y by the scalar (RgXQ) x.

GEN RgXQX_sqr(GEN x, GEN T)

GEN RgXQX_divrem(GEN x, GEN y, GEN T, GEN *pr)

GEN RgXQX_div(GEN x, GEN y, GEN T, GEN *r)

GEN RgXQX_rem(GEN x, GEN y, GEN T, GEN *r)

\newpage


NAME

libPARI - Operations on general PARI objects


Assignment

It is in general easier to use a direct conversion, e.g. y = stoi(s), than to allocate a target of correct type and sufficient size, then assign to it:

    GEN y = cgeti(3); affsi(s, y);

These functions can still be moderately useful in complicated garbage collecting scenarios but you will be better off not using them.

void gaffsg(long s, GEN x) assigns the long s into the object x.

void gaffect(GEN x, GEN y) assigns the object x into the object y. Both x and y must be scalar types. Type conversions (e.g. from t_INT to t_REAL or t_INTMOD) occur if legitimate.

int is_universal_constant(GEN x) returns 1 if x is a global PARI constant you should never assign to (such as gen_1), and 0 otherwise.


Conversions

Scalars

double rtodbl(GEN x) applied to a t_REAL x, converts x into a double if possible.

GEN dbltor(double x) converts the double x into a t_REAL.

long dblexpo(double x) returns expo(dbltor(x)), but faster and without cluttering the stack.

ulong dblmantissa(double x) returns the most significant word in the mantissa of dbltor(x).

double gtodouble(GEN x) if x is a real number (not necessarily a t_REAL), converts x into a double if possible.

long gtos(GEN x) converts the t_INT x to a small integer if possible, otherwise raise an exception. This function is similar to itos, slightly slower since it checks the type of x.

double dbllog2r(GEN x) assuming x is a non-zero t_REAL, returns an approximation to log2(|x|).

long gtolong(GEN x) if x is an integer (not necessarily a t_INT), converts x into a long if possible.

GEN fractor(GEN x, long l) applied to a t_FRAC x, converts x into a t_REAL of length prec.

GEN quadtofp(GEN x, long l) applied to a t_QUAD x, converts x into a t_REAL or t_COMPLEX depending on the sign of the discriminant of x, to precision l BIL-bit words.

GEN cxtofp(GEN x, long prec) converts the t_COMPLEX x to a a complex whose real and imaginary parts are t_REAL of length prec (special case of gtofp.

GEN cxcompotor(GEN x, long prec) converts the t_INT, t_REAL or t_FRAC x to a t_REAL of length prec. These are all the real types which may occur as components of a t_COMPLEX; special case of gtofp (introduced so that the latter is not recursive and can thus be inlined).

GEN gtofp(GEN x, long prec) converts the complex number x (t_INT, t_REAL, t_FRAC, t_QUAD or t_COMPLEX) to either a t_REAL or t_COMPLEX whose components are t_REAL of precision prec; not necessarily of length prec: a real 0 may be given as real_0(...)). If the result is a t_COMPLEX extra care is taken so that its modulus really has accuracy prec: there is a problem if the real part of the input is an exact 0; indeed, converting it to real_0(prec) would be wrong if the imaginary part is tiny, since the modulus would then become equal to 0, as in 1.E-100 + 0.E-28 = 0.E-28.

GEN gcvtop(GEN x, GEN p, long l) converts x into a t_PADIC of precision l. Works componentwise on recursive objects, e.g. t_POL or t_VEC. Converting 0 yields O(p^l); converting a non-zero number yield a result well defined modulo p^{v_p(x) + l}.

GEN cvtop(GEN x, GEN p, long l) as gcvtop, assuming that x is a scalar.

GEN cvtop2(GEN x, GEN y) y being a p-adic, converts the scalar x to a p-adic of the same accuracy. Shallow function.

GEN cvstop2(long s, GEN y) y being a p-adic, converts the scalar s to a p-adic of the same accuracy. Shallow function.

GEN gprec(GEN x, long l) returns a copy of x whose precision is changed to l digits. The precision change is done recursively on all components of x. Digits means decimal, p-adic and X-adic digits for t_REAL, t_SER, t_PADIC components, respectively.

GEN gprec_w(GEN x, long l) returns a shallow copy of x whose t_REAL components have their precision changed to l words. This is often more useful than gprec.

GEN gprec_wtrunc(GEN x, long l) returns a shallow copy of x whose t_REAL components have their precision truncated to l words. Contrary to gprec_w, this function may never increase the precision of x.

Modular objects

GEN gmodulo(GEN x, GEN y) creates the object Mod(x,y) on the PARI stack, where x and y are either both t_INTs, and the result is a t_INTMOD, or x is a scalar or a t_POL and y a t_POL, and the result is a t_POLMOD.

GEN gmodulgs(GEN x, long y) same as gmodulo except y is a long.

GEN gmodulsg(long x, GEN y) same as gmodulo except x is a long.

GEN gmodulss(long x, long y) same as gmodulo except both x and y are longs.

Between polynomials and coefficient arrays

GEN gtopoly(GEN x, long v) converts or truncates the object x into a t_POL with main variable number v. A common application would be the conversion of coefficient vectors (coefficients are given by decreasing degree). E.g. [2,3] goes to 2*v + 3

GEN gtopolyrev(GEN x, long v) converts or truncates the object x into a t_POL with main variable number v, but vectors are converted in reverse order compared to gtopoly (coefficients are given by increasing degree). E.g. [2,3] goes to 3*v + 2. In other words the vector represents a polynomial in the basis (1,v,v^2,v^3,...).

GEN normalizepol(GEN x) applied to an unnormalized t_POL x (with all coefficients correctly set except that leading_term(x) might be zero), normalizes x correctly in place and returns x. For internal use. Normalizing means deleting all leading exact zeroes (as per isexactzero), except if the polynomial turns out to be 0, in which case we try to find a coefficient c which is a non-rational zero, and return the constant polynomial c. (We do this so that information about the base ring is not lost.)

GEN normalizepol_lg(GEN x, long l) applies normalizepol to x, pretending that lg(x) is l, which must be less than or equal to lg(x). If equal, the function is equivalent to normalizepol(x).

GEN normalizepol_approx(GEN x, long lx) as normalizepol_lg, with the difference that we just delete all leading zeroes (as per gequal0). This rougher normalization is used when we have no other choice, for instance before attempting a Euclidean division by x.

The following routines do not copy coefficients on the stack (they only move pointers around), hence are very fast but not suitable for gerepile calls. Recall that an RgV (resp. an RgX, resp. an RgM) is a t_VEC or t_COL (resp. a t_POL, resp. a t_MAT) with arbitrary components. Similarly, an RgXV is a t_VEC or t_COL with RgX components, etc.

GEN RgV_to_RgX(GEN x, long v) converts the RgV x to a (normalized) polynomial in variable v (as gtopolyrev, without copy).

GEN RgX_to_RgV(GEN x, long N) converts the t_POL x to a t_COL v with N components. Other types than t_POL are allowed for x, which is then considered as a constant polynomial. Coefficients of x are listed by increasing degree, so that y[i] is the coefficient of the term of degree i-1 in x.

GEN RgM_to_RgXV(GEN x, long v) converts the RgM x to a t_VEC of RgX, by repeated calls to RgV_to_RgX.

GEN RgXV_to_RgM(GEN v, long N) converts the vector of RgX v to a t_MAT with N rows, by repeated calls to RgX_to_RgV.

GEN RgM_to_RgXX(GEN x, long v,long w) converts the RgM x into a t_POL in variable v, whose coefficients are t_POLs in variable w. This is a shortcut for

    RgV_to_RgX( RgM_to_RgXV(x, w), v );

There are no consistency checks with respect to variable priorities: the above is an invalid object if varncmp(v, w) >= 0.

GEN RgXX_to_RgM(GEN x, long N) converts the t_POL x with RgX (or constant) coefficients to a matrix with N rows.

GEN RgXY_swap(GEN P, long n, long w) converts the bivariate polynomial P(u,v) (a t_POL with t_POL coefficients) to P(pol_x[w],u), assuming n is an upper bound for deg _v(P).

GEN RgX_to_ser(GEN x, long l) applied to a t_POL x, creates a shallow t_SER of length l >= 2 starting with x. Unless the polynomial is an exact zero, the coefficient of lowest degree T^d of the result is not an exact zero (as per isexactzero). The remainder is O(T^{d+l}).

GEN RgX_to_ser_inexact(GEN x, long l) applied to a t_POL x, creates a shallow t_SER of length l starting with x. Unless the polynomial is zero, the coefficient of lowest degree T^d of the result is not zero (as per gequal0). The remainder is O(T^{d+l}).

GEN gtoser(GEN x, long v) converts the object x into a t_SER with main variable number v.

GEN gtocol(GEN x) converts the object x into a t_COL

GEN gtomat(GEN x) converts the object x into a t_MAT.

GEN gtovec(GEN x) converts the object x into a t_VEC.

GEN gtovecsmall(GEN x) converts the object x into a t_VECSMALL.

GEN normalize(GEN x) applied to an unnormalized t_SER x (i.e. type t_SER with all coefficients correctly set except that x[2] might be zero), normalizes x correctly in place. Returns x. For internal use.


Constructors

Clean constructors

GEN zeropadic(GEN p, long n) creates a 0 t_PADIC equal to O(p^n).

GEN zeroser(long v, long n) creates a 0 t_SER in variable v equal to O(X^n).

GEN scalarser(GEN x, long v, long prec) creates a constant t_SER in variable v and precision prec, whose constant coefficient is (a copy of) x, in other words x + O(v^prec). Assumes that x is non-zero.

GEN pol_0(long v) Returns the constant polynomial 0 in variable v.

GEN pol_1(long v) Returns the constant polynomial 1 in variable v.

GEN pol_x(long v) Returns the monomial of degree 1 in variable v.

GEN pol_x_powers(long N, long v) returns the powers of pol_x(v), of degree 0 to N, in a vector with N+1 components.

GEN scalarpol(GEN x, long v) creates a constant t_POL in variable v, whose constant coefficient is (a copy of) x.

GEN deg1pol(GEN a, GEN b,long v) creates the degree 1 t_POL a + b pol_x(v)

GEN zeropol(long v) is identical pol_0.

GEN zerocol(long n) creates a t_COL with n components set to gen_0.

GEN zerovec(long n) creates a t_VEC with n components set to gen_0.

GEN col_ei(long n, long i) creates a t_COL with n components set to gen_0, but for the i-th one which is set to gen_1 (i-th vector in the canonical basis).

GEN vec_ei(long n, long i) creates a t_VEC with n components set to gen_0, but for the i-th one which is set to gen_1 (i-th vector in the canonical basis).

GEN Rg_col_ei(GEN x, long n, long i) creates a t_COL with n components set to gen_0, but for the i-th one which is set to x.

GEN vecsmall_ei(long n, long i) creates a t_VECSMALL with n components set to 0, but for the i-th one which is set to 1 (i-th vector in the canonical basis).

GEN scalarcol(GEN x, long n) creates a t_COL with n components set to gen_0, but the first one which is set to a copy of x. (The name comes from RgV_isscalar.)

GEN mkintmodu(ulong x, ulong y) creates the t_INTMOD Mod(x, y). The inputs must satisfy x < y.

GEN zeromat(long m, long n) creates a t_MAT with m x n components set to gen_0. Note that the result allocates a single column, so modifying an entry in one column modifies it in all columns. To fully allocate a matrix initialized with zero entries, use zeromatcopy.

GEN zeromatcopy(long m, long n) creates a t_MAT with m x n components set to gen_0.

GEN matid(long n) identity matrix in dimension n (with components gen_1 andgen_0).

GEN scalarmat(GEN x, long n) scalar matrix, x times the identity.

GEN scalarmat_s(long x, long n) scalar matrix, stoi(x) times the identity.

See also next section for analogs of the following functions:

GEN mkfraccopy(GEN x, GEN y) creates the t_FRAC x/y. Assumes that y > 1 and (x,y) = 1.

GEN mkcolcopy(GEN x) creates a 1-dimensional t_COL containing x.

GEN mkmatcopy(GEN x) creates a 1-by-1 t_MAT containing x.

GEN mkveccopy(GEN x) creates a 1-dimensional t_VEC containing x.

GEN mkvec2copy(GEN x, GEN y) creates a 2-dimensional t_VEC equal to [x,y].

GEN mkvecs(long x) creates a 1-dimensional t_VEC containing stoi(x).

GEN mkvec2s(long x, long y) creates a 2-dimensional t_VEC containing [stoi(x), stoi(y)].

GEN mkvec3s(long x, long y, long z) creates a 3-dimensional t_VEC containing [stoi(x), stoi(y), stoi(z)].

GEN mkvecsmall(long x) creates a 1-dimensional t_VECSMALL containing x.

GEN mkvecsmall2(long x, long y) creates a 2-dimensional t_VECSMALL containing [x, y].

GEN mkvecsmall3(long x, long y, long z) creates a 3-dimensional t_VECSMALL containing [x, y, z].

GEN mkvecsmall4(long x, long y, long z, long t) creates a 4-dimensional t_VECSMALL containing [x, y, z, t].

GEN mkvecsmalln(long n, ...) returns the t_VECSMALL whose n coefficients (long) follow.

Unclean constructors

Contrary to the policy of general PARI functions, the functions in this subsection do not copy their arguments, nor do they produce an object a priori suitable for gerepileupto. In particular, they are faster than their clean equivalent (which may not exist). If you restrict their arguments to universal objects (e.g gen_0), then the above warning does not apply.

GEN mkcomplex(GEN x, GEN y) creates the t_COMPLEX x + iy.

GEN mulcxI(GEN x) creates the t_COMPLEX ix. The result in general contains data pointing back to the original x. Use gcopy if this is a problem. But in most cases, the result is to be used immediately, before x is subject to garbage collection.

GEN mulcxmI(GEN x), as mulcxI, but returns the t_COMPLEX -ix.

GEN mkquad(GEN n, GEN x, GEN y) creates the t_QUAD x + yw, where w is a root of n, which is of the form quadpoly(D).

GEN mkfrac(GEN x, GEN y) creates the t_FRAC x/y. Assumes that y > 1 and (x,y) = 1.

GEN mkrfrac(GEN x, GEN y) creates the t_RFRAC x/y. Assumes that y is a t_POL, x a compatible type whose variable has lower or same priority, with (x,y) = 1.

GEN mkcol(GEN x) creates a 1-dimensional t_COL containing x.

GEN mkcol2(GEN x, GEN y) creates a 2-dimensional t_COL equal to [x,y].

GEN mkintmod(GEN x, GEN y) creates the t_INTMOD Mod(x, y). The inputs must be t_INTs satisfying 0 <= x < y.

GEN mkpolmod(GEN x, GEN y) creates the t_POLMOD Mod(x, y). The input must satisfy deg x < deg y with respect to the main variable of the t_POL y. x may be a scalar.

GEN mkmat(GEN x) creates a 1-column t_MAT with column x (a t_COL).

GEN mkmat2(GEN x, GEN y) creates a 2-column t_MAT with columns x, y (t_COLs of the same length).

GEN mkvec(GEN x) creates a 1-dimensional t_VEC containing x.

GEN mkvec2(GEN x, GEN y) creates a 2-dimensional t_VEC equal to [x,y].

GEN mkvec3(GEN x, GEN y, GEN z) creates a 3-dimensional t_VEC equal to [x,y,z].

GEN mkvec4(GEN x, GEN y, GEN z, GEN t) creates a 4-dimensional t_VEC equal to [x,y,z,t].

GEN mkvec5(GEN a1, GEN a2, GEN a3, GEN a4, GEN a5) creates the 5-dimensional t_VEC equal to [a_1,a_2,a_3,a_4,a_5].

GEN mkintn(long n, ...) returns the non-negative t_INT whose development in base 2^{32} is given by the following n words (unsigned long). It is assumed that all such arguments are less than 2^{32} (the actual sizeof(long) is irrelevant, the behavior is also as above on 64-bit machines).

    mkintn(3, a2, a1, a0);

returns a_2 2^{64} + a_1 2^{32} + a_0.

GEN mkpoln(long n, ...) Returns the t_POL whose n coefficients (GEN) follow, in order of decreasing degree.

    mkpoln(3, gen_1, gen_2, gen_0);

returns the polynomial X^2 + 2X (in variable 0, use setvarn if you want other variable numbers). Beware that n is the number of coefficients, hence one more than the degree.

GEN mkvecn(long n, ...) returns the t_VEC whose n coefficients (GEN) follow.

GEN mkcoln(long n, ...) returns the t_COL whose n coefficients (GEN) follow.

GEN scalarcol_shallow(GEN x, long n) creates a t_COL with n components set to gen_0, but the first one which is set to a shallow copy of x. (The name comes from RgV_isscalar.)

GEN scalarmat_shallow(GEN x, long n) creates an n x n scalar matrix whose diagonal is set to shallow copies of the scalar x.

GEN diagonal_shallow(GEN x) returns a diagonal matrix whose diagonal is given by the vector x. Shallow function.

GEN deg1pol_shallow(GEN a, GEN b,long v) returns the degree 1 t_POL a + b pol_x(v)

From roots to polynomials

GEN deg1_from_roots(GEN L, long v) given a vector L of scalars, returns the vector of monic linear polynomials in variable v whose roots are the L[i], i.e. the x - L[i].

GEN roots_from_deg1(GEN L) given a vector L of monic linear polynomials, return their roots, i.e. the - L[i](0).

GEN roots_to_pol(GEN L, long v) given a vector of scalars L, returns the monic polynomial in variable v whose roots are the L[i]. Calls divide_conquer_prod, so leaves some garbage on stack, but suitable for gerepileupto.

GEN roots_to_pol_r1(GEN L, long v, long r1) as roots_to_pol assuming the first r_1 roots are ``real'', and the following ones are representatives of conjugate pairs of ``complex'' roots. So if L has r_1 + r_2 elements, we obtain a polynomial of degree r_1 + 2r_2. In most applications, the roots are indeed real and complex, but the implementation assumes only that each ``complex'' root z introduces a quadratic factor X^2 - trace(z) X + norm(z). Calls divide_conquer_prod. Calls divide_conquer_prod, so leaves some garbage on stack, but suitable for gerepileupto.


Integer parts

GEN gfloor(GEN x) creates the floor of x, i.e. the (true) integral part.

GEN gfrac(GEN x) creates the fractional part of x, i.e. x minus the floor of x.

GEN gceil(GEN x) creates the ceiling of x.

GEN ground(GEN x) rounds towards + oo the components of x to the nearest integers.

GEN grndtoi(GEN x, long *e) same as ground, but in addition sets *e to the binary exponent of x - ground(x). If this is positive, all significant bits are lost. This kind of situation raises an error message in ground but not in grndtoi.

GEN gtrunc(GEN x) truncates x. This is the false integer part if x is a real number (i.e. the unique integer closest to x among those between 0 and x). If x is a t_SER, it is truncated to a t_POL; if x is a t_RFRAC, this takes the polynomial part.

GEN gtrunc2n(GEN x, long n) creates the floor of 2^nx, this is only implemented for t_INT, t_REAL, t_FRAC and t_COMPLEX of those.

GEN gcvtoi(GEN x, long *e) analogous to grndtoi for t_REAL inputs except that rounding is replaced by truncation. Also applies componentwise for vector or matrix inputs; otherwise, sets *e to -HIGHEXPOBIT (infinite real accuracy) and return gtrunc(x).


Valuation and shift

GEN gshift[z](GEN x, long n[, GEN z]) yields the result of shifting (the components of) x left by n (if n is non-negative) or right by -n (if n is negative). Applies only to t_INT and vectors/matrices of such. For other types, it is simply multiplication by 2^{n}.

GEN gmul2n[z](GEN x, long n[, GEN z]) yields the product of x and 2^{n}. This is different from gshift when n is negative and x is a t_INT: gshift truncates, while gmul2n creates a fraction if necessary.

long ggval(GEN x, GEN p) returns the greatest exponent e such that p^e divides x, when this makes sense.

long gval(GEN x, long v) returns the highest power of the variable number v dividing the t_POL x.


Comparison operators

Generic

long gcmp(GEN x, GEN y) comparison of x with y (returns the sign (-1, 0 or 1) of x-y).

long lexcmp(GEN x, GEN y) comparison of x with y for the lexicographic ordering.

int gcmpX(GEN x) return 1 (true) if x is a variable (monomial of degree 1 with t_INT coefficients equal to 1 and 0), and 0 otherwise

long gequal(GEN x, GEN y) returns 1 (true) if x is equal to y, 0 otherwise. A priori, this makes sense only if x and y have the same type, in which case they are recursively compared componentwise. When the types are different, a true result means that x - y was successfully computed and that gequal0 found it equal to 0. In particular

    gequal(cgetg(1, t_VEC), gen_0)

is true, and the relation is not transitive. E.g. an empty t_COL and an empty t_VEC are not equal but are both equal to gen_0.

long gidentical(GEN x, GEN y) returns 1 (true) if x is identical to y, 0 otherwise. In particular, the types and length of x and y must be equal. This test is much stricter than gequal, in particular, t_REAL with different accuracies are tested different. This relation is transitive.

Comparison with a small integer

int isexactzero(GEN x) returns 1 (true) if x is exactly equal to 0 (including t_INTMODs like Mod(0,2)), and 0 (false) otherwise. This includes recursive objects, for instance vectors, whose components are 0.

int isrationalzero(GEN x) returns 1 (true) if x is equal to an integer 0 (excluding t_INTMODs like Mod(0,2)), and 0 (false) otherwise. Contrary to isintzero, this includes recursive objects, for instance vectors, whose components are 0.

int ismpzero(GEN x) returns 1 (true) if x is a t_INT or a t_REAL equal to 0.

int isintzero(GEN x) returns 1 (true) if x is a t_INT equal to 0.

int isint1(GEN x) returns 1 (true) if x is a t_INT equal to 1.

int isintm1(GEN x) returns 1 (true) if x is a t_INT equal to -1.

int equali1(GEN n) Assuming that x is a t_INT, return 1 (true) if x is equal to 1, and return 0 (false) otherwise.

int equalim1(GEN n) Assuming that x is a t_INT, return 1 (true) if x is equal to -1, and return 0 (false) otherwise.

int is_pm1(GEN x). Assuming that x is a non-zero t_INT, return 1 (true) if x is equal to -1 or 1, and return 0 (false) otherwise.

int gequal0(GEN x) returns 1 (true) if x is equal to 0, 0 (false) otherwise.

int gequal1(GEN x) returns 1 (true) if x is equal to 1, 0 (false) otherwise.

int gequalm1(GEN x) returns 1 (true) if x is equal to -1, 0 (false) otherwise.

long gcmpsg(long s, GEN x)

long gcmpgs(GEN x, long s) comparison of x with the long s.

GEN gmaxsg(long s, GEN x)

GEN gmaxgs(GEN x, long s) returns the largest of x and the long s (converted to GEN)

GEN gminsg(long s, GEN x)

GEN gmings(GEN x, long s) returns the smallest of x and the long s (converted to GEN)

long gequalsg(long s, GEN x)

long gequalgs(GEN x, long s) returns 1 (true) if x is equal to the long s, 0 otherwise.


Miscellaneous Boolean functions

int isrationalzeroscalar(GEN x) equivalent to, but faster than,

    is_scalar_t(typ(x)) && isrationalzero(x)

int isinexact(GEN x) returns 1 (true) if x has an inexact component, and 0 (false) otherwise.

int isinexactreal(GEN x) return 1 if x has an inexact t_REAL component, and 0 otherwise.

int isrealappr(GEN x, long e) applies (recursively) to complex inputs; returns 1 if x is approximately real to the bit accuracy e, and 0 otherwise. This means that any t_COMPLEX component must have imaginary part t satisfying gexpo(t) < e.

int isint(GEN x, GEN *n) returns 0 (false) if x does not round to an integer. Otherwise, returns 1 (true) and set n to the rounded value.

int issmall(GEN x, long *n) returns 0 (false) if x does not round to a small integer (suitable for itos). Otherwise, returns 1 (true) and set n to the rounded value.

long iscomplex(GEN x) returns 1 (true) if x is a complex number (of component types embeddable into the reals) but is not itself real, 0 if x is a real (not necessarily of type t_REAL), or raises an error if x is not embeddable into the complex numbers.

Obsolete

The following less convenient comparison functions and Boolean operators were used by the historical GP interpreter. They are provided for backward compatibility only and should not be used:

GEN gle(GEN x, GEN y)

GEN glt(GEN x, GEN y)

GEN gge(GEN x, GEN y)

GEN ggt(GEN x, GEN y)

GEN geq(GEN x, GEN y)

GEN gne(GEN x, GEN y)

GEN gor(GEN x, GEN y)

GEN gand(GEN x, GEN y)

GEN gnot(GEN x, GEN y)


Sorting

Basic sort

GEN sort(GEN x) sorts the vector x in ascending order using a mergesort algorithm, and gcmp as the underlying comparison routine (returns the sorted vector). This routine copies all components of x, use gen_sort_inplace for a more memory-efficient function.

GEN lexsort(GEN x), as sort, using lexcmp instead of gcmp as the underlying comparison routine.

GEN vecsort(GEN x, GEN k), as sort, but sorts the vector x in ascending lexicographic order, according to the entries of the t_VECSMALL k. For example, if k = [2,1,3], sorting will be done with respect to the second component, and when these are equal, with respect to the first, and when these are equal, with respect to the third.

Indirect sorting

GEN indexsort(GEN x) as sort, but only returns the permutation which, applied to x, would sort the vector. The result is a t_VECSMALL.

GEN indexlexsort(GEN x), as indexsort, using lexcmp instead of gcmp as the underlying comparison routine.

GEN indexvecsort(GEN x, GEN k), as vecsort, but only returns the permutation that would sort the vector x.

Generic sort and search

The following routines allow to use an arbitrary comparison function int (*cmp)(void* data, GEN x, GEN y), such that cmp(data,x,y) returns a negative result if x E<lt> y, a positive one if x > y and 0 if x = y. The data argument is there in case your cmp requires additional context.

GEN gen_sort(GEN x, void *data, int (*cmp)(void *,GEN,GEN)), as sort, with an explicit comparison routine.

GEN gen_sort_uniq(GEN x, void *data, int (*cmp)(void *,GEN,GEN)), as gen_sort, removing duplicate entries.

GEN gen_indexsort(GEN x, void *data, int (*cmp)(void*,GEN,GEN)), as indexsort.

GEN gen_indexsort_uniq(GEN x, void *data, int (*cmp)(void*,GEN,GEN)), as indexsort, removing duplicate entries.

void gen_sort_inplace(GEN x, void *data, int (*cmp)(void*,GEN,GEN), GEN *perm) sort x in place, without copying its components. If perm is non-NULL, it is set to the permutation that would sort the original x.

GEN gen_setminus(GEN A, GEN B, int (*cmp)(GEN,GEN)) given two sorted vectors A and B, returns the vector of elements of A not belonging to B.

GEN sort_factor(GEN y, void *data, int (*cmp)(void *,GEN,GEN)): assuming y is a factorization matrix, sorts its rows in place (no copy is made) according to the comparison function cmp applied to its first column.

GEN merge_factor(GEN fx, GEN fy, void *data, int (*cmp)(void *,GEN,GEN)) let fx and fy be factorization matrices for X and Y sorted with respect to the comparison function cmp (see sort_factor), returns the factorization of X * Y. Zero exponents in the latter factorization are preserved, e.g. when merging the factorization of 2 and 1/2, the result is 2^0.

long gen_search(GEN v, GEN y, long flag, void *data, int (*cmp)(void*,GEN,GEN)).\hfil

Let v be a vector sorted according to cmp(data,a,b); look for an index i such that v[i] is equal to y. flag has the same meaning as in setsearch: if flag is 0, return i if it exists and 0 otherwise; if flag is non-zero, return 0 if i exists and the index where y should be inserted otherwise.

long tablesearch(GEN T, GEN x, int (*cmp)(GEN,GEN)) is a faster implementation for the common case gen_search(T,x,0,cmp,cmp_nodata).

Further useful comparison functions

int cmp_universal(GEN x, GEN y) a somewhat arbitrary universal comparison function, devoid of sensible mathematical meaning. It is transitive, and returns 0 if and only if gidentical(x,y) is true. Useful to sort and search vectors of arbitrary data.

int cmp_nodata(void *data, GEN x, GEN y). This function is a hack used to pass an existing basic comparison function lacking the data argument, i.e. with prototype int (*cmp)(GEN x, GEN y). Instead of gen_sort(x, NULL, cmp) which may or may not work depending on how your compiler handles typecasts between incompatible function pointers, one should use gen_sort(x, (void*)cmp, cmp_nodata).

Here are a few basic comparison functions, to be used with cmp_nodata:

int ZV_cmp(GEN x, GEN y) compare two ZV, which we assume have the same length (lexicographic order).

int cmp_RgX(GEN x, GEN y) compare two polynomials, which we assume have the same main variable (lexicographic order). The coefficients are compared using gcmp.

int cmp_prime_over_p(GEN x, GEN y) compare two prime ideals, which we assume divide the same prime number. The comparison is ad hoc but orders according to increasing residue degrees.

int cmp_prime_ideal(GEN x, GEN y) compare two prime ideals in the same nf. Orders by increasing primes, breaking ties using cmp_prime_over_p.

Finally a more elaborate comparison function:

int gen_cmp_RgX(void *data, GEN x, GEN y) compare two polynomials, ordering first by increasing degree, then according to the coefficient comparison function:

    int (*cmp_coeff)(GEN,GEN) = (int(*)(GEN,GEN)) data;


Divisibility, Euclidean division

GEN gdivexact(GEN x, GEN y) returns the quotient x / y, assuming y divides x. Not stack clean if y = 1 (we return x, not a copy).

int gdvd(GEN x, GEN y) returns 1 (true) if y divides x, 0 otherwise.

GEN gdiventres(GEN x, GEN y) creates a 2-component vertical vector whose components are the true Euclidean quotient and remainder of x and y.

GEN gdivent[z](GEN x, GEN y[, GEN z]) yields the true Euclidean quotient of x and the t_INT or t_POL y.

GEN gdiventsg(long s, GEN y[, GEN z]), as gdivent except that x is a long.

GEN gdiventgs[z](GEN x, long s[, GEN z]), as gdivent except that y is a long.

GEN gmod[z](GEN x, GEN y[, GEN z]) yields the remainder of x modulo the t_INT or t_POL y. A t_REAL or t_FRAC y is also allowed, in which case the remainder is the unique real r such that 0 <= r < |y| and y = qx + r for some (in fact unique) integer q.

GEN gmodsg(long s, GEN y[, GEN z]) as gmod, except x is a long.

GEN gmodgs(GEN x, long s[, GEN z]) as gmod, except y is a long.

GEN gdivmod(GEN x, GEN y, GEN *r) If r is not equal to NULL or ONLY_REM, creates the (false) Euclidean quotient of x and y, and puts (the address of) the remainder into *r. If r is equal to NULL, do not create the remainder, and if r is equal to ONLY_REM, create and output only the remainder. The remainder is created after the quotient and can be disposed of individually with a cgiv(r).

GEN poldivrem(GEN x, GEN y, GEN *r) same as gdivmod but specifically for t_POLx and y, not necessarily in the same variable. Either of x and y may also be scalars (treated as polynomials of degree 0)

GEN gdeuc(GEN x, GEN y) creates the Euclidean quotient of the t_POLx and y. Either of x and y may also be scalars (treated as polynomials of degree 0)

GEN grem(GEN x, GEN y) creates the Euclidean remainder of the t_POL x divided by the t_POL y.

GEN gdivround(GEN x, GEN y) if x and y are t_INT, as diviiround. Operate componentwise if x is a t_COL, t_VEC or t_MAT. Otherwise as gdivent.

GEN centermod_i(GEN x, GEN y, GEN y2), as centermodii, componentwise.

GEN centermod(GEN x, GEN y), as centermod_i, except that y2 is computed (and left on the stack for efficiency).

GEN ginvmod(GEN x, GEN y) creates the inverse of x modulo y when it exists. y must be of type t_INT (in which case x is of type t_INT) or t_POL (in which case x is either a scalar type or a t_POL).


GCD, content and primitive part

Generic

GEN resultant(GEN x, GEN y) creates the resultant of the t_POLs x and y computed using Sylvester's matrix (inexact inputs), a modular algorithm (inputs in Q[X]) or the subresultant algorithm, as optimized by Lazard and Ducos. Either of x and y may also be scalars (treated as polynomials of degree 0)

GEN ggcd(GEN x, GEN y) creates the GCD of x and y.

GEN glcm(GEN x, GEN y) creates the LCM of x and y.

GEN gbezout(GEN x,GEN y, GEN *u,GEN *v) returns the GCD of x and y, and puts (the addresses of) objects u and v such that ux+vy = gcd(x,y) into *u and *v.

GEN subresext(GEN x, GEN y, GEN *U, GEN *V) returns the GCD of x and y, and puts (the addresses of) objects u and v such that ux+vy = {Res}(x,y) into *U and *V.

GEN content(GEN x) returns the GCD of all the components of x.

GEN primitive_part(GEN x, GEN *c) sets c to content(x) and returns the primitive part x / c. A trivial content is set to NULL.

GEN primpart(GEN x) as above but the content is lost. (For efficiency, the content remains on the stack.)

Over the rationals

long Q_pval(GEN x, GEN p) valuation at the t_INT p of the t_INT or t_FRAC x.

GEN Q_abs(GEN x) absolute value of the t_INT or t_FRAC x.

GEN Q_gcd(GEN x, GEN y) gcd of the t_INT or t_FRAC x and y.

In the following functions, arguments belong to a M\otimes_ZQ for some natural Z-module M, e.g. multivariate polynomials with integer coefficients (or vectors/matrices recursively built from such objects), and an element of M is said to be integral. We are interested in contents, denominators, etc. with respect to this canonical integral structure; in particular, contents belong to Q, denominators to Z. For instance the Q-content of (1/2)xy is (1/2), and its Q-denominator is 2, whereas content would return y/2 and denom 1.

GEN Q_content(GEN x) the Q-content of x

GEN Q_denom(GEN x) the Q-denominator of x

GEN Q_primitive_part(GEN x, GEN *c) sets c to the Q-content of x and returns x / c, which is integral.

GEN Q_primpart(GEN x) as above but the content is lost. (For efficiency, the content remains on the stack.)

GEN Q_remove_denom(GEN x, GEN *ptd) sets d to the Q-denominator of x and returns x * d, which is integral.

GEN Q_div_to_int(GEN x, GEN c) returns x / c, assuming c is a rational number (t_INT or t_FRAC) and the result is integral.

GEN Q_mul_to_int(GEN x, GEN c) returns x * c, assuming c is a rational number (t_INT or t_FRAC) and the result is integral.

GEN Q_muli_to_int(GEN x, GEN d) returns x * c, assuming c is a t_INT and the result is integral.

GEN mul_content(GEN cx, GEN cy) cx and cy are as set by primitive_part: either a GEN or NULL representing the trivial content 1. Returns their product (either a GEN or NULL).

GEN mul_denom(GEN dx, GEN dy) dx and dy are as set by Q_remove_denom: either a t_INT or NULL representing the trivial denominator 1. Returns their product (either a t_INT or NULL).


Generic arithmetic operators

Unary operators

GEN gneg[z](GEN x[, GEN z]) yields -x.

GEN gneg_i(GEN x) shallow function yielding -x.

GEN gabs[z](GEN x[, GEN z]) yields |x|.

GEN gsqr(GEN x) creates the square of x.

GEN ginv(GEN x) creates the inverse of x.

Binary operators

Let ``op'' be a binary operation among

op = add: addition (x + y).

op = sub: subtraction (x - y).

op = mul: multiplication (x * y).

op = div: division (x / y).

The names and prototypes of the functions corresponding to op are as follows:

GEN gop(GEN x, GEN y)

GEN gopgs(GEN x, long s)

GEN gopsg(long s, GEN y)

Explicitly

GEN gadd(GEN x, GEN y), GEN gaddgs(GEN x, long s), GEN gaddsg(GEN s, GEN x)

GEN gmul(GEN x, GEN y), GEN gmulgs(GEN x, long s), GEN gmulsg(GEN s, GEN x)

GEN gsub(GEN x, GEN y), GEN gsubgs(GEN x, long s), GEN gsubsg(GEN s, GEN x)

GEN gdiv(GEN x, GEN y), GEN gdivgs(GEN x, long s), GEN gdivsg(GEN s, GEN x)

GEN gpow(GEN x, GEN y, long l) creates x^{y}. If y is a t_INT, return powgi(x,y) (the precision l is not taken into account). Otherwise, the result is exp (y* log (x)) where exact arguments are converted to floats of precision l in case of need; if there is no need, for instance if x is a t_REAL, l is ignored. Indeed, if x is a t_REAL, the accuracy of log x is determined from the accuracy of x, it is no problem to multiply by y, even if it is an exact type, and the accuracy of the exponential is determined, exactly as in the case of the initial log x.

GEN gpowgs(GEN x, long n) creates x^{n} using binary powering. To treat the special case n = 0, we consider gpowgs as a series of gmul, so we follow the rule of returning result which is as exact as possible given the input. More precisely, we return * gen_1 if x has type t_INT, t_REAL, t_FRAC, or t_PADIC

* Mod(1,N) if x is a t_INTMOD modulo N.

* gen_1 for t_COMPLEX, t_QUAD unless one component is a t_INTMOD, in which case we return Mod(1, N) for a suitable N (the gcd of the moduli that appear).

* FF_1(x) for a t_FFELT.

* RgX_get_1(x) for a t_POL.

* qfi_1(x) and qfr_1(x) for t_QFI and t_QFR.

* the identity permutation for t_VECSMALL.

* etc. Of course, the only practical use of this routine for n = 0 is to obtain the multiplicative neutral element in the base ring (or to treat marginal cases that should be special cased anyway if there is the slightest doubt about what the result should be).

GEN powgi(GEN x, GEN y) creates x^{y}, where y is a t_INT, using left-shift binary powering. The case where y = 0 (as all cases where y is small) is handled by gpowgs(x, 0).

In addition we also have the obsolete forms:

void gaddz(GEN x, GEN y, GEN z)

void gsubz(GEN x, GEN y, GEN z)

void gmulz(GEN x, GEN y, GEN z)

void gdivz(GEN x, GEN y, GEN z)


Generic operators: product, powering, factorback

GEN divide_conquer_prod(GEN v, GEN (*mul)(GEN,GEN)) v is a vector of objects, which can be ``multiplied'' using the mul function. Return the ``product'' of the v[i] using a product tree: by convention return gen_1 if v is the empty vector, a copy of v[1] if it has a single entry; and otherwise apply the function recursively on the vector (twice smaller)

mul(v[1],v[2]), mul(v[3],v[4]),...

Only requires that mul is an associative binary operator, which need not correspond to a true multiplication. D is meant to encode an arbitrary evaluation context, set it to NULL in simple cases where you do not need this. Leaves some garbage on stack, but suitable for gerepileupto if mul is.

To describe the following functions, we use the following private typedefs to simplify the description:

    typedef (*F1)(void *, GEN);
    typedef (*F2)(void *, GEN, GEN);

They correspond to generic functions with one and two arguments respectively (the void* argument provides some arbitrary evaluation context).

GEN divide_conquer_assoc(GEN v, void *D, F2 op) general version of divide_conquer_prod. Given two objects x,y, assume that op(D, x, y) implements an associative binary operator. If v has k entries, return

  v[1] op v[2] op ... op v[k];

returns gen_1 if k = 0 and a copy of v[1] if k = 1.

GEN gen_pow(GEN x, GEN n, void *D, F1 sqr, F2 mul) n > 0 a t_INT, returns x^n; mul(D, x, y) implements the multiplication in the underlying monoid; sqr is a (presumably optimized) shortcut for mul(D, x, x).

GEN gen_powu(GEN x, ulong n, void *D, F1 sqr, F2 mul) n > 0, returns x^n. See leftright_pow.

GEN leftright_pow_fold(GEN x, GEN n, void *D, F1 sqr, F1 msqr) as gen_pow, mul being replaced by msqr, with msqr(D, y) returning xy^2. In particular D must implicitly contain x.

GEN leftright_pow_u_fold(GEN x, ulong n, void *D, F1 sqr, F1 msqr), see the previous leftright_pow_fold

GEN gen_factorback(GEN L, GEN e, F2 mul, F2 pow, void *D) generic form of factorback. The pair [L,e] is of the form

* [fa, NULL], fa a two-column factorization matrix: expand it.

* [v, NULL], v a vector of objects: return their product.

* or [v, e], v a vector of objects, e a vector of integral exponents: return the product of the v[i]^{e[i]}.

mul(D, x, y) and pow(D, x, n) return xy and x^n respectively.


Matrix and polynomial norms

This section concerns only standard norms of R and C vector spaces, not algebraic norms given by the determinant of some multiplication operator. We have already seen type-specific functions like ZM_supnorm or RgM_fpnorml2 and limit ourselves to generic functions assuming nothing about their GEN argument; these functions allow the following scalar types: t_INT, t_FRAC, t_REAL, t_COMPLEX, t_QUAD and are defined recursively (in terms of norms of their components) for the following ``container'' types: t_POL, t_VEC, t_COL and t_MAT. They raise an error if some other type appears in the argument.

GEN gnorml2(GEN x) The norm of a scalar is the square of its complex modulus, the norm of a recursive type is the sum of the norms of its components. For polynomials, vectors or matrices of complex numbers one recovers the square of the usual L^2 norm. In most applications, the missing square root computation can be skipped.

GEN gnorml1(GEN x, long prec) The norm of a scalar is its complex modulus, the norm of a recursive type is the sum of the norms of its components. For polynomials, vectors or matrices of complex numbers one recovers the the usual L^1 norm. One must include a real precision prec in case the inputs include t_COMPLEX or t_QUAD with exact rational components: a square root must be computed and we must choose an accuracy.

GEN gnorml1_fake(GEN x) as gnorml1, except that the norm of a t_QUAD x + wy or t_COMPLEX x + Iy is defined as |x| + |y|, where we use the ordinary real absolute value. This is still a norm of R vector spaces, which is easier to compute than gnorml1 and can often be used in its place.

GEN gsupnorm(GEN x, long prec) The norm of a scalar is its complex modulus, the norm of a recursive type is the max of the norms of its components. A precision prec must be included for the same reason as in gnorml1.

void gsupnorm_aux(GEN x, GEN *m, GEN *m2) Low-level function underlying gsupnorm, used as follows:

    GEN m = NULL, m2 = NULL;
    gsupnorm_aux(x, &m, &m2);

After the call, the sup norm of x is the min of m and the square root of m2; one or both of m, m2 may be NULL, in which case it must be omitted. You may initially set m and m2 to non-NULL values, in which case, the above procedure yields the max of (the initial) m, the square root of (the initial) m2, and the sup norm of x.

The strange interface is due to the fact that |z|^2 is easier to compute than |z| for a t_QUAD or t_COMPLEX z: m2 is the max of those |z|^2, and m is the max of the other |z|.


Substitution and evaluation

GEN gsubst(GEN x, long v, GEN y) substitutes the object y into x for the variable number v.

GEN poleval(GEN q, GEN x) evaluates the t_POL or t_RFRAC q at x. For convenience, a t_VEC or t_COL is also recognized as the t_POL gtovecrev(q).

GEN RgX_RgM_eval(GEN q, GEN x) evaluates the t_POL q at the square matrix x.

GEN RgX_RgMV_eval(GEN f, GEN V) returns the evaluation f(x), assuming that V was computed by FpXQ_powers(x, n) for some n > 1.

GEN RgX_RgM_eval_col(GEN q, GEN x, long c) evaluates the t_POL q at the square matrix x but only returns the c-th column of the result.

GEN qfeval(GEN q, GEN x) evaluates the quadratic form q (symmetric matrix) at x (column vector of compatible dimensions).

GEN qfevalb(GEN q, GEN x, GEN y) evaluates the polar bilinear form associated to the quadratic form q (symmetric matrix) at x, y (column vectors of compatible dimensions).

GEN hqfeval(GEN q, GEN x) evaluates the Hermitian form q (a Hermitian complex matrix) at x.

GEN qf_apply_RgM(GEN q, GEN M) q is a symmetric n x n matrix, M an n x k matrix, return M' q M.

GEN qf_apply_ZM(GEN q, GEN M) as above assuming that M has integer entries.

\newpage


NAME

libPARI - Miscellaneous mathematical functions


Fractions

GEN absfrac(GEN x) returns the absolute value of the t_FRAC x.

GEN sqrfrac(GEN x) returns the square of the t_FRAC x.


Complex numbers

GEN imag(GEN x) returns a copy of the imaginary part of x.

GEN real(GEN x) returns a copy of the real part of x. If x is a t_QUAD, returns the coefficient of 1 in the ``canonical'' integral basis (1,omega).

The last two functions are shallow, and not suitable for gerepileupto:

GEN imag_i(GEN x) as gimag, returns a pointer to the imaginary part. GEN real_i(GEN x) as greal, returns a pointer to the real part.

GEN mulreal(GEN x, GEN) returns the real part of xy; x,y have type t_INT, t_FRAC, t_REAL or t_COMPLEX. See also RgM_mulreal.

GEN cxnorm(GEN x) norm of the t_COMPLEX x (modulus squared).


Quadratic numbers and binary quadratic forms

GEN quad_disc(GEN x) returns the discriminant of the t_QUAD x.

GEN quadnorm(GEN x) norm of the t_QUAD x.

GEN qfb_disc(GEN x) returns the discriminant of the t_QFI or t_QFR x.

GEN qfb_disc3(GEN x, GEN y, GEN z) returns y^2 - 4xz assuming all inputs are t_INTs. Not stack-clean.


Polynomial and power series

GEN derivser(GEN x) returns the derivative of the t_SER x with respect to its main variable.

GEN truecoeff(GEN x, long n) returns polcoeff0(x,n, -1), i.e. the coefficient of the term of degree n in the main variable.

long degree(GEN x) returns poldegree(x, -1), the degree of x with respect to its main variable.

GEN resultant(GEN x,GEN y) resultant of x and y, with respect to the main variable of highest priority. Uses either the subresultant algorithm (generic case), a modular algorithm (inputs in Q[X]) or Sylvester's matrix (inexact inputs).

GEN resultant2(GEN x, GEN y) resultant of x and y, with respect to the main variable of highest priority. Computes the determinant of Sylvester's matrix.

GEN resultant_all(GEN u, GEN v, GEN *sol) returns resultant(x,y). If sol is not NULL, sets it to the last non-zero remainder in the polynomial remainder sequence if such a sequence was computed, and to gen_0 otherwise (e.g. polynomials of degree 0, u,v in Q[X]).


Functions to handle t_FFELT

These functions define the public interface of the t_FFELT type to use in generic functions. However, in specific functions, it is better to use the functions class FpXQ and/or Flxq as appropriate.

GEN FF_p(GEN a) returns the characteristic of the definition field of the t_FFELT element a.

GEN FF_p_i(GEN a) shallow version of FF_p.

GEN FF_mod(GEN a) returns the polynomial (with reduced t_INT coefficients) defining the finite field, in the variable used to display a.

GEN FF_to_FpXQ(GEN a) converts the t_FFELT a to a polynomial P with reduced t_INT coefficients such that a = P(g) where g is the generator of the finite field returned by ffgen, in the variable used to display g.

GEN FF_to_FpXQ_i(GEN a) shallow version of FF_to_FpXQ.

GEN FF_1(GEN a) returns the unity in the definition field of the t_FFELT element a.

GEN FF_zero(GEN a) returns the zero element of the definition field of the t_FFELT element a.

int FF_equal0(GEN a), int FF_equal1(GEN a), int FF_equalm1(GEN a) returns 1 if the t_FFELT a is equal to 0 (resp. 1, resp. -1) else 0.

int FF_equal(GEN a, GEN b) return 1 if the t_FFELT a and b have the same definition field and are equal, else 0.

int FF_samefield(GEN a, GEN b) return 1 if the t_FFELT a and b have the same definition field, else 0.

GEN FF_add(GEN a, GEN b) returns a+b where a and b are t_FFELT having the same definition field.

GEN FF_Z_add(GEN a, GEN x) returns a+x, where a is a t_FFELT, and x is a t_INT, the computation being performed in the definition field of a.

GEN FF_Q_add(GEN a, GEN x) returns a+x, where a is a t_FFELT, and x is a t_RFRAC, the computation being performed in the definition field of a.

GEN FF_sub(GEN a, GEN b) returns a-b where a and b are t_FFELT having the same definition field.

GEN FF_mul(GEN a, GEN b) returns a\*b where a and b are t_FFELT having the same definition field.

GEN FF_Z_mul(GEN a, GEN b) returns a\*x, where a is a t_FFELT, and x is a t_INT, the computation being performed in the definition field of a.

GEN FF_div(GEN a, GEN b) returns a/b where a and b are t_FFELT having the same definition field.

GEN FF_neg(GEN a) returns -a where a is a t_FFELT.

GEN FF_neg_i(GEN a) shallow function returning -a where a is a t_FFELT.

GEN FF_inv(GEN a) returns a^{-1} where a is a t_FFELT.

GEN FF_sqr(GEN a) returns a^2 where a is a t_FFELT.

GEN FF_mul2n(GEN a, long n) returns a\*2^n where a is a t_FFELT.

GEN FF_pow(GEN x, GEN n) returns a^n where a is a t_FFELT andn is a t_INT.

GEN FF_Z_Z_muldiv(GEN a, GEN x, GEN y) returns a\*y/z, where a is a t_FFELT, and x and y are t_INT, the computation being performed in the definition field of a.

GEN Z_FF_div(GEN x, GEN a) return x/a where a is a t_FFELT, and x is a t_INT, the computation being performed in the definition field of a.

GEN FF_norm(GEN a) returns the norm of the t_FFELT a with respect to its definition field.

GEN FF_trace(GEN a) returns the trace of the t_FFELT a with respect to its definition field.

GEN FF_conjvec(GEN a) returns the vector of conjugates [a,a^p,a^{p^2},...,a^{p^{n-1}}] where the t_FFELT a belong to a field with p^n elements.

GEN FF_charpoly(GEN a) returns the characteristic polynomial) of the t_FFELT a with respect to its definition field.

GEN FF_minpoly(GEN a) returns the minimal polynomial of the t_FFELT a.

GEN FF_sqrt(GEN a) returns an t_FFELT b such that a = b^2 if it exist, where a is a t_FFELT.

long FF_issquareall(GEN x, GEN *pt) returns 1 if x is a square, and 0 otherwise. If x is indeed a square, set pt to its square root.

long FF_issquare(GEN x) returns 1 if x is a square and 0 otherwise.

long FF_ispower(GEN x, GEN K, GEN *pt) Given K a positive integer, returns 1 if x is a K-th power, and 0 otherwise. If x is indeed a K-th power, set pt to its K-th root.

GEN FF_sqrtn(GEN a, GEN n, GEN *zetan) returns an n-th root of a if it exist. If zn is non-NULL set it to a primitive n-th root of the unity.

GEN FF_log(GEN a, GEN g, GEN o) the t_FFELT g being a generator for the definition field of the t_FFELT a, returns a t_INT e such that a^e = g. If e does not exists, the result is currently undefined. If o is not NULL it is assumed to be a factorization of the multiplicative order of g (as set by FF_primroot)

GEN FF_order(GEN a, GEN o) returns the order of the t_FFELT a. If o is non-NULL, it is assumed that o is a multiple of the order of a.

GEN FF_primroot(GEN a, GEN *o) returns a generator of the multiplicative group of the definition field of the t_FFELT a. If o is not NULL, set it to the factorization of the order of the primitive root (to speed up FF_log).

GEN FFX_factor(GEN f, GEN a) returns the factorization of the univariate polynomial f over the definition field of the t_FFELT a. The coefficients of f must be of type t_INT, t_INTMOD or t_FFELT and compatible with a.

GEN FFX_roots(GEN f, GEN a) returns the roots (t_FFELT) of the univariate polynomial f over the definition field of the t_FFELT a. The coefficients of f must be of type t_INT, t_INTMOD or t_FFELT and compatible with a.


Transcendental functions

The following two functions are only useful when interacting with gp, to manipulate its internal default precision (expressed as a number of decimal digits, not in words as used everywhere else):

long getrealprecision(void) returns realprecision.

long setrealprecision(long n, long *prec) sets the new realprecision to n, which is returned. As a side effect, set prec to the corresponding number of words ndec2prec(n).

Transcendental functions with t_REAL arguments

In the following routines, x is assumed to be a t_REAL and the result is a t_REAL (sometimes a t_COMPLEX with t_REAL components), with the largest accuracy which can be deduced from the input. The naming scheme is inconsistent here, since we sometimes use the prefix mp even though t_INT inputs are forbidden:

GEN sqrtr(GEN x) returns the square root of x.

GEN sqrtnr(GEN x, long n) returns the n-th root of x, assuming n >= 1 and x > 0. Not stack clean.

GEN mpcos[z](GEN x[, GEN z]) returns cos (x).

GEN mpsin[z](GEN x[, GEN z]) returns sin (x).

GEN mplog[z](GEN x[, GEN z]) returns log (x). We must have x > 0 since the result must be a t_REAL. Use glog for the general case, where you want such computations as log (-1) = I.

GEN mpexp[z](GEN x[, GEN z]) returns exp (x).

GEN mpexp1(GEN x) returns exp (x)-1, but is more accurate than subrs(mpexp(x), 1), which suffers from catastrophic cancellation if |x| is very small.

GEN mpveceint1(GEN C, GEN eC, long n) as veceint1; assumes that C > 0 is a t_REAL and that eC is NULL or mpexp(C).

GEN mpeint1(GEN x, GEN expx) returns eint1(x), for a t_REAL x >= 0, assuming that expx is mpexp(x).

GEN szeta(long s, long prec) returns the value of Riemann's zeta function at the (possibly negative) integer s != 1, in relative accuracy prec.

Useful low-level functions which disregard the sign of x:

GEN sqrtr_abs(GEN x) returns sqrt {|x|} assuming x != 0.

GEN exp1r_abs(GEN x) returns exp (|x|) - 1, assuming x != 0.

GEN logr_abs(GEN x) returns log (|x|), assuming x != 0.

A few variants on sin and cos:

void mpsincos(GEN x, GEN *s, GEN *c) sets s and c to sin (x) and cos (x) respectively, where x is a t_REAL

GEN exp_Ir(GEN x) returns exp (ix), where x is a t_REAL. The return type is t_COMPLEX unless the imaginary part is equal to 0 to the current accuracy (its sign is 0).

void gsincos(GEN x, GEN *s, GEN *c, long prec) general case.

A generalization of affrr_fixlg

GEN affc_fixlg(GEN x, GEN res) assume res was allocated using cgetc, and that x is either a t_REAL or a t_COMPLEX with t_REAL components. Assign x to res, first shortening the components of res if needed (in a gerepile-safe way). Further convert res to a t_REAL if x is a t_REAL.

Transcendental functions with t_PADIC arguments

GEN Qp_exp(GEN x) shortcut for gexp(x, /*ignored*/prec)

GEN Qp_gamma(GEN x) shortcut for ggamma(x, /*ignored*/prec)

GEN Qp_log(GEN x) shortcut for glog(x, /*ignored*/prec)

GEN Qp_sqrt(GEN x) shortcut for gsqrt(x, /*ignored*/prec)

GEN Qp_sqrtn(GEN x, GEN n, GEN *z) shortcut for gsqrtn(x, n, z, /*ignored*/prec)

Cached constants

The cached constant is returned at its current precision, which may be larger than prec. One should always use the mpxxx variant: mppi, mpeuler, or mplog2.

GEN consteuler(long prec) precomputes Euler-Mascheroni's constant at precision prec.

GEN constpi(long prec) precomputes Pi at precision prec.

GEN constlog2(long prec) precomputes log (2) at precision prec.

void mpbern(long n, long prec) precomputes the even Bernoulli numbers B_0,...,B_{2n-2} as t_REALs of precision prec.

GEN bern(long i) is a macro returning the Bernoulli number B_{2i} at precision prec, assuming that mpbern(n, prec) was called previously with n > i. The macro does not check whether 0 <= i < n. If cached Bernoullis were initialized to a larger accuracy than desired, use e.g. rtor(bern(i), prec).

The following functions use cached data if prec is not too large; otherwise the newly computed data replaces the old cache.

GEN mppi(long prec) returns Pi at precision prec.

GEN Pi2n(long n, long prec) returns 2^nPi at precision prec.

GEN PiI2(long n, long prec) returns the complex number 2Pi i at precision prec.

GEN PiI2n(long n, long prec) returns the complex number 2^nPi i at precision prec.

GEN mpeuler(long prec) returns Euler-Mascheroni's constant at precision prec.

GEN mplog2(long prec) returns log 2 at precision prec.


Permutations

Permutation are represented in two different ways

* (perm) a t_VECSMALL p representing the bijection i|--->p[i]; unless mentioned otherwise, this is the form used in the functions below for both input and output,

* (cyc) a t_VEC of t_VECSMALLs representing a product of disjoint cycles.

GEN identity_perm(long n) return the identity permutation on n symbols.

GEN cyclic_perm(long n, long d) return the cyclic permutation mapping i to i+d (mod n) in S_n. Assume that d <= n.

GEN perm_mul(GEN s, GEN t) multiply s and t (composition s o t)

GEN perm_conj(GEN s, GEN t) return sts^{-1}.

int perm_commute(GEN p, GEN q) return 1 if p and q commute, 0 otherwise.

GEN perm_inv(GEN p) returns the inverse of p.

GEN perm_pow(GEN p, long n) returns p^n

GEN cyc_pow_perm(GEN p, long n) the permutation p is given as a product of disjoint cycles (cyc); return p^n (as a perm).

GEN cyc_pow(GEN p, long n) the permutation p is given as a product of disjoint cycles (cyc); return p^n (as a cyc).

GEN perm_cycles(GEN p) return the cyclic decomposition of p.

long perm_order(GEN p) returns the order of the permutation p (as the lcm of its cycle lengths).

GEN vecperm_orbits(GEN p, long n) the permutation p belongs to S_n being given as a product of disjoint cycles, return the orbits of the subgroup generated by p on {1,2,...,n}.


Small groups

The small (finite) groups facility is meant to deal with subgroups of Galois groups obtained by galoisinit and thus is currently limited to weakly super-solvable groups.

A group grp of order n is represented by its regular representation (for an arbitrary ordering of its element) in S_n. A subgroup of such group is represented by the restriction of the representation to the subgroup. A small group can be either a group or a subgroup. Thus it is embedded in some S_n, where n is the multiple of the order. Such n is called the domain of the small group. The domain of a trivial subgroup cannot be derived from the subgroup data, so some functions require the subgroup domain as argument.

The small group grp is represented by a t_VEC with two components:

grp[1] is a generating subset [s_1,...,s_g] of grp expressed as a vector of permutation of length n.

grp[2] contains the relative orders [o_1,...,o_g] of the generators grp[1].

See galoisinit for the technical details.

GEN checkgroup(GEN gal, GEN *elts) checks whether gal is a small group or a Galois group. Returns the underlying small group and set elts to the list of elements or to NULL if it is not known.

GEN galois_group(GEN gal) return the underlying small group of the Galois group gal.

GEN cyclicgroup(GEN g, long s) returns the cyclic group with generator g of order s.

GEN trivialgroup(void) returns the trivial group.

GEN dicyclicgroup(GEN g1, GEN g2, long s1, long s2) returns the group with generators g1, g2 with respecting relative orders s1, s2.

GEN abelian_group(GEN v) let v be a t_VECSMALL seen as the SNF of a small abelian group, return its regular representation.

long group_domain(GEN grp) returns the domain of the non-trivial small group grp. Return an error if grp is trivial.

GEN group_elts(GEN grp, long n) returns the list of elements of the small group grp of domain n as permutations.

GEN group_set(GEN grp, long n) returns a F2v b such that b[i] is set if and only if the small group grp of domain n contains a permutation sending 1 to i.

GEN groupelts_set(GEN elts, long n), where elts is the list of elements of a small group of domain n, returns a F2v b such that b[i] is set if and only if the small group contains a permutation sending 1 to i.

long group_order(GEN grp) returns the order of the small group grp (which is the product of the relative orders).

long group_isabelian(GEN grp) returns 1 the the small group grp is Abelian, else 0.

GEN group_abelianHNF(GEN grp, GEN elts) if grp is not Abelian, returns NULL, else returns the HNF matrix of grp with respect to the generating family grp[1]. If elts is no NULL, it must be the list of elements of grp.

GEN group_abelianSNF(GEN grp, GEN elts) if grp is not Abelian, returns NULL, else returns its cyclic decomposition. If elts is no NULL, it must be the list of elements of grp.

long group_subgroup_isnormal(GEN G, GEN H), H being a subgroup of the small group G, returns 1 if H is normal in G, else 0.

long group_isA4S4(GEN grp) returns 1 if the small group grp is isomorphic to A_4, 2 if it is isomorphic to S_4 and 0 else. This is mainly to deal with the idiosyncrasy of the format.

GEN group_leftcoset(GEN G, GEN g) where G is a small group and g a permutation of the same domain, the the left coset gG as a vector of permutations.

GEN group_rightcoset(GEN G, GEN g) where G is a small group and g a permutation of the same domain, the the right coset Gg as a vector of permutations.

long group_perm_normalize(GEN G, GEN g) where G is a small group and g a permutation of the same domain, return 1 if gGg^-1 = G, else 0.

GEN group_quotient(GEN G, GEN H), where G is a small group and H is a subgroup of G, returns the quotient map G-->G/H as an abstract data structure.

GEN quotient_perm(GEN C, GEN g) where C is the quotient map G-->G/H for some subgroup H of G and g an element of G, return the image of g by C (i.e. the coset gH).

GEN quotient_group(GEN C, GEN G) where C is the quotient map G-->G/H for some normal subgroup H of G, return the quotient group G/H as a small group.

GEN quotient_subgroup_lift(GEN C, GEN H, GEN S) where C is the quotient map G-->G/H for some group G normalizing H and S is a subgroup of G/H, return the inverse image of S by C.

GEN group_subgroups(GEN grp) returns the list of subgroups of the small group grp as a t_VEC.

GEN subgroups_tableset(GEN S, long n) where S is a vector of subgroups of domain n, returns a table which matchs the set of elements of the subgroups against the index of the subgroups.

long tableset_find_index(GEN tbl, GEN set) searchs the set set in the table tbl and returns its associated index, or 0 if not found.

GEN groupelts_abelian_group(GEN elts) where elts is the list of elements of an Abelian small group, returns the corresponding small group.

GEN groupelts_center(GEN elts) where elts is the list of elements of a small group, returns the list of elements of the center of the group.

GEN group_export(GEN grp, long format) exports a small group to another format, see galoisexport.

long group_ident(GEN grp, GEN elts) returns the index of the small group grp in the GAP4 Small Group library, see galoisidentify. If elts is no NULL, it must be the list of elements of grp.

long group_ident_trans(GEN grp, GEN elts) returns the index of the regular representation of the small group grp in the GAP4 Transitive Group library, see polgalois. If elts is no NULL, it must be the list of elements of grp.

\newpage


NAME

libPARI - Standard data structures


Character strings

Functions returning a char *

char* pari_strdup(const char *s) returns a malloc'ed copy of s (uses pari_malloc).

char* pari_strndup(const char *s, long n) returns a malloc'ed copy of at most n chars from s (uses pari_malloc). If s is longer than n, only n characters are copied and a terminal null byte is added.

char* stack_strdup(const char *s) returns a copy of s, allocated on the PARI stack (uses stackmalloc).

char* itostr(GEN x) writes the t_INT x to a stackmalloc'ed string.

char* GENtostr(GEN x), using the current default output format (GP_DATA- > fmt, which contains the output style and the number of significant digits to print), converts x to a malloc'ed string. Simple variant of pari_sprintf.

char* GENtoTeXstr(GEN x), as GENtostr, except that f_TEX overrides the output format from GP_DATA- > fmt.

char* RgV_to_str(GEN g, long flag) g being a vector of GENs, returns a malloc'ed string, the concatenation of the GENtostr applied to its elements, except that t_STR are printed without enclosing quotes. flag determines the output format: f_RAW, f_PRETTYMAT or f_TEX.

Functions returning a t_STR

GEN strtoGENstr(const char *s) returns a t_STR with content s.

GEN strntoGENstr(const char *s, long n) returns a t_STR containing the first n characters of s.

GEN chartoGENstr(char c) returns a t_STR containing the character c.

GEN GENtoGENstr(GEN x) returns a t_STR containing the printed form of x (in raw format). This is often easier to use that GENtostr (which returns a malloc-ed char*) since there is no need to free the string after use.

GEN GENtoGENstr_nospace(GEN x) as GENtoGENstr, removing all spaces from the output.

GEN Str(GEN g) as RgV_to_str with output format f_RAW, but returns a t_STR, not a malloc'ed string.

GEN Strtex(GEN g) as RgV_to_str with output format f_TEX, but returns a t_STR, not a malloc'ed string.

GEN Strexpand(GEN g) as RgV_to_str with output format f_RAW, performing tilde and environment expansion on the result. Returns a t_STR, not a malloc'ed string.


Output

Output contexts

An output coutext, of type PariOUT, is a struct that models a stream and contains the following function pointers:

  void (*putch)(char);           /* fputc()-alike */
  void (*puts)(const char*);     /* fputs()-alike */
  void (*flush)(void);           /* fflush()-alike */

The methods putch and puts are used to print a character or a string respectively. The method flush is called to finalize a messages.

The generic functions pari_putc, pari_puts, pari_flush and pari_printf print according to a default output context, which should be sufficient for most purposes. Lower level functions are available, which take an explicit output context as first argument:

void out_putc(PariOUT *out, char c) essentially equivalent to out- > putc(c). In addition, registers whether the last character printed was a \n.

void out_puts(PariOUT *out, const char *s) essentially equivalent to out- > puts(s). In addition, registers whether the last character printed was a \n.

void out_printf(PariOUT *out, const char *fmt, ...)

void out_vprintf(PariOUT *out, const char *fmt, va_list ap)

N.B. The function out_flush does not exist since it would be identical to out- > flush()

int pari_last_was_newline(void) returns a non-zero value if the last character printed via out_putc or out_puts was \ n, and 0 otherwise.

void pari_set_last_newline(int last) sets the boolean value to be returned by the function pari_last_was_newline to last.

Default output context

They are defined by the global variables pariOut and pariErr for normal outputs and warnings/errors, and you probably do not want to change them. If you do change them, diverting output in non-trivial ways, this probably means that you are rewriting gp. For completeness, we document in this section what the default output contexts do.

pariOut. writes output to the FILE* pari_outfile, initialized to stdout. The low-level methods are actually the standard putc / fputs, plus some magic to handle a log file if one is open.

pariErr. prints to the FILE* pari_errfile, initialized to stderr. The low-level methods are as above.

You can stick with the default pariOut output context and change PARI's standard output, redirecting pari_outfile to another file, using

void switchout(const char *name) where name is a character string giving the name of the file you want to write to; the output is appended at the end of the file. To close the file and revert to outputting to stdout, call switchout(NULL).

PARI colors

In this section we describe the low-level functions used to implement GP's color scheme, associated to the colors default. The following symbolic names are associated to gp's output strings:

* c_ERR an error message

* c_HIST a history number (as in %1 = ...)

* c_PROMPT a prompt

* c_INPUT an input line (minus the prompt part)

* c_OUTPUT an output

* c_HELP a help message

* c_TIME a timer

* c_NONE everything else

If the colors default is set to a non-empty value, before gp outputs a string, it first outputs an ANSI colors escape sequence --- understood by most terminals ---, according to the colors specifications. As long as this is in effect, the following strings are rendered in color, possibly in bold or underlined.

void term_color(long c) prints (as if using pari_puts) the ANSI color escape sequence associated to output object c. If c is c_NONE, revert to defaut printing style.

void out_term_color(PariOUT *out, long c) as term_color, using output context out.

char* term_get_color(char *s, long c) returns as a character string the ANSI color escape sequence associated to output object c. If c is c_NONE, the value used to revert to defaut printing style is returned. The argument s is either NULL (string allocated on the PARI stack), or preallocated storage (in which case, it must be able to hold at least 16 chars, including the final \0).

Obsolete output functions

These variants of void output(GEN x), which prints x, followed by a newline and a buffer flush are complicated to use and less flexible than what we saw above, or than the pari_printf variants. They are provided for backward compatibility and are scheduled to disappear.

void brute(GEN x, char format, long dec)

void matbrute(GEN x, char format, long dec)

void texe(GEN x, char format, long dec)


Files

The following routines are trivial wrappers around system functions (possibly around one of several functions depending on availability). They are usually integrated within PARI's diagnostics system, printing messages if DEBUGFILES is high enough.

int pari_is_dir(const char *name) returns 1 if name points to a directory, 0 otherwise.

int pari_is_file(const char *name) returns 1 if name points to a directory, 0 otherwise.

int file_is_binary(FILE *f) returns 1 if the file f is a binary file (in the writebin sense), 0 otherwise.

void pari_unlink(const char *s) deletes the file named s. Warn if the operation fails.

char* path_expand(const char *s) perform tilde and environment expansion on s. Returns a malloc'ed buffer.

void strftime_expand(const char *s, char *buf, long max) perform time expansion on s, storing the result (at most max chars) in buffer buf. Trivial wrapper around

    time_t t = time(NULL);
    strftime(but, max, s, localtime(&t);

char* pari_get_homedir(const char *user) expands ~ user constructs, returning the home directory of user user, or NULL if it could not be determined (in particular if the operating system has no such concept). The return value may point to static area and may be overwritten by subsequent system calls: use immediately or strdup it.

int pari_stdin_isatty(void) returns 1 if our standard input stdin is attached to a terminal. Trivial wrapper around isatty.

pariFILE

PARI maintains a linked list of open files, to reclaim resources (file descriptors) on error or interrupts. The corresponding data structure is a pariFILE, which is a wrapper around a standard FILE*, containing further the file name, its type (regular file, pipe, input or output file, etc.). The following functions create and manipulate this structure; they are integrated within PARI's diagnostics system, printing messages if DEBUGFILES is high enough.

pariFILE* pari_fopen(const char *s, const char *mode) wrapper around fopen(s, mode), return NULL on failure.

pariFILE* pari_fopen_or_fail(const char *s, const char *mode) simple wrapper around fopen(s, mode); error on failure.

pariFILE* pari_fopengz(const char *s) opens the file whose name is s, and associates a (read-only) pariFILE with it. If s is a compressed file (.gz suffix), it is uncompressed on the fly. If s cannot be opened, also try to open s.gz. Returns NULL on failure.

void pari_fclose(pariFILE *f) closes the underlying file descriptor and deletes the pariFILE struct.

pariFILE* pari_safefopen(const char *s, const char *mode) creates a new file s (a priori for writing) with 600 permissions. Error if the file already exists. To avoid symlink attacks, a symbolic link exists, regardless of where it points to.

Temporary files

PARI has its own idea of the system temp directory derived from from an environment variable (GPTMPDIR, else TMPDIR), or the first writable directory among /tmp, /var/tmp and ..

char* pari_unique_dir(const char *s) creates a ``unique directory'' and return its name built from the string s, the user id and process pid (on Unix systems). This directory is itself located in

The name returned is malloc'ed.

char* pari_unique_filename(const char *s)


Hashtables

A hashtable, or associative array, is a set of pairs (k,v) of keys and values. PARI implements general extensible hashtables for fast data retrieval, independently of the PARI stack. A hashtable is implemented as a table of linked lists, each list containing all entries sharing the same hash value. The table length is a prime number, which roughly doubles as the table overflows by gaining new entries; both the current number of entries and the threshold before the table grows are stored in the table. Finally the table remembers the functions used to hash the entries's keys and to test for equality two entries hashed to the same value.

An entry, or hashentry, contains

* a key/value pair (k,v), both of type void* for maximal flexibility,

* the hash value of the key, for the table hash function. This hash is mapped to a table index (by reduction modulo the table length), but it contains more information, and is used to bypass costly general equality tests if possible,

* a link pointer to the next entry sharing the same table cell.

  typedef struct {
    void *key, *val;
    ulong hash; /* hash(key) */
    struct hashentry *next;
  } hashentry;
  typedef struct {
    ulong len; /* table length */
    hashentry **table; /* the table */
    ulong nb, maxnb; /* number of entries stored and max nb before enlarging */
    ulong pindex; /* prime index */
    ulong (*hash) (void *k); /* hash function */
    int (*eq) (void *k1, void *k2); /* equality test */
  } hashtable;

hashtable* hash_create(ulong size, ulong (*hash)(void*), int (*eq)(void*,void*))\hfil

creates a hashtable with enough room to contain size entries. The functions hash and eq will be used to compute the hash value of keys and test keys for equality, respectively.

void hash_insert(hashtable *h, void *k, void *v) inserts (k,v) in hashtable h. No copy is made: k and v themselves are stored. The implementation does not prevent one to insert two entries with equal keys k, but which of the two is affected by later commands is undefined.

hashentry* hash_search(hashtable *h, void *k) look for an entry with key k in h. Return it if it one exists, and NULL if not.

hashentry* hash_remove(hashtable *h, void *k) deletes an entry (k,v) with key k from h and return it. (Return NULL if none was found.) Only the linking structures are freed, memory associated to k and v is not reclaimed.

void hash_destroy(hashtable *h) deletes the hashtable, by removing all entries.

Some interesting hash functions are available:

ulong hash_str(const char *s)

ulong hash_str2(const char *s) is the historical PARI string hashing function and seems to be generally inferior to hash_str.

ulong hash_GEN(GEN x)


Dynamic arrays

A dynamic array is a generic way to manage stacks of data that need to grow dynamically. It allocates memory using pari_malloc, and is independent of the PARI stack; it even works before the pari_init call.

Initialization

To create a stack of objects of type foo, we proceed as follows:

  foo *t_foo;
  pari_stack s_foo;
  stack_init(&s_foo, sizeof(*t_foo), (void**)t_foo);

Think of s_foo as the controlling interface, and t_foo as the (dynamic) array tied to it. The value of t_foo may be changed as you add more elements.

Adding elements

The following function pushes an element on the stack.

  /* access globals t_foo and s_foo */
  void push_foo(foo x)
  {
    long n = stack_new(&s_foo);
    t_foo[n] = x;
  }

Accessing elements

Elements are accessed naturally through the t_foo pointer. For example this function swaps two elements:

  void swapfoo(long a, long b)
  {
    foo x;
    if (a > s_foo.n || b > s_foo.n) pari_err(bugparier,"swapfoo");
    x        = t_foo[a];
    t_foo[a] = t_foo[b];
    t_foo[b] = x;
  }

Stack of stacks

Changing the address of t_foo is not supported in general, however changing both the address of t_foo and s_foo is supported as long as the offset &t_foo-&s_foo do not change. This allow to create stacks of stacks as follow:

  struct foo_s
  {
    foo t_foo;
    pari_stack s_foo;
  } tt_foo;
  pari_stack st_foo;
  stack_init(&st_foo, sizeof(*tt_foo), (void**)&tt_foo);
  long new_stack(void)
  {
    long n = stack_new(&st_foo);
    struct foo_s *st = tt_foo+n;
    stack_init(&st->s_foo, sizeof(*st->t_foo), (void**)&st->t_foo);
    return n;
  }

When a reallocation of tt_foo occurs, the offset between the components .t_foo and .s_foo does not change.

Public interface

Let s be a pari_stack and data the data linked to it. The following public fields are defined:

* s.alloc is the number of elements allocated for data.

* s.n is the number of elements in the stack and data[s.n-1] is the topmost element of the stack. s.n can be changed as long as 0 <= s.n <= s.alloc holds.

void stack_init(pari_stack *s, size_t size, void **data) links *s to the data pointer *data, where size is the size of data element. The pointer *data is set to NULL, s- > n and s- > alloc are set to 0: the array is empty.

void stack_alloc(pari_stack *s, long nb) makes room for nb more elements, i.e. makes sure that s.alloc >= s.n + nb, possibly reallocating data.

long stack_new(pari_stack *s) increases s.n by one unit, possibly reallocating data, and returns s.n-1.

Caveat. The following construction is incorrect because stack_new can change the value of t_foo:

  t_foo[ stack_new(&s_foo) ] = x;

void stack_delete(pari_stack *s) frees data and resets the stack to the state immediately following stack_init (s- > n and s- > alloc are set to 0).

void * stack_pushp(pari_stack *s, void *u) This function assumes that *data is of pointer type. Pushes the element u on the stack s.

void ** stack_base(pari_stack *s) returns the address of data, typecast to a void **.


Vectors and Matrices

Access and extract

See Label se:clean and Label se:unclean for various useful constructors. Coefficients are accessed and set using gel, gcoeff, see Label se:accessors. There are many internal functions to extract or manipulate subvectors or submatrices but, like the accessors above, none of them are suitable for gerepileupto. Worse, there are no type verification, nor bound checking, so use at your own risk.

GEN shallowcopy(GEN x) returns a GEN whose components are the components of x (no copy is made). The result may now be used to compute in place without destroying x. This is essentially equivalent to

    GEN y = cgetg(lg(x), typ(x));
    for (i = 1; i < lg(x); i++) y[i] = x[i];
    return y;

except that t_MAT is treated specially since shallow copies of all columns are made. The function also works for non-recursive types, but is useless in that case since it makes a deep copy. If x is known to be a t_MAT, you may call RgM_shallowcopy directly; if x is known not to be a t_MAT, you may call leafcopy directly.

GEN RgM_shallowcopy(GEN x) returns shallowcopy(x), where x is a t_MAT.

GEN shallowtrans(GEN x) returns the transpose of x, without copying its components, i. e., it returns a GEN whose components are (physically) the components of x. This is the internal function underlying gtrans.

GEN shallowconcat(GEN x, GEN y) concatenate x and y, without copying components, i. e., it returns a GEN whose components are (physically) the components of x and y.

GEN shallowconcat1(GEN x) x must be t_VEC or t_LIST, concatenate its elements from left to right. Shallow version of concat1.

GEN shallowextract(GEN x, GEN y) extract components of the vector or matrix x according to the selection parameter y. This is the shallow analog of extract0(x, y, NULL), see vecextract.

GEN RgM_minor(GEN A, long i, long j) given a square t_MAT A, return the matrix with i-th row and j-th column removed.

GEN vconcat(GEN A, GEN B) concatenate vertically the two t_MAT A and B of compatible dimensions. A NULL pointer is accepted for an empty matrix. See shallowconcat.

GEN row(GEN A, long i) return A[i,], the i-th row of the t_MAT A.

GEN row_i(GEN A, long i, long j1, long j2) return part of the i-th row of t_MAT A: A[i,j_1], A[i,j_1+1]...,A[i,j_2]. Assume j_1 E<lt>= j_2.

GEN rowcopy(GEN A, long i) return the row A[i,] of the t_MAT A. This function is memory clean and suitable for gerepileupto. See row for the shallow equivalent.

GEN rowslice(GEN A, long i1, long i2) return the t_MAT formed by the i_1-th through i_2-th rows of t_MAT A. Assume i_1 E<lt>= i_2.

GEN rowpermute(GEN A, GEN p), p being a t_VECSMALL representing a list [p_1,...,p_n] of rows of t_MAT A, returns the matrix whose rows are A[p_1,],..., A[p_n,].

GEN rowslicepermute(GEN A, GEN p, long x1, long x2), short for

    rowslice(rowpermute(A,p), x1, x2)

(more efficient).

GEN vecslice(GEN A, long j1, long j2), return A[j_1],..., A[j_2]. If A is a t_MAT, these correspond to columns of A. The object returned has the same type as A (t_VEC, t_COL or t_MAT). Assume j_1 <= j_2.

GEN vecsplice(GEN A, long j) return A with j-th entry removed (t_VEC, t_COL) or j-th column removed (t_MAT).

GEN vecreverse(GEN A). Returns a GEN which has the same type as A (t_VEC, t_COL or t_MAT), and whose components are the A[n],...,A[1]. If A is a t_MAT, these are the columns of A.

GEN vecpermute(GEN A, GEN p) p is a t_VECSMALL representing a list [p_1,...,p_n] of indices. Returns a GEN which has the same type as A (t_VEC, t_COL or t_MAT), and whose components are A[p_1],...,A[p_n]. If A is a t_MAT, these are the columns of A.

GEN vecslicepermute(GEN A, GEN p, long y1, long y2) short for

    vecslice(vecpermute(A,p), y1, y2)

(more efficient).

Componentwise operations

The following convenience routines automate trivial loops of the form

    for (i = 1; i < lg(a); i++) gel(v,i) = f(gel(a,i), gel(b,i))

for suitable f:

GEN vecinv(GEN a). Given a vector a, returns the vector whose i-th component is ginv(a[i]).

GEN vecmul(GEN a, GEN b). Given a and b two vectors of the same length, returns the vector whose i-th component is gmul(a[i], b[i]).

GEN vecdiv(GEN a, GEN b). Given a and b two vectors of the same length, returns the vector whose i-th component is gdiv(a[i], b[i]).

GEN vecpow(GEN a, GEN n). Given n a t_INT, returns the vector whose i-th component is a[i]^n.

GEN vecmodii(GEN a, GEN b). Assuming a and b are two ZV of the same length, returns the vector whose i-th component is modii(a[i], b[i]).

Note that vecadd or vecsub do not exist since gadd and gsub have the expected behavior. On the other hand, ginv does not accept vector types, hence vecinv.

Low-level vectors and columns functions

These functions handle t_VEC as an abstract container type of GENs. No specific meaning is attached to the content. They accept both t_VEC and t_COL as input, but col functions always return t_COL and vec functions always return t_VEC.

Note. All the functions below are shallow.

GEN const_col(long n, GEN x) returns a t_COL of n components equal to x.

GEN const_vec(long n, GEN x) returns a t_VEC of n components equal to x.

int vec_isconst(GEN v) Returns 1 if all the components of v are equal, else returns 0.

void vec_setconst(GEN v, GEN x) v a pre-existing vector. Set all its components to x.

int vec_is1to1(GEN v) Returns 1 if the components of v are pair-wise distinct, i.e. if i|--->v[i] is a 1-to-1 mapping, else returns 0.

GEN vec_shorten(GEN v, long n) shortens the vector v to n components.

GEN vec_lengthen(GEN v, long n) lengthens the vector v to n components. The extra components are not initialized.


Vectors of small integers

t_VECSMALL

These functions handle t_VECSMALL as an abstract container type of small signed integers. No specific meaning is attached to the content.

GEN const_vecsmall(long n, long c) returns a t_VECSMALL of n components equal to c.

GEN vec_to_vecsmall(GEN z) identical to ZV_to_zv(z).

GEN vecsmall_to_vec(GEN z) identical to zv_to_ZV(z).

GEN vecsmall_to_col(GEN z) identical to zv_to_ZC(z).

GEN vecsmall_copy(GEN x) makes a copy of x on the stack.

GEN vecsmall_shorten(GEN v, long n) shortens the t_VECSMALL v to n components.

GEN vecsmall_lengthen(GEN v, long n) lengthens the t_VECSMALL v to n components. The extra components are not initialized.

GEN vecsmall_indexsort(GEN x) performs an indirect sort of the components of the t_VECSMALL x and return a permutation stored in a t_VECSMALL.

void vecsmall_sort(GEN v) sorts the t_VECSMALL v in place.

long vecsmall_max(GEN v) returns the maximum of the elements of t_VECSMALL v, assumed non-empty.

long vecsmall_min(GEN v) returns the minimum of the elements of t_VECSMALL v, assumed non-empty.

long vecsmall_isin(GEN v, long x) returns the first index i such that v[i] is equal to x. Naive search in linear time, does not assume that v is sorted.

GEN vecsmall_uniq(GEN v) given a t_VECSMALL v, return the vector of unique occurrences.

GEN vecsmall_uniq_sorted(GEN v) same as vecsmall_uniq, but assumes v sorted.

long vecsmall_duplicate(GEN v) given a t_VECSMALL v, return 0 if there is no duplicates, or the index of the first duplicate (vecsmall_duplicate([1,1]) returns 2).

long vecsmall_duplicate_sorted(GEN v) same as vecsmall_duplicate, but assume v sorted.

int vecsmall_lexcmp(GEN x, GEN y) compares two t_VECSMALL lexically.

int vecsmall_prefixcmp(GEN x, GEN y) truncate the longest t_VECSMALL to the length of the shortest and compares them lexicographically.

GEN vecsmall_prepend(GEN V, long s) prepend s to the t_VECSMALL V.

GEN vecsmall_append(GEN V, long s) append s to the t_VECSMALL V.

GEN vecsmall_concat(GEN u, GEN v) concat the t_VECSMALL u and v.

long vecsmall_coincidence(GEN u, GEN v) returns the numbers of indices where u and v agree.

long vecsmall_pack(GEN v, long base, long mod) handles the t_VECSMALL v as the digit of a number in base base and return this number modulo mod. This can be used as an hash function.

Vectors of t_VECSMALL

These functions manipulate vectors of t_VECSMALL (vecvecsmall).

GEN vecvecsmall_sort(GEN x) sorts lexicographically the components of the vector x.

GEN vecvecsmall_indexsort(GEN x) performs an indirect lexicographic sorting of the components of the vector x and return a permutation stored in a t_VECSMALL.

long vecvecsmall_search(GEN x, GEN y, long flag) x being a sorted vecvecsmall and y a t_VECSMALL, search y inside x. fla has the same meaning as for setsearch.

\newpage


NAME

libPARI - Functions related to the GP interpreter


Handling closures

Functions to evaluate t_CLOSURE

void closure_disassemble(GEN C) print the t_CLOSURE C in GP assembly format.

GEN closure_callgenall(GEN C, long n, ...) evaluate the t_CLOSURE C with the n arguments (of type GEN) following n in the function call. Assumes C has arity >= n.

GEN closure_callgenvec(GEN C, GEN args) evaluate the t_CLOSURE C with the arguments supplied in the vector args. Assumes C has arity >= lg(args)-1.

GEN closure_callgen1(GEN C, GEN x) evaluate the t_CLOSURE C with argument x. Assumes C has arity >= 1.

GEN closure_callgen2(GEN C, GEN x, GEN y) evaluate the t_CLOSURE C with argument x, y. Assumes C has arity >= 2.

void closure_callvoid1(GEN C, GEN x) evaluate the t_CLOSURE C with argument x and discard the result. Assumes C has arity >= 1.

The following technical functions are used to evaluate inline closures and closures of arity 0.

The control flow statements (break, next and return) will cause the evaluation of the closure to be interrupted; this is called below a flow change. When that occurs, the functions below generally return NULL. The caller can then adopt three positions:

* raises an exception (closure_evalnobrk).

* passes through (by returning NULL itself).

* handles the flow change.

GEN closure_evalgen(GEN code) evaluates a closure and returns the result, or NULL if a flow change occurred.

GEN closure_evalnobrk(GEN code) as closure_evalgen but raise an exception if a flow change occurs. Meant for iterators where interrupting the closure is meaningless, e.g. intnum or sumnum.

void closure_evalvoid(GEN code) evaluates a closure whose return value is ignored. The caller has to deal with eventual flow changes by calling loop_break.

The remaining functions below are for exceptional situations:

GEN closure_evalres(GEN code) evaluates a closure and returns the result. The difference with closure_evalgen being that, if the flow end by a return statement, the result will be the returned value instead of NULL. Used by the main GP loop.

GEN closure_evalbrk(GEN code, long *status) as closure_evalres but set status to a non-zero value if a flow change occurred. This variant is not stack clean. Used by the break loop.

GEN closure_trapgen(long numerr, GEN code) evaluates closure, while trapping error numerr. Return (GEN)1L if error trapped, and the result otherwise, or NULL if a flow change occurred. Used by trap.

Functions to handle control flow changes

long loop_break(void) processes an eventual flow changes inside an iterator. If this function return 1, the iterator should stop.

Functions to deal with lexical local variables

Function using the prototype code `V' need to manually create and delete a lexical variable for each code `V', which will be given a number -1, -2, ....

void push_lex(GEN a, GEN code) creates a new lexical variable whose initial value is a on the top of the stack. This variable get the number -1, and the number of the other variables is decreased by one unit. When the first variable of a closure is created, the argument code must be the closure that references this lexical variable. The argument code must be NULL for all subsequent variables (if any). (The closure contains the debugging data for the variable).

void pop_lex(long n) deletes the n topmost lexical variables, increasing the number of other variables by n. The argument n must match the number of variables allocated through push_lex.

GEN get_lex(long vn) get the value of the variable with number vn.

void set_lex(long vn, GEN x) set the value of the variable with number vn.

Functions returning new closures

GEN closure_deriv(GEN code) returns a closure corresponding to the numerical derivative of the closure code.

GEN snm_closure(entree *ep, GEN data) Let data be a vector of length m, ep be an entree pointing to a C function f of arity n+m, returns a t_CLOSURE object g of arity n such that g(x_1,...,x_n) = f(x_1,...,x_n,gel(data,1),...,gel(data,m)). If data is NULL, then m = 0 is assumed. This function has a low overhead since it does not copy data.

GEN strtofunction(char *str) returns a closure corresponding to the built-in or install'ed function named str.

GEN strtoclosure(char *str, long n, ...) returns a closure corresponding to the built-in or install'ed function named str with the n last parameters set to the n GENs following n, see snm_closure. This function has an higher overhead since it copies the parameters and does more input validation.

In the example code below, agm1 is set to the function x- > agm(x,1) and res is set to agm(2,1).

    GEN agm1 = strtoclosure("agm",1, gen_1);
    GEN res = closure_callgen1(agm1, gen_2);

Functions used by the gp debugger (break loop)

long closure_context(long s) restores the compilation context starting at frame s+1, and returns the index of the topmost frame. This allow to compile expressions in the topmost lexical scope.

void closure_err(void) prints a backtrace of the last 20 stack frames.

Standard wrappers for iterators

Two families of standard wrappers are provided to interface iterators like intnum or sumnum with GP.

Standard wrappers for inline closures

Theses wrappers are used to implement GP functions taking inline closures as input. The object (GEN)E must be an inline closure which is evaluated with the lexical variable number -1 set to x.

GEN gp_eval(void *E, GEN x) is used for the prototype code `E'.

long gp_evalvoid(void *E, GEN x) is used for the prototype code `I'. The resulting value is discarded. Return a non-zero value if a control-flow instruction request the iterator to terminate immediatly.

Standard wrappers for true closures

Theses wrappers are used to implement GP functions taking true closures as input.

GEN gp_call(void *E, GEN x) evaluates the closure (GEN)E on x.

long gp_callbool(void *E, GEN x) evaluates the closure (GEN)E on x, returns 1 if its result is non-zero, and 0 otherwise.

long gp_callvoid(void *E, GEN x) evaluates the closure (GEN)E on x, discarding the result. Return a non-zero value if a control-flow instruction request the iterator to terminate immediatly.


Defaults

int pari_is_default(const char *s) return 1 if s is the name of a default, 0 otherwise.

GEN setdefault(const char *s, const char *v, long flag) is the low-level function underlying default0. If s is NULL, call all default setting functions with string argument NULL and flag d_ACKNOWLEDGE. Otherwise, check whether s corresponds to a default and call the corresponding default setting function with arguments v and flag.

We shall describe these functions below: if v is NULL, we only look at the default value (and possibly print or return it, depending on flag); otherwise the value of the default to v, possibly after some translation work. The flag is one of

* d_INITRC called while reading the gprc : print and return gnil, possibly defer until gp actually starts.

* d_RETURN return the current value, as a t_INT if possible, as a t_STR otherwise.

* d_ACKNOWLEDGE print the current value, return gnil.

* d_SILENT print nothing, return gnil.

Low-level functions called by setdefault:

GEN sd_TeXstyle(const char *v, long flag)

GEN sd_colors(const char *v, long flag)

GEN sd_compatible(const char *v, long flag)

GEN sd_datadir(const char *v, long flag)

GEN sd_debug(const char *v, long flag)

GEN sd_debugfiles(const char *v, long flag)

GEN sd_debugmem(const char *v, long flag)

GEN sd_factor_add_primes(const char *v, long flag)

GEN sd_factor_proven(const char *v, long flag)

GEN sd_format(const char *v, long flag)

GEN sd_histsize(const char *v, long flag)

GEN sd_log(const char *v, long flag)

GEN sd_logfile(const char *v, long flag)

GEN sd_new_galois_format(const char *v, long flag)

GEN sd_output(const char *v, long flag)

GEN sd_parisize(const char *v, long flag)

GEN sd_path(const char *v, long flag)

GEN sd_prettyprinter(const char *v, long flag)

GEN sd_primelimit(const char *v, long flag)

GEN sd_realprecision(const char *v, long flag)

GEN sd_recover(const char *v, long flag)

GEN sd_secure(const char *v, long flag)

GEN sd_seriesprecision(const char *v, long flag)

GEN sd_simplify(const char *v, long flag)

GEN sd_strictmatch(const char *v, long flag)

Generic functions used to implement defaults: most of the above routines are implemented in terms of the following generic ones. In all routines below

* v and flag are the arguments passed to default : v is a new value (or the empty string: no change), and flag is one of d_INITRC, d_RETURN, etc.

* s is the name of the default being changed, used to display error messages or acknowledgements.

GEN sd_toggle(const char *v, long flag, const char *s, int *ptn)

* if v is neither "0" nor "1", an error is raised using pari_err.

* ptn points to the current numerical value of the toggle (1 or 0), and is set to the new value (when v is non-empty).

For instance, here is how the timer default is implemented internally:

  GEN
  sd_timer(const char *v, long flag)
  { return sd_toggle(v,flag,"timer", &(GP_DATA->chrono)); }

The exact behavior and return value depends on flag:

* d_RETURN: returns the new toggle value, as a GEN.

* d_ACKNOWLEDGE: prints a message indicating the new toggle value and return gnil.

* other cases: print nothing and return gnil.

GEN sd_ulong(const char *v, long flag, const char *s, ulong *ptn, ulong Min, ulong Max, const char **msg)\hbadness 10000

* ptn points to the current numerical value of the toggle, and is set to the new value (when v is non-empty).

* Min and Max point to the minimum and maximum values allowed for the default.

* v must translate to an integer in the allowed ranger, a suffix among k/K ( x 10^3), m/M ( x 10^6), or g/G ( x 10^9) is allowed, but no arithmetic expression.

* msg is a \kbd[NULL]-terminated array of messages or NULL (ignored). If msg is not NULL, msg[i] contains a message associated to the value i of the default. The last entry in the msg array is used as a message associated to all subsequent ones.

The exact behavior and return value depends on flag:

* d_RETURN: returns the new toggle value, as a GEN.

* d_ACKNOWLEDGE: prints a message indicating the new value, possibly a message associated to it via the msg argument, and return gnil.

* other cases: print nothing and return gnil.

GEN sd_string(const char *v, long flag, const char *s, char **pstr) * v is subjet to environment expansion, then time expansion.

* pstr points to the current string value, and is set to the new value (when v is non-empty).