矩阵表示为块 - Maple - Cellular automaton

Question

我只有非常基本的Maple技能，并且不确定如何以图形方式将矩阵表示为块，其中矩阵中的1对应于块，0对应于空白空间。

请参阅下面的代码，我在其中添加＆＃34; 1＆＃34;即循环中的中心列的块。我想知道这是否可以用枫树制作动画，其中＆＃34; 1＆＃34; s为实心方块。

这是某人使用其他软件取得的成果。 非常感谢任何帮助，谢谢。

restart;
with(LinearAlgebra):
with(MTM);
with(RandomTools);


M := Matrix([[0, 0, 0, 0, 0], [0, 0, 0, 0, 0], [0, 0, 0, 0, 0], [0, 0, 0, 0, 0], [1, 1, 1, 1, 1]]);


for a to 4 do if (sum(M, 1))[3] < 5 
then z := max(ListTools[SearchAll](0, M..., 3))); 
M(z, 3) := M(z, 3)+1 
end if; 
print(M):
end do;

Answer 1

我相信Maple命令plots:-sparsematrixplot可以帮助你完成大部分工作。可以使用以下图表对这样的图表进行动画处理：-display命令及其insequence选项。例如，10个随机矩阵：

L := NULL;
to 10 do
    L := L, plots:-sparsematrixplot(LinearAlgebra:-RandomMatrix(6, 6, generator = 0 .. 1));
end do;

plots:-display(L, insequence)