source: git/kernel/f5c.cc @ e9c3b2

spielwiese
Last change on this file since e9c3b2 was 599326, checked in by Kai Krüger <krueger@…>, 14 years ago
Anne, Kai, Frank: - changes to #include "..." statements to allow cleaner build structure - affected directories: omalloc, kernel, Singular - not yet done: IntergerProgramming git-svn-id: file:///usr/local/Singular/svn/trunk@13032 2c84dea3-7e68-4137-9b89-c4e89433aadc
  • Property mode set to 100644
File size: 1.5 KB
Line 
1#include <kernel/mod2.h>
2#ifdef HAVE_F5C
3#include <unistd.h>
4#include <kernel/structs.h>
5#include <kernel/kutil.h>
6#include <omalloc.h>
7#include <kernel/polys.h>
8#include <kernel/p_polys.h>
9#include <kernel/p_Procs.h>
10#include <kernel/ideals.h>
11#include <kernel/febase.h>
12#include <kernel/kstd1.h>
13#include <kernel/khstd.h>
14#include <kernel/kbuckets.h>
15#include <kernel/weight.h>
16#include <kernel/intvec.h>
17#include <kernel/pInline1.h>
18#include <kernel/f5c.h>
19#include <kernel/F5cData.h>
20#include <kernel/F5cLists.h>
21#include <kernel/timer.h>
22/*
23==========================================================================
24MAIN:computes a gb of the ideal i in the ring r with our F5 implementation
25==========================================================================
26*/
27ideal f5cMain(ideal id, ring r) {
28  Print("SHORT EXP VECTOR 1:  %ld\n", pGetShortExpVector(id->m[0]));
29  int* expVec   = new int[(r->N)+1];
30  pGetExpV(id->m[0],expVec);
31  Print("EXP VECTOR 1: %d\n",expVec[1]);
32  Label* label  = new Label(expVec);
33  Print("EXP VECTOR 2: %d\n", label->getExpVec()[1]);
34  Print("SHORT EXP VECTOR 2:  %ld\n", label->getShortExpVec());
35  //Print("%ld\n", label->computeShortExpVec(expVec));
36  Print("SHORT EXP VECTOR 1:  %ld\n", pGetShortExpVector(id->m[1]));
37  //int* expVec   = new int[(r->N)+1];
38  pGetExpV(id->m[1],expVec);
39  Print("EXP VECTOR 1: %d\n",expVec[1]);
40  Label* label2  = new Label(expVec);
41  Print("EXP VECTOR 2: %d\n", label2->getExpVec()[1]);
42  Print("SHORT EXP VECTOR 2:  %ld\n", label2->getShortExpVec());
43
44  return id;
45}
46
47#endif
48// HAVE_F5C
Note: See TracBrowser for help on using the repository browser.