version 1.14, 2001/07/03 01:41:25 |
version 1.16, 2001/09/03 01:04:26 |
|
|
/* $OpenXM: OpenXM_contrib2/asir2000/engine/Hgfs.c,v 1.13 2001/06/29 09:08:53 noro Exp $ */ |
/* $OpenXM: OpenXM_contrib2/asir2000/engine/Hgfs.c,v 1.15 2001/08/02 03:59:15 noro Exp $ */ |
|
|
#include "ca.h" |
#include "ca.h" |
|
|
|
|
/* f(x,y) -> f(x,y+ev) */ |
/* f(x,y) -> f(x,y+ev) */ |
fl = BMALLOC(dx,dy); |
fl = BMALLOC(dx,dy); |
ptosfbm(dy,f,fl); |
ptosfbm(dy,f,fl); |
shiftsfbm(fl,FTOIF(CONT(ev))); |
if ( ev ) shiftsfbm(fl,FTOIF(CONT(ev))); |
|
|
/* sf = f(x+ev) */ |
/* sf = f(x+ev) */ |
sfbmtop(fl,x,y,&sf); |
sfbmtop(fl,x,y,&sf); |
|
|
return; |
return; |
} |
} |
sfdtest(sf,list,x,y,&dc); |
sfdtest(sf,list,x,y,&dc); |
dx = getdeg(x,sf); |
if ( ev ) { |
dy = getdeg(y,sf); |
dx = getdeg(x,sf); |
W_BMALLOC(dx,dy,fl); |
dy = getdeg(y,sf); |
for ( dct = dc; dct; dct = NEXT(dct) ) { |
W_BMALLOC(dx,dy,fl); |
ptosfbm(dy,COEF(dct),fl); |
for ( dct = dc; dct; dct = NEXT(dct) ) { |
shiftsfbm(fl,_chsgnsf(FTOIF(CONT(ev)))); |
ptosfbm(dy,COEF(dct),fl); |
sfbmtop(fl,x,y,&COEF(dct)); |
shiftsfbm(fl,_chsgnsf(FTOIF(CONT(ev)))); |
|
sfbmtop(fl,x,y,&COEF(dct)); |
|
} |
} |
} |
*dcp = dc; |
*dcp = dc; |
} |
} |
|
|
if ( j >= 0 ) |
if ( j >= 0 ) |
return 0; |
return 0; |
sfbmtop(ql,x,y,qp); |
sfbmtop(ql,x,y,qp); |
|
} |
|
|
|
/* XXX generate an irreducible poly of degree n */ |
|
|
|
void generate_defpoly_sfum(n,dp) |
|
int n; |
|
UM *dp; |
|
{ |
} |
} |