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

Return to poly3.c CVS log

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

version 1.5, 2002/02/09 06:21:02

version 1.6, 2002/09/08 10:49:50

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/poly3.c,v 1.4 2002/02/04 07:58:28 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/poly3.c,v 1.5 2002/02/09 06:21:02 takayama Exp $ */

#include <stdio.h>

#include "datatype.h"

#include "extern2.h"

Line 98 void monomialMult_diff(e,f)

/* (e) * f = [Plist] monomials */

{

int n,k,c,l,q,i,m;

int n,k,c,l,q,i,m, weightedHomogenization;

struct coeff *a;

struct monomial tmp;

struct ring *ringp;

Line 106 void monomialMult_diff(e,f)

tmp.ringp = ringp = f->m->ringp;

n = ringp->n; c = ringp->c; l = ringp->l; m = ringp->m;

weightedHomogenization = ringp->weightedHomogenization;

for (k=Plist-1; k>=0; k--) {

/* coeff */

a = coeffCopy(CList[k]);

Line 115 void monomialMult_diff(e,f)

Line 116 void monomialMult_diff(e,f)

for (i=0; i<n; i++) {

tmp.e[i] = f->m->e[i];

}

if (Homogenize) {

if ((!weightedHomogenization) && Homogenize) {

tmp.e[0].D += EList[k]; /* homogenization.

e[0].D will be added later. */

}

}else if (weightedHomogenization && Homogenize) {

tmp.e[0].D += EList[k]/2 ; /* homogenization. Weight is (1,0) (special).

}

/* from m to n: Differential variables. */

for (i=0; i<Maxv; i++) {