Wolfram Cloud Document

First example from repository

In[]:=

ResourceFunction["MobileAutomatonPlot"][ResourceFunction["MobileAutomaton"][{35,57},{ConstantArray[0,21],10},30]]

Out[]=

$Failed[ResourceFunction[MobileAutomaton][{35,57},{ConstantArray[0,21],10},30]]

Other sequence

In[]:=

T3557=ResourceFunction["MobileAutomaton"][{35,57},{ConstantArray[0,15],7},5]

Out[]=

{{{0,0,0,0,0,0,0,0,0,0,0,0,0,0,0},7},{{0,0,0,0,0,0,1,0,0,0,0,0,0,0,0},6},{{0,0,0,0,0,1,1,0,0,0,0,0,0,0,0},7},{{0,0,0,0,0,1,0,0,0,0,0,0,0,0,0},8},{{0,0,0,0,0,1,0,1,0,0,0,0,0,0,0},7},{{0,0,0,0,0,1,1,1,0,0,0,0,0,0,0},6}}

In[]:=

ResourceFunction["MobileAutomatonPlot"][T3557,Mesh->True,ImageSize->Medium]

Out[]=

$Failed[T3557,MeshTrue,ImageSizeMedium]