| version 1.5, 2003/07/17 07:33:03 |
version 1.6, 2003/08/21 12:28:57 |
|
|
| /* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport1.c,v 1.4 2003/07/13 07:53:17 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/kanExport1.c,v 1.5 2003/07/17 07:33:03 takayama Exp $ */ |
| #include <stdio.h> |
#include <stdio.h> |
| #include "datatype.h" |
#include "datatype.h" |
| #include "stackm.h" |
#include "stackm.h" |
| Line 43 struct object Kreduction(f,set) |
|
| Line 43 struct object Kreduction(f,set) |
|
| }else{ |
}else{ |
| r = (*reduction)(f.lc.poly,grG,1,&syz); |
r = (*reduction)(f.lc.poly,grG,1,&syz); |
| } |
} |
| |
/* outputGradedPolySet(grG,0); */ |
| if (flag) { |
if (flag) { |
| rob = newObjectArray(3); |
rob = newObjectArray(3); |
| putoa(rob,0,KpoPOLY(r)); |
putoa(rob,0,KpoPOLY(r)); |
| Line 500 struct object syzPolyToArray(size,f,grG) |
|
| Line 501 struct object syzPolyToArray(size,f,grG) |
|
| |
|
| while (f != POLYNULL) { |
while (f != POLYNULL) { |
| g0 = srGrade(f); |
g0 = srGrade(f); |
| i0 = srIndex(f); |
i0 = srIndex(f); |
| serial = grG->polys[g0]->serial[i0]; |
serial = grG->polys[g0]->serial[i0]; |
| if (serial < 0) { |
if (serial < 0) { |
| errorKan1("%s\n","syzPolyToArray(): invalid serial[i] of grG."); |
errorKan1("%s\n","syzPolyToArray(): invalid serial[i] of grG."); |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to kanExport1.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / kan96xx / Kan