version 1.3, 2001/05/04 01:06:23 |
version 1.4, 2005/06/16 05:07:23 |
|
|
/* $OpenXM: OpenXM/src/kan96xx/Kan/hilbert.c,v 1.2 2000/01/16 07:55:39 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/hilbert.c,v 1.3 2001/05/04 01:06:23 takayama Exp $ */ |
/* hilbert.c |
/* hilbert.c |
1992/06/16 |
1992/06/16 |
1992/06/18 |
1992/06/18 |
Line 41 struct object hilberto(struct object obgb,struct objec |
|
Line 41 struct object hilberto(struct object obgb,struct objec |
|
int n; /* number of variables */ |
int n; /* number of variables */ |
int i,j,k; |
int i,j,k; |
int n0; /* number of the variables for the polynomials in base. */ |
int n0; /* number of the variables for the polynomials in base. */ |
struct object obf; |
struct object obf = OINIT; |
struct ring *rp; |
struct ring *rp; |
struct ring *rr = (struct ring *)NULL; |
struct ring *rr = (struct ring *)NULL; |
POLY *base; |
POLY *base; |
Line 50 struct object hilberto(struct object obgb,struct objec |
|
Line 50 struct object hilberto(struct object obgb,struct objec |
|
int debug = 0; |
int debug = 0; |
POLY f; |
POLY f; |
POLY g; |
POLY g; |
struct object rob; |
struct object rob = OINIT; |
struct object ccc; |
struct object ccc = OINIT; |
extern struct ring SmallRing; |
extern struct ring SmallRing; |
int worg; |
int worg; |
extern int WarningNoVectorVariable; |
extern int WarningNoVectorVariable; |