function - Mathematica マトリックス プロットで 2 つの色関数を使用する

Question

Mathematica の 1 つのマトリックス プロット内で 2 つのカラー関数を使用しようとしています。これは可能ですか？

たとえば、非常に単純なマトリックスを使用すると、次のようになります。

test = Partition[Table[i, {i, 1, 9}], 3]

偶数の色を白から赤に変化させたいと思います。奇数は灰色から黒まで色が異なります。

どうすればこれを行うことができますか? マトリックス全体の色を変える方法は知っていますが、これ以上はありません。

Answer 1

以下のように a を定義してみてくださいColorFunction。

CheckerPlot[array_?MatrixQ] :=
    With[{len = Length[Flatten[array]]}, 
        ArrayPlot[array,
                  ColorFunction->(If[EvenQ[#], Blend[{White, Red}, #/len], 
                                               Blend[{Gray,Black}, #/len]] &), 
                  ColorFunctionScaling -> False]
    ]

たとえば、次のように実行します。

CheckerPlot[Partition[Table[i, {i,1,36}], 5]]