- Timestamp:
- Jan 9, 2007, 12:21:15 PM (17 years ago)
- Branches:
- (u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'd08f5f0bb3329b8ca19f23b74cb1473686415c3a')
- Children:
- a8288503cf23e0e330572db718ded1caf92e11c3
- Parents:
- 2d57b26b1b7e8605b1e3c1f21ccbfbce3b9e547a
- Location:
- kernel
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
kernel/sca.cc
r2d57b2 r651f6f 7 7 * Author: motsak (Oleksandr Motsak) 8 8 * Created: 2006/12/18 9 * Version: $Id: sca.cc,v 1. 2 2007-01-04 14:09:47 motsakExp $9 * Version: $Id: sca.cc,v 1.3 2007-01-09 11:21:15 Singular Exp $ 10 10 *******************************************************************/ 11 11 … … 1076 1076 if( p_GetExp(save, i, currRing) ) 1077 1077 { 1078 const poly tt = xi_Mult_pp(i, pNext, currRing);1078 const poly tt = sca_pp_Mult_xi_pp(i, pNext, currRing); 1079 1079 1080 1080 #ifdef PDEBUG … … 1385 1385 1386 1386 // return x_i * pPoly; preserve pPoly. 1387 poly xi_Mult_pp(unsigned int i, const poly pPoly, const ring rRing)1387 poly sca_pp_Mult_xi_pp(unsigned int i, const poly pPoly, const ring rRing) 1388 1388 { 1389 1389 assume(1 <= i); … … 1645 1645 if( p_GetExp(pSave, i, currRing) ) 1646 1646 { 1647 const poly pNew = xi_Mult_pp(i, pNext, currRing);1647 const poly pNew = sca_pp_Mult_xi_pp(i, pNext, currRing); 1648 1648 1649 1649 #ifdef PDEBUG … … 2058 2058 assume(p_GetExp(pSave, i, currRing) == 1); 2059 2059 2060 const poly pNew = xi_Mult_pp(i, pNext, currRing);2060 const poly pNew = sca_pp_Mult_xi_pp(i, pNext, currRing); 2061 2061 2062 2062 #ifdef PDEBUG -
kernel/sca.h
r2d57b2 r651f6f 5 5 * Computer Algebra System SINGULAR * 6 6 ****************************************/ 7 /* $Id: sca.h,v 1. 1 2007-01-03 00:04:00 motsakExp $ */7 /* $Id: sca.h,v 1.2 2007-01-09 11:21:15 Singular Exp $ */ 8 8 9 9 #include <structs.h> … … 76 76 // this is not a basic operation... but it for efficiency we did it specially for SCA: 77 77 // return x_i * pPoly; preserve pPoly. 78 poly xi_Mult_pp(unsigned int i, const poly pPoly, const ring rRing);78 poly sca_pp_Mult_xi_pp(unsigned int i, const poly pPoly, const ring rRing); 79 79 80 80 // set pProcs for r and the variable p_Procs 81 81 // should be used by p_ProcsSet in "p_Procs_Set.h" 82 82 void SetProcsSCA(ring& rGR, p_Procs_s* p_Procs); 83 83 84 84 85 // is this an exterior algebra or a commutative polynomial ring \otimes exterior algebra? -
kernel/tgb.cc
r2d57b2 r651f6f 5 5 * Computer Algebra System SINGULAR * 6 6 ****************************************/ 7 /* $Id: tgb.cc,v 1.10 8 2007-01-03 00:17:12 motsakExp $ */7 /* $Id: tgb.cc,v 1.109 2007-01-09 11:21:15 Singular Exp $ */ 8 8 /* 9 9 * ABSTRACT: slimgb and F4 implementation … … 1552 1552 assume(p_GetExp(h, v, c->r)==1); 1553 1553 1554 poly p = xi_Mult_pp(v, pNext, c->r); // x_v * h;1554 poly p = sca_pp_Mult_xi_pp(v, pNext, c->r); // x_v * h; 1555 1555 1556 1556 if(p != NULL) // if (x_v * h != 0)
Note: See TracChangeset
for help on using the changeset viewer.