[BACK]Return to isolv.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / builtin

Diff for /OpenXM_contrib2/asir2000/builtin/isolv.c between version 1.3 and 1.5

version 1.3, 2003/10/23 01:32:59 version 1.5, 2005/07/14 22:46:03
Line 1 
Line 1 
 /*  /*
  * $OpenXM: OpenXM_contrib2/asir2000/builtin/isolv.c,v 1.2 2003/10/20 07:32:19 saito Exp $   * $OpenXM: OpenXM_contrib2/asir2000/builtin/isolv.c,v 1.4 2005/02/08 18:06:05 saito Exp $
  */   */
   
 #include "ca.h"  #include "ca.h"
Line 66  Obj  *rp;
Line 66  Obj  *rp;
                         fprintf(stderr,"solve,");                          fprintf(stderr,"solve,");
                         error(" : Sorry, not yet implement of multivars");                          error(" : Sorry, not yet implement of multivars");
                         break;                          break;
                 defaults:                  default:
                         *rp = 0;                          *rp = 0;
         }          }
 }  }
Line 77  NODE arg;
Line 77  NODE arg;
 Obj  *rp;  Obj  *rp;
 {  {
         pointer p, Eps;          pointer p, Eps;
         pointer root, listp;          pointer root;
           LIST            listp;
         V                       v;          V                       v;
         Q                       eps;          Q                       eps;
         NODE            n, n0, m0, m, ln0;          NODE            n, n0, m0, m, ln0;
Line 128  Obj  *rp;
Line 129  Obj  *rp;
                         fprintf(stderr,"solve,");                          fprintf(stderr,"solve,");
                         error(" : Sorry, not yet implement of multivars");                          error(" : Sorry, not yet implement of multivars");
                         break;                          break;
                 defaults:                  default:
                         *rp = 0;                          *rp = 0;
         }          }
 }  }
Line 285  MAT root;
Line 286  MAT root;
 {  {
         Q       a, b, c, d, e;          Q       a, b, c, d, e;
         P       p;          P       p;
         p = (P*)BDY(root)[indx][3];          p = (P)BDY(root)[indx][3];
         addq(BDY(root)[indx][0], BDY(root)[indx][1], &c);          addq(BDY(root)[indx][0], BDY(root)[indx][1], &c);
         divq(c, TWO, &d);          divq(c, TWO, &d);
         ueval(p, BDY(root)[indx][1], &a);          ueval(p, BDY(root)[indx][1], &a);

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.5

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