OpenXM/src/kan96xx/Kan/ecart.c - diff

Return to ecart.c CVS log

Up to [local] / OpenXM / src / kan96xx / Kan

version 1.2, 2003/07/17 12:11:09

version 1.3, 2003/07/17 23:37:01

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/ecart.c,v 1.1 2003/07/17 09:10:54 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/ecart.c,v 1.2 2003/07/17 12:11:09 takayama Exp $ */

#include <stdio.h>

#include "datatype.h"

#include "extern2.h"

Line 31 extern int DebugReductionRed;

extern int DegreeShifto_size;

extern int *DegreeShifto_vec;

/* It is used reduction_ecart() and ecartFindReducer()

to determine if we homogenize in this function */

extern int EcartAutomaticHomogenization;

#define LARGE 0x7fffffff

Line 133 static struct ecartReducer ecartFindReducer(POLY r,str

Line 137 static struct ecartReducer ecartFindReducer(POLY r,str

for (i=0; i<set->size; i++) {

if (set->gh[i] == POLYNULL) {

/* goHomogenize set->gh[i] */

set->gh[i] = goHomogenize11(set->g[i],DegreeShifto_vec,DegreeShifto_size,-1,1);

if (EcartAutomaticHomogenization) {

set->gh[i] = goHomogenize11(set->g[i],DegreeShifto_vec,DegreeShifto_size,-1,1);

}else{

set->gh[i] = set->g[i];

}

ell = ecartGetEll(r,set->gh[i]);

if ((ell>=0) && (ell < ell1)) {

Line 178 static struct ecartReducer ecartFindReducer(POLY r,str

Line 186 static struct ecartReducer ecartFindReducer(POLY r,str

r and gset are assumed to be (0,1)-homogenized (h-homogenized)

If EcartAutomaticHomogenization == 0, then r and gset are assumed

to be double homogenized (h-homogenized and s(H)-homogenized)

POLY reduction_ecart(r,gset,needSyz,syzp)

POLY r;

Line 213 POLY reduction_ecart(r,gset,needSyz,syzp)

Line 223 POLY reduction_ecart(r,gset,needSyz,syzp)

}

r = goHomogenize11(r,DegreeShifto_vec,DegreeShifto_size,-1,1);

if (EcartAutomaticHomogenization) {

r = goHomogenize11(r,DegreeShifto_vec,DegreeShifto_size,-1,1);

}

/* 1 means homogenize only s */

do {