File: symmetry.h

package info (click to toggle)
dynare 4.5.7-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 49,408 kB
  • sloc: cpp: 84,998; ansic: 29,058; pascal: 13,843; sh: 4,833; objc: 4,236; yacc: 3,622; makefile: 2,278; lex: 1,541; python: 236; lisp: 69; xml: 8
file content (128 lines) | stat: -rw-r--r-- 2,121 bytes parent folder | download | duplicates (5)
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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
/*1:*/
#line 49 "./symmetry.hweb"

#ifndef SYMMETRY_H
#define SYMMETRY_H

#include "equivalence.h"
#include "int_sequence.h"

#include <list> 
#include <vector> 

/*2:*/
#line 69 "./symmetry.hweb"

class Symmetry:public IntSequence{
public:
/*3:*/
#line 93 "./symmetry.hweb"

Symmetry(int len,const char*dummy)
:IntSequence(len,0){}
Symmetry(int i1)
:IntSequence(1,i1){}
Symmetry(int i1,int i2)
:IntSequence(2){operator[](0)= i1;operator[](1)= i2;}
Symmetry(int i1,int i2,int i3)
:IntSequence(3)
{
operator[](0)= i1;
operator[](1)= i2;
operator[](2)= i3;
}
Symmetry(int i1,int i2,int i3,int i4)
:IntSequence(4)
{
operator[](0)= i1;
operator[](1)= i2;
operator[](2)= i3;
operator[](3)= i4;
}
Symmetry(const Symmetry&s)
:IntSequence(s){}
Symmetry(const Symmetry&s,const OrdSequence&cl)
:IntSequence(s,cl.getData()){}
Symmetry(Symmetry&s,int len)
:IntSequence(s,s.size()-len,s.size()){}
Symmetry(const IntSequence&s);

/*:3*/
#line 72 "./symmetry.hweb"
;
int num()const
{return size();}
int dimen()const
{return sum();}
int findClass(int i)const;
bool isFull()const;
};

/*:2*/
#line 59 "./symmetry.hweb"
;
/*4:*/
#line 148 "./symmetry.hweb"

class SymmetrySet{
Symmetry run;
int dim;
public:
SymmetrySet(int d,int length)
:run(length,""),dim(d){}
SymmetrySet(SymmetrySet&s,int d)
:run(s.run,s.size()-1),dim(d){}
int dimen()const
{return dim;}
const Symmetry&sym()const
{return run;}
Symmetry&sym()
{return run;}
int size()const
{return run.size();}
};

/*:4*/
#line 60 "./symmetry.hweb"
;
/*5:*/
#line 177 "./symmetry.hweb"

class symiterator{
SymmetrySet&s;
symiterator*subit;
SymmetrySet*subs;
bool end_flag;
public:
symiterator(SymmetrySet&ss);
~symiterator();
symiterator&operator++();
bool isEnd()const
{return end_flag;}
const Symmetry&operator*()const
{return s.sym();}
};


/*:5*/
#line 61 "./symmetry.hweb"
;
/*6:*/
#line 198 "./symmetry.hweb"

class InducedSymmetries:public vector<Symmetry> {
public:
InducedSymmetries(const Equivalence&e,const Symmetry&s);
InducedSymmetries(const Equivalence&e,const Permutation&p,const Symmetry&s);
void print()const;
};



/*:6*/
#line 62 "./symmetry.hweb"
;

#endif

/*:1*/