function - 在数学矩阵图中使用 2 个颜色函数

Question

我试图在mathematica 的一个矩阵图中使用2 个颜色函数。这可能吗？

例如，使用一个非常简单的矩阵：

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

我想让偶数的颜色从白色增加到红色；奇数的颜色从灰色到黑色不等。

我怎么能这样做？我知道如何让整个矩阵的颜色发生变化，但仅此而已。

Answer 1

您可以尝试定义 aColorFunction如下。

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]]