version 1.1, 2002/02/04 07:58:28 |
version 1.2, 2002/02/09 06:21:02 |
|
|
/* $OpenXM$ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/poly3a.c,v 1.1 2002/02/04 07:58:28 takayama Exp $ */ |
#include <stdio.h> |
#include <stdio.h> |
#include "datatype.h" |
#include "datatype.h" |
#include "extern2.h" |
#include "extern2.h" |
Line 314 void monomialMult_differential_difference(e,f,mt) |
|
Line 314 void monomialMult_differential_difference(e,f,mt) |
|
} |
} |
|
|
/* Note also that mpMult_diff assumes coefficients and Dx commutes each other*/ |
/* Note also that mpMult_diff assumes coefficients and Dx commutes each other*/ |
POLY mpMult_diff(POLY f,POLY g) |
POLY mpMult_difference(POLY f,POLY g) |
{ |
{ |
int k; |
int k; |
POLY r,temp; |
POLY r,temp; |
mt_declare_locals() |
mt_declare_locals() |
struct multTable *mt; |
struct multTable *mt; |
|
|
/* printf("mpMult_diff(%s,%s)\n",POLYToString(f,'*',1),POLYToString(g,'*',1)); */ |
/* printf("mpMult_difference(%s,%s)\n",POLYToString(f,'*',1),POLYToString(g,'*',1)); */ |
|
|
if (f == POLYNULL || g == POLYNULL) return(POLYNULL); |
if (f == POLYNULL || g == POLYNULL) return(POLYNULL); |
checkRing(f,g); |
checkRing(f,g); |