1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
@q $Id: tl_static.hweb 148 2005-04-19 15:12:26Z kamenik $ @>
@q Copyright 2004, Ondra Kamenik @>
@*2 Tensor library static data. Start of {\tt tl\_static.h} file.
The purpose of this file is to make a unique static variable which
would contain all other static variables and be responsible for their
correct initialization and destruction. The variables include an
equivalence bundle and a Pascal triangle for binomial
coefficients. Both depend on dimension of the problem, and maximum
number of variables.
So we declare static |tls| variable of type |TLStatic| encapsulating
the variables. The |tls| must be initialized at the beginning of
the program, as dimension and number of variables is known.
Also we define a class for Pascal triangle.
@c
#ifndef TL_STATIC_H
#define TL_STATIC_H
#include "equivalence.h"
#include "permutation.h"
@<|PascalTriangle| class declaration@>;
@<|TLStatic| class declaration@>;
extern TLStatic tls;
#endif
@ Pascal triangle is a storage for binomial coefficients. We store in
|data| array the coefficients of rectangle starting at $\pmatrix{0\cr
0}$, and ending $\pmatrix{nmax+kmax\cr kmax}$.
@<|PascalTriangle| class declaration@>=
class PascalTriangle {
int* data;
int kmax;
int nmax;
public:@;
PascalTriangle(int n, int k);
~PascalTriangle()
{@+ delete [] data;@+}
int noverk(int n, int k) const;
};
@
@<|TLStatic| class declaration@>=
struct TLStatic {
EquivalenceBundle* ebundle;
PermutationBundle* pbundle;
PascalTriangle* ptriang;
TLStatic();
~TLStatic();
void init(int dim, int nvar);
};
@ End of {\tt tl\_static.h} file.
|
