my intention is to analyse a polytope when adding additional inequalities to its definition. But something seems to be going wrong when defining a polytope via its vertices on one hand and via its inequality description on the other.
I create my first polytope with this script:
Code: Select all
use application "polytope";
declare $p;
$p = new Polytope<Rational>(POINTS=>[
[1,1,0,0,0,1,0,0,0,1,0,0,1],
[1,1,0,0,0,1,0,0,0,1,0,1,0],
[1,1,0,0,0,1,0,0,0,1,1,0,0],
[1,1,0,0,0,1,0,0,1,0,0,0,1],
[1,1,0,0,0,1,0,0,1,0,0,1,0],
[1,1,0,0,0,1,0,0,1,0,1,0,0],
[1,1,0,0,0,1,0,1,0,0,0,0,1],
[1,1,0,0,0,1,0,1,0,0,0,1,0],
[1,1,0,0,0,1,0,1,0,0,1,0,0],
[1,1,0,0,1,0,0,0,1,0,0,0,1],
[1,1,0,0,1,0,0,0,1,0,0,1,0],
[1,1,0,0,1,0,0,0,1,0,1,0,0],
[1,1,0,0,1,0,0,1,0,0,0,1,0],
[1,1,0,0,1,0,0,1,0,0,1,0,0]]);
print "DIM\n";
print $p->DIM;
print "\n\nN_VERTICES\n";
print $p->N_VERTICES;
print "\n\nVERTICES\n";
print $p->VERTICES;
print "\n\nN_FACETS\n";
print $p->N_FACETS;
print "\n\nFACETS\n";
print $p->FACETS;
[\code]
The output is:
[code]
DIM
5
N_VERTICES
14
VERTICES
1 1 0 0 0 1 0 0 0 1 0 0 1
1 1 0 0 0 1 0 0 0 1 0 1 0
1 1 0 0 0 1 0 0 0 1 1 0 0
1 1 0 0 0 1 0 0 1 0 0 0 1
1 1 0 0 0 1 0 0 1 0 0 1 0
1 1 0 0 0 1 0 0 1 0 1 0 0
1 1 0 0 0 1 0 1 0 0 0 0 1
1 1 0 0 0 1 0 1 0 0 0 1 0
1 1 0 0 0 1 0 1 0 0 1 0 0
1 1 0 0 1 0 0 0 1 0 0 0 1
1 1 0 0 1 0 0 0 1 0 0 1 0
1 1 0 0 1 0 0 0 1 0 1 0 0
1 1 0 0 1 0 0 1 0 0 0 1 0
1 1 0 0 1 0 0 1 0 0 1 0 0
N_FACETS
9
FACETS
0 0 0 0 0 0 0 0 0 0 1 0 0
0 0 0 0 1 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 1 0 0 0 0 0
0 0 0 0 -1 0 0 0 1 0 1 1 0
0 0 0 0 0 0 0 0 0 0 0 1 0
0 0 0 0 0 0 0 0 1 0 0 0 0
0 0 0 0 -1 0 0 1 1 0 0 0 0
1 0 0 0 0 0 0 0 0 0 -1 -1 0
1 0 0 0 0 0 0 -1 -1 0 0 0 0
[\code]
Now I take the facets from this output, which are a inequality description of the polytope, and create a polytope with that description:
[code]
use application "polytope";
declare $p;
$p = new Polytope<Rational>(INEQUALITIES=>[
[0,0,0,0,0,0,0,0,0,0,1,0,0],
[0,0,0,0,1,0,0,0,0,0,0,0,0],
[0,0,0,0,0,0,0,1,0,0,0,0,0],
[0,0,0,0,-1,0,0,0,1,0,1,1,0],
[0,0,0,0,0,0,0,0,0,0,0,1,0],
[0,0,0,0,0,0,0,0,1,0,0,0,0],
[0,0,0,0,-1,0,0,1,1,0,0,0,0],
[1,0,0,0,0,0,0,0,0,0,-1,-1,0],
[1,0,0,0,0,0,0,-1,-1,0,0,0,0]]);
print "DIM\n";
print $p->DIM;
print "\n\nN_VERTICES\n";
print $p->N_VERTICES;
print "\n\nVERTICES\n";
print $p->VERTICES;
print "\n\nN_FACETS\n";
print $p->N_FACETS;
print "\n\nFACETS\n";
print $p->FACETS;
[\code]
The output here is:
[code]
DIM
12
N_VERTICES
14
VERTICES
1 0 0 0 0 0 0 0 0 0 0 0 0
1 0 0 0 0 0 0 1 0 0 0 0 0
1 0 0 0 0 0 0 0 1 0 0 0 0
1 0 0 0 1 0 0 0 1 0 0 0 0
1 0 0 0 1 0 0 0 1 0 1 0 0
1 0 0 0 1 0 0 0 1 0 0 1 0
1 0 0 0 0 0 0 0 1 0 1 0 0
1 0 0 0 0 0 0 1 0 0 1 0 0
1 0 0 0 0 0 0 0 0 0 1 0 0
1 0 0 0 0 0 0 0 1 0 0 1 0
1 0 0 0 0 0 0 1 0 0 0 1 0
1 0 0 0 0 0 0 0 0 0 0 1 0
1 0 0 0 1 0 0 1 0 0 1 0 0
1 0 0 0 1 0 0 1 0 0 0 1 0
N_FACETS
9
FACETS
0 0 0 0 0 0 0 0 0 0 1 0 0
0 0 0 0 1 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 1 0 0 0 0 0
0 0 0 0 -1 0 0 0 1 0 1 1 0
0 0 0 0 0 0 0 0 0 0 0 1 0
0 0 0 0 0 0 0 0 1 0 0 0 0
0 0 0 0 -1 0 0 1 1 0 0 0 0
1 0 0 0 0 0 0 0 0 0 -1 -1 0
1 0 0 0 0 0 0 -1 -1 0 0 0 0
[\code]
Shouldn't the vertices or at least the dimension be the same as before? Am I understanding or doing something wrong?
If someone has an idea, please help.
Thanks, Martin