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