如何在mathematica中显示字符矩阵

Question

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

请帮我.

Answer 1

SparseArray设置为执行此操作.这也@@@用于Apply1级的简称:

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
]