[BACK]Return to poly3.c CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / Kan

Diff for /OpenXM/src/kan96xx/Kan/poly3.c between version 1.7 and 1.8

version 1.7, 2004/02/23 09:03:42 version 1.8, 2004/06/12 07:29:46
Line 1 
Line 1 
 /* $OpenXM: OpenXM/src/kan96xx/Kan/poly3.c,v 1.6 2002/09/08 10:49:50 takayama Exp $ */  /* $OpenXM: OpenXM/src/kan96xx/Kan/poly3.c,v 1.7 2004/02/23 09:03:42 takayama Exp $ */
 #include <stdio.h>  #include <stdio.h>
 #include "datatype.h"  #include "datatype.h"
 #include "extern2.h"  #include "extern2.h"
Line 117  void monomialMult_diff(e,f)
Line 117  void monomialMult_diff(e,f)
       tmp.e[i] = f->m->e[i];        tmp.e[i] = f->m->e[i];
     }      }
     if ((!weightedHomogenization) && Homogenize) {      if ((!weightedHomogenization) && Homogenize) {
       tmp.e[0].D += EList[k]; /* homogenization.        if (Homogenize == 3) {
                                  e[0].D will be added later. */          tmp.e[0].D += EList[k]/2; /* Double homogenization. */
           tmp.e[0].x += EList[k]/2; /* Dx x = x Dx + h H */
         }else{
           tmp.e[0].D += EList[k]; /* homogenization.
                                      e[0].D will be added later. */
         }
     }else if (weightedHomogenization && Homogenize) {      }else if (weightedHomogenization && Homogenize) {
       tmp.e[0].D += EList[k]/2 ; /* homogenization.  Weight is (1,0) (special).        tmp.e[0].D += EList[k]/2 ; /* homogenization.  Weight is (1,0) (special).
                                                                   */                                                                    */
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>