source: git/kernel/longalg.h @ 3d6c38

Last change on this file since 3d6c38 was 3d6c38, checked in by Hans Schönemann <hannes@…>, 14 years ago
*hannes: code cleanup (longalg.h) git-svn-id: file:///usr/local/Singular/svn/trunk@12045 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 3.6 KB
[35aab3]1#ifndef LONGALG_H
2#define LONGALG_H
4*  Computer Algebra System SINGULAR     *
[3d6c38]6/* $Id: longalg.h,v 1.12 2009-08-05 17:29:44 Singular Exp $ */
8* ABSTRACT:   algebraic numbers
10#include "structs.h"
11#include "longrat.h"
12#include "polys-impl.h"
14struct slnumber;
15typedef struct slnumber * lnumber;
17struct slnumber
19  napoly z;
20  napoly n;
21  BOOLEAN s;
[76aef7]22  short cnt;
25extern int naNumbOfPar;             /* maximal number of parameters */
[35aab3]27extern napoly naMinimalPoly;
29void naSetChar(int p, ring r);
30void    naDelete (number *p, const ring r);
31number  naInit(int i);                              /* z := i */
32number  naPar(int i);                               /* z := par(i) */
33int     naParDeg(number n);                         /* i := deg(n) */
34int     naSize(number n);                           /* size desc. */
35int     naInt(number &n);
36void    naNew(number *z);
37BOOLEAN naIsZero(number za);                         /* za = 0 ? */
38BOOLEAN naIsOne(number  za);                         /* za = 1 ? */
39BOOLEAN naIsMOne(number  za);                        /* za = -1 ? */
40BOOLEAN naEqual(number a, number b);                  /* a = b ? */
41BOOLEAN naGreater(number a, number b);                  /* dummy */
42number  naNeg(number za);                           /* za := - za */
43number  naInvers(number a);
44void    naPower(number x, int exp, number *lo);
45BOOLEAN naGreaterZero(number a);
46number  naCopy(number p);                              /* erg:= p */
47number  na_Copy(number p, const ring r);               /* erg:= p */
48number  naAdd(number la, number li);               /* lu := la+li */
49number  naMult(number la, number li);              /* lo := la*li */
50number  naDiv(number la, number li);               /* lo := la/li */
51number  naIntDiv(number la, number li);            /* lo := la/li */
52//number  naIntMod(number la, number li);            /* lo := la/li */
53number  naSub(number la, number li);               /* lu := la-li */
54void    naNormalize(number &p);
55number  naGcd(number a, number b, const ring r);
56number  naLcm(number a, number b, const ring r);
[85e68dd]57const char *  naRead(const char * s, number * p);
[35aab3]58void    naWrite(number &p);
59char *  naName(number n);
60nMapFunc naSetMap(ring src, ring dst);
[8ce2038]61number naMap0P(number c);
62number naMap00(number c);
[35aab3]63#ifdef LDEBUG
[85e68dd]64BOOLEAN naDBTest(number a, const char *f,const int l);
67void    naSetIdeal(ideal I);
69// external access to the interna
70poly naPermNumber(number z, int * par_perm, int P, ring r);
71#define napAddExp(p,i,e)       (p_AddExp(p,i,e,currRing->algring))
72#define napLength(p)           pLength(p)
73#define napNeg(p)              (p_Neg(p,currRing->algring))
74#define napVariables           naNumbOfPar
75#define napNext(p)             pNext(p)
76#define napIter(p)             pIter(p)
77#define napGetCoeff(p)         pGetCoeff(p)
78#define napGetExp(p,i)         (p_GetExp(p,i,currRing->algring))
79#define napGetExpFrom(p,i,r)   (p_GetExp(p,i,r->algring))
80#define napSetExp(p,i,e)       (p_SetExp(p,i,e,currRing->algring))
81#define napDelete(p)           p_Delete(p, currRing->algring)
82#define nap_Delete(p,r)        p_Delete(p, (r)->algring)
83#define napNew()               (p_Init(currRing->algring))
84#define napAdd(p1,p2)          (p_Add_q(p1,p2,currRing->algring))
[c58b53]85#define napSetm(p)             p_Setm(p,currRing->algring)
[35aab3]86#define nanumber               lnumber
87#define naGetNom0(na)          (((nanumber)(na))->z)
88#define naGetDenom0(na)        (((nanumber)(na))->n)
[eebfa9]89napoly napRemainder(napoly f, const napoly  g);
[e803ec]90void napWrite(napoly l,const BOOLEAN denom=TRUE);
91number   naGetDenom(number &n, const ring r);
92number   naGetNumerator(number &n, const ring r);
Note: See TracBrowser for help on using the repository browser.