wolfram-mathematica - Mathematicaで新しいセルオートマトンルールを作成する

Question

Mathematicaで新しいCARULEを作成する必要があります。どのようにできるのか？つまり、3色（黒、白、灰色）のCAを作成する必要があります。あなたは私を助けることができます？

Answer 1

カスタムルールを指定する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]