Matrix 矩阵表示为块-枫叶-细胞自动机

我只有非常基本的Maple技能，不确定如何以图形的方式表示矩阵，矩阵中的1对应一个块，0对应一个空白

请参阅下面的代码，我在其中添加了一个“1”，即循环中的中央列中添加了一个块。我想知道这是不是可以用maple动画，用“1”作为实心正方形

这是一张某人使用不同软件实现的图片。 任何帮助都将不胜感激，谢谢

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;

重启；
带（线性文胸）：
有（MTM）；
使用（随机工具）；
M:=矩阵（[[0,0,0,0,0]，[0,0,0,0,0]，[0,0,0,0,0]，[0,0,0,0,0]，[1,1,1,1]）；
对于a到4，如果（和（M，1））[3]<5
然后z:=max（ListTools[SearchAll]（0，M…，3））；
M（z，3）：=M（z，3）+1
如果结束；
打印（M）：
结束do；

我相信Maple命令

绘图：-sparsematrixplot

将为您提供大部分解决方案。可以使用plots:-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)

---

谢谢，sparsematrixplot命令运行良好！我试图从中创建一个矩阵数组，但没有成功。你能告诉我怎么做吗？我应该说“序列”而不是“数组”。我添加了一个示例。