階数4の配列を可視化する
階数4の配列は,行列に投影させて可視化することができる.以下では,暖色の正方形は独立した構成要素,似た色の正方形は等しい構成要素を表す.寒色の正方形は,独立した構成要素の負であり,白い正方形は対称性によりゼロになることを強いられる.
symmetries = {Symmetric[All], Symmetric[{1, 2}], {{2, 3, 4, 1}, -1}, Antisymmetric[{1, 2}], {Symmetric[{1, 2}], Antisymmetric[{3, 4}]}, {Antisymmetric[{1, 2}], Antisymmetric[{3, 4}], {Cycles[{{1, 3}, {2, 4}}], 1}}, Antisymmetric[All]};labels = Column /@ {{"Complete ", "Symmetry"}, {"Symmetric ", "in 1 pair"}, {"Anticyclic", "Symmetry"}, {"Antisymmetric ", "in 1 pair"}, {"1 Symmetric and ", "1 Antisymmetric Pair"}, {"Riemann", "Symmetry"}, {"Complete", "Antisymmetry "}};Manipulate[MatrixPlot@ArrayFlatten@Normal@Block[{c = 1}, SymmetrizedArray[_ :> c++, ConstantArray[dimension, 4], symmetry]], {{symmetry, Symmetric[All]}, Thread[symmetries -> labels], ControlType -> SetterBar}, {{dimension, 5}, Range[2, 8], ControlType -> SetterBar}]