wolfram-mathematica - 在 Mathematica 中创建新的元胞自动机规则

Question

我需要在 Mathematica 中创建一个新的 CA 规则。我能怎么做？我的意思是，我需要创建一个具有 3 种颜色（黑色、白色和灰色）的 CA。你能帮帮我吗？

Answer 1

指定自定义规则的一种方法是定义一个函数，在给定邻居列表和时间步长的情况下，该函数将输出更新后的值。例如

fun[lst_, t_] := Mod[Total[lst], 3]

这将简单地计算元素模3的所有邻居的总和。然后可以CellularAutomaton按如下方式使用此函数

With[{init = {0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0}, nsteps = 10, r = 1},
   res = CellularAutomaton[{fun, {}, r}, init, nsteps]]

ArrayPlot[res]