with(Hypergraphs); with(ExampleHypergraphs);
H := Lovasz(5);
Hypergraphs:-Draw(H);
L := Hypergraphs:-LineGraph(H);
GraphTheory:-DrawGraph(L);
H := Lovasz(4);
Hypergraphs:-Draw(H);
L := Hypergraphs:-LineGraph(H);
GraphTheory:-DrawGraph(L);
DL := DualHypergraph(H);
Draw(DL);
L := Hypergraphs:-LineGraph(DL);
GraphTheory:-DrawGraph(L);