OFFSET
1,2
COMMENTS
Uses function "solidformBTK" from link above.
LINKS
Wouter Meeussen, Solid Partitions Mathematica functions
Luigi Togliani, Forms of Crossed and Simple Polygons, Science & Philosophy (2019) Vol. 7, No. 2, 71-82.
EXAMPLE
Solid partition [{{3, 1, 1, 1}, {3}}, {{2, 1}}, {{1}}, {{1}}, {{1}}] mirrors into [{{3, 3}, {1}, {1}, {1}}, {{2}, {1}}, {{1}}, {{1}}, {{1}}] by mirroring each layer as a plane partition.
MATHEMATICA
flip[pili_List] := Module[{wide, it}, wide =Length[pili[[1]]]; it = Join[ #, Table[0, {wide - Length[ # ]}]] & /@ pili; DeleteCases[ Transpose[it], 0 | {}, -1]]; Table[sn = Sort@Flatten[solidformBTK /@ Partitions[n]]; Frequencies[Length /@ ToCycles[Ordering[Map[flip@ # &, sn, {2}]]] ], {n, 1, 15}]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Wouter Meeussen, Jun 27 2004
STATUS
approved