wolfram-mathematica - 如何在mathematica中显示字符矩阵

Question

我有一个列表，例如 { {1 ,1 }, "Q"}, { {2 ,3 }, "E"}, { {3 ,5 }, "Q"}, { { 4 ,2 }, "Q"}, { {5 ,4 }, "Q"}, { {1 ,5 }, "E"}，我需要在矩形网格中显示字符，例如，在这种情况下，5*5 网格，使得在 (1, 1) 上有一个字符 Q，在 (2, 3) 有一个字母 Q，...，在 (1, 5) 上有一个字母 E 。并且网格中的所有剩余位置都显示为空白。

请帮帮我。

Answer 1

SparseArray设置为执行此操作。这也使用 @@@ 是 Apply 的缩写。在第 1 级:

dat =
{{{1, 1}, "Q"},
 {{2, 3}, "E"},
 {{3, 5}, "Q"},
 {{4, 2}, "Q"},
 {{5, 4}, "Q"},
 {{1, 5}, "E"}};

SparseArray[Rule @@@ dat, {5, 5}, ""] // MatrixForm

SparseArray 的第二个参数(此处为 {5, 5})是显式数组大小。您可以使用 Automatic 将其调整到数据的最远点。第三个(可选)参数是用作数组“背景”的表达式。这里我使用一个空字符串 "" 来满足你对“空白”的要求。由于这变得难以阅读，您可能更喜欢网格线:

Grid[
 SparseArray[Rule @@@ dat, {5, 5}, ""],
 Frame -> All
]