-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathcompute_properties
More file actions
70 lines (52 loc) · 992 Bytes
/
compute_properties
File metadata and controls
70 lines (52 loc) · 992 Bytes
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
sub compute_properties_smooth_reflexive {
my $f = shift;
my $p = load($f);
$p->CONE_DIM;
$p->N_VERTICES;
$p->N_FACETS;
$p->FACET_WIDTH;
$p->LATTICE_VOLUME;
$p->N_INTERIOR_LATTICE_POINTS;
$p->N_BOUNDARY_LATTICE_POINTS;
$p->N_LATTICE_POINTS;
$p->ESSENTIALLY_GENERIC;
$p->GORENSTEIN;
$p->LATTICE_CODEGREE;
$p->LATTICE_DEGREE;
$p->REFLEXIVE;
$p->SMOOTH;
$p->VERY_AMPLE;
$p->CENTROID;
$p->FACET_WIDTHS;
$p->F_VECTOR;
$p->H_STAR_VECTOR;
$p->EHRHART_POLYNOMIAL_COEFF;
$p->VERTICES;
$p->FACETS;
save($p, $f);
}
sub compute_properties_tom {
my $f = shift;
my $p = load($f);
$p->N_PHP;
$p->RANK;
$p->DIM;
$p->N_VERTICES;
$p->N_TOPES;
$p->N_TYPES;
$p->N_APICES;
$p->GENERAL_POSITION;
$p->BOUNDARY_AXIOM;
$p->SURROUNDING_AXIOM;
$p->COMPARABILITY_AXIOM;
$p->ELIMINATION_AXIOM;
$p->IS_TOM;
$p->VERTICES;
$p->TOPES;
$p->APICES;
save($p, $f);
}
print @ARGV; print "\n";
foreach (@ARGV) {
compute_properties_smooth_reflexive($_);
}