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

Return to poly4.c CVS log

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

Diff for /OpenXM/src/kan96xx/Kan/poly4.c between version 1.13 and 1.15

version 1.13, 2004/06/12 07:29:46

version 1.15, 2005/06/16 05:07:23

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/poly4.c,v 1.12 2003/08/24 05:19:42 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/poly4.c,v 1.14 2004/07/29 08:13:42 takayama Exp $ */

#include <stdio.h>

#include "datatype.h"

#include "stackm.h"

Line 41 struct matrixOfPOLY *parts(f,v)

int *ev;

struct object *evList;

struct object *list;

struct object ob;

struct object ob = OINIT;

POLY ans;

POLY h;

extern struct ring *CurrentRingp;

Line 128 struct object parts2(f,v)

int *ev;

struct object *evList;

struct object *list;

struct object ob;

struct object ob = OINIT;

POLY ans;

POLY h;

POLY ft;

struct object ob1,ob2,rob;

struct object ob1 = OINIT;

struct object ob2 = OINIT;

struct object rob = OINIT;

if (f ISZERO || v ISZERO) {

Line 388 POLY f;

Line 390 POLY f;

int flag,d,dd,neg;

if (f == ZERO) return(f);

t = f; maxg = (*grade)(f); flag = 0;

maxdg = dDegree(f);

t = f;

maxg = (*grade)(f);

while (t != POLYNULL) {

dd = (*grade)(t);

if (maxg < dd) maxg = dd;

t = t->next;

}

/* fprintf(stderr,"maxg=%d\n",maxg); */

t = f;

maxdg = dDegree(f);

while (t != POLYNULL) {

dd = dDegree(t);

if (maxdg < dd) maxdg = dd;

t = t->next;

}

/* fprintf(stderr,"maxdg=%d\n",maxdg); */

t = f;

flag = 0;

while (t != POLYNULL) {

d = (*grade)(t);

if (d != maxg) flag = 1;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>