version 1.1, 2001/10/02 11:17:07 |
version 1.2, 2002/09/11 07:26:58 |
Line 13 Check the License for details. You should have receive |
|
Line 13 Check the License for details. You should have receive |
|
with the package; see the file 'COPYING'. If not, write to the Free Software |
with the package; see the file 'COPYING'. If not, write to the Free Software |
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ |
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ |
|
|
GEN initalgall0(GEN x, long flag, long prec); |
typedef struct { |
|
GEN x; /* defining polynomial (monic, integral) */ |
|
GEN dK; /* disc(K) */ |
|
GEN index; /* [O_K : Z[X]/(x)] */ |
|
GEN bas; /* Z-basis of O_K (t_VEC of t_POL) */ |
|
long r1; /* number of real places of K */ |
|
/* possibly NULL = irrelevant or not computed */ |
|
GEN lead; /* leading coeff of initial polynomial defining K if non monic */ |
|
GEN dx; /* disc(x) */ |
|
GEN basden; /* [nums(bas), dens(bas)] */ |
|
} nfbasic_t; |
|
|
|
typedef struct { |
|
GEN x; |
|
GEN ro; /* roots of x */ |
|
long r1; |
|
GEN basden; |
|
long prec; |
|
/* possibly -1 = irrelevant or not computed */ |
|
long extraprec; |
|
/* possibly NULL = irrelevant or not computed */ |
|
GEN M; |
|
GEN G; |
|
} nffp_t; |
|
|
#define id_PRINCIPAL 0 |
#define id_PRINCIPAL 0 |
#define id_PRIME 1 |
#define id_PRIME 1 |
#define id_MAT 2 |
#define id_MAT 2 |
|
|
/* for initalgredall */ |
/* for _initalg */ |
#define nf_REDUCE 8 |
#define nf_ROUND2 64 |
#define nf_SMALL 4 /* for both */ |
#define nf_NOROOTS 32 |
#define nf_PARTIAL 2 |
#define nf_PARTIALFACT 16 /* and allbase */ |
|
#define nf_RED 8 |
|
#define nf_PARTRED 2 |
#define nf_ORIG 1 |
#define nf_ORIG 1 |
|
|
/* for initalgall0 */ |
/* for rnfpolredabs */ |
#define nf_REGULAR 0 /* for both */ |
#define nf_ABSOLUTE 2 |
|
#define nf_ADDZK 256 |
|
|
/* for isprincipal */ |
/* for isprincipal */ |
#define nf_GEN 1 /* for polredabs also */ |
#define nf_GEN 1 |
#define nf_FORCE 2 |
#define nf_FORCE 2 |
#define nf_GIVEPREC 4 |
#define nf_GIVEPREC 4 |
#define nf_GENMAT 8 |
#define nf_GENMAT 8 |
|
#define nf_GEN_IF_PRINCIPAL 512 |
|
|
/* for buchray */ |
/* for buchray */ |
#define nf_INIT 4 |
#define nf_INIT 4 |
|
|
|
/* for buchall */ |
|
#define nf_ROOT1 512 |
|
#define nf_UNITS 1024 |
|
|
/* for discray */ |
/* for discray */ |
#define nf_REL 1 |
#define nf_REL 1 |
#define nf_COND 2 |
#define nf_COND 2 |
|
|
/* for polredabs */ |
/* for polredabs */ |
#define nf_NORED 2 |
|
#define nf_ALL 4 |
#define nf_ALL 4 |
#define nf_RAW 8 |
#define nf_RAW 8 |
|
|
Line 59 GEN initalgall0(GEN x, long flag, long prec); |
|
Line 89 GEN initalgall0(GEN x, long flag, long prec); |
|
|
|
/* for fincke_pohst() */ |
/* for fincke_pohst() */ |
typedef struct FP_chk_fun { |
typedef struct FP_chk_fun { |
GEN (*f)(GEN,GEN); |
GEN (*f)(void *,GEN); |
GEN (*f_init)(struct FP_chk_fun*,GEN,GEN,GEN,long*); |
GEN (*f_init)(struct FP_chk_fun*,GEN,GEN); |
GEN (*f_post)(GEN,GEN); |
void *data; |
GEN data; |
|
int skipfirst; |
int skipfirst; |
} FP_chk_fun; |
} FP_chk_fun; |
|
|
GEN fincke_pohst(GEN a,GEN BOUND,long stockmax,long flag, long PREC, FP_chk_fun *CHECK); |
extern GEN _initalg(GEN x, long flag, long prec); |
|
extern GEN fincke_pohst(GEN a,GEN BOUND,long stockmax,long flag, long PREC, FP_chk_fun *CHECK); |
|
extern GEN polredfirstpol(GEN x, long flag, FP_chk_fun *CHECK); |