Code: Select all
matroid > $F = fano_matroid;
matroid > print $F->CIRCUITS;
{0 1 6}
{0 2 5}
{0 3 4}
{1 2 3}
{1 4 5}
{2 4 6}
{3 5 6}
{0 1 2 4}
{0 1 3 5}
{0 2 3 6}
{0 4 5 6}
{1 2 5 6}
{1 3 4 6}
{2 3 4 5}
Code: Select all
matroid > $F->LABELS="1 2 3 4 a b c";
matroid > print $F->LABELS->[0];
1
matroid > print rows_labeled($F->CIRCUITS,undef,$F->LABELS);
0:1 2 c
1:1 3 b
2:1 4 a
3:2 3 4
4:2 a b
5:3 a c
6:4 b c
7:1 2 3 a
8:1 2 4 b
9:1 3 4 c
10:1 a b c
11:2 3 b c
12:2 4 a c
13:3 4 a b
Code: Select all
$l=$F->LATTICE_OF_FLATS;
$l->VISUAL();