Symbols and Functions > Utility Functions >
HypergraphAutomorphismGroup
does the same thing
as GraphAutomorphismGroup
, but for ordered
hypergraphs:
In[] := HypergraphAutomorphismGroup[{{1, 2, 3}, {1, 2, 4}}]
Out[] = PermutationGroup[{Cycles[{{3, 4}}]}]
A more complicated example:
In[] := GroupOrder[
HypergraphAutomorphismGroup[
EchoFunction[
HypergraphPlot] @ {{1, 2, 3}, {3, 4, 5}, {5, 6, 1}, {1, 7, 3}, {3,
8, 5}, {5, 9, 1}}]]
Out[] = 24