source: git/Singular/spolys0.h @ 82716e

spielwiese
Last change on this file since 82716e was f003a9, checked in by Olaf Bachmann <obachman@…>, 26 years ago
* polys-impl.cc, polys.cc: No COMP_FAST any more * Makefile.in: Introduced variable PERL, set by configure * kstdfac.cc (kStratCopy): kModW iv is not copied, but just the pointer is set 1998-03-18 Olaf Bachmann <obachman@mathematik.uni-kl.de> * Makefile.in: added Singularb target for bprof * polys-impl.h, polys-comp.h: Cleaned up COMP_FAST and related #defines 1998-03-16 Olaf Bachmann <obachman@mathematik.uni-kl.de> * polys-impl.h: no #define COMP_FAST * configure.in,Makefile.in: check for flex -P; increased version number to 1.1.7 git-svn-id: file:///usr/local/Singular/svn/trunk@1268 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 1.4 KB
Line 
1#ifndef SPOLYS0_H
2#define SPOLYS0_H
3/****************************************
4*  Computer Algebra System SINGULAR     *
5****************************************/
6/* $Id: spolys0.h,v 1.9 1998-03-23 22:51:10 obachman Exp $ */
7/*
8* ABSTRACT: s-polynomials, internal header
9*/
10#include "polys.h"
11#include "binom.h"
12#include "polys-impl.h"
13#include "spSpolyLoop.h"
14
15
16#define spMemcpy(A,B)      pCopy2(A,B)
17
18
19#define spMonAdd(a,m)  \
20        {for(int ii=pVarLowIndex; ii<=pVarHighIndex; ii++) (a)->exp[ii] += (m)->exp[ii];\
21        pGetOrder(a) += pGetOrder(m);}
22#define spMonSub(a,b)  \
23        {for(int ii=pVarLowIndex; ii<=pVarHighIndex; ii++) (a)->exp[ii] -= (b)->exp[ii];\
24        pGetOrder(a) -= pGetOrder(b);}
25
26void spModuleToPoly(poly a1);
27
28/* reduction */
29poly spGSpolyRed(poly p1, poly p2,poly spNoether,
30                 spSpolyLoopProc spSpolyLoop);
31void spGSpolyTail(poly p1, poly q, poly q2, poly spNoether,
32                  spSpolyLoopProc spSpolyLoop);
33poly spGSpolyRedNew(poly p1, poly p2,poly spNoether,
34                    spSpolyLoopProc spSpolyLoop);
35
36/* s-polynomial */
37poly spGSpolyCreate(poly p1, poly p2,poly spNoether);
38
39/* short s-polynomial for ordering in Bba and Mora */
40poly spGSpolyShortBba(poly p1, poly p2);
41//poly spGSpolyShortMora(poly p1, poly p2, int *ecart);
42
43extern void spMultCopyX(poly p, poly m, poly n, number exp, poly spNoether);
44extern void spGMultCopyX(poly p, poly m, poly n, number exp, poly spNoether);
45
46#endif
47
Note: See TracBrowser for help on using the repository browser.