You are using a browser not supported by the Wolfram Cloud
Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.
I understand and wish to continue anyway »
WOLFRAM NOTEBOOK
In[]:=
GraphPlot[Rule@@@WolframModel[{{0,1},{0,2},{0,3}}{{1,2},{2,3},{3,4},{4,1},{4,3}},Table[0,3,2],20,"FinalState"]]
Out[]=
In[]:=
gridstart[list_]:=Catenate[EdgeList[GridGraph[list]]/.UndirectedEdge[a_,b_]{{a,b},{b,a}}]
In[]:=
fromgraph[g_]:=Catenate[EdgeList[g]/.UndirectedEdge[a_,b_]{{a,b},{b,a}}]
In[]:=
GraphPlot[Rule@@@WolframModel[{{0,1},{0,2},{0,3}}{{1,2},{2,3},{3,4},{4,1},{4,3}},gridstart[{6,6}],5,"FinalState"]]
Out[]=
In[]:=
GraphPlot[Rule@@@#]&/@WolframModel[{{0,1},{0,2},{0,3}}{{1,2},{2,3},{3,4},{4,1},{4,3}},gridstart[{6,6}],5,"StatesList"]
Out[]=
In[]:=
LayeredCausalGraph[WolframModel[{{0,1},{0,2},{0,3}}{{1,2},{2,3},{3,4},{4,1},{4,3}},gridstart[{6,6}],5]]
Out[]=
In[]:=
LayeredCausalGraph3D[WolframModel[{{0,1},{0,2},{0,3}}{{1,2},{2,3},{3,4},{4,1},{4,3}},gridstart[{6,6}],5]]
In[]:=
GraphPlot[Rule@@@#]&/@WolframModel[{{0,1},{0,2},{0,3}}{{1,2},{3,2},{3,4},{4,3},{4,4}},gridstart[{6,6}],6,"StatesList"]
Out[]=
In[]:=
GraphPlot[Rule@@@#]&@WolframModel[{{0,1},{0,2},{0,3}}{{1,2},{3,2},{3,4},{4,3},{4,4}},gridstart[{6,6}],<|"MaxEvents"1|>,"FinalState"]
Out[]=
In[]:=
GraphPlot[Rule@@@#]&/@WolframModel[{{0,1},{0,2},{0,3}}{{1,2},{3,2},{3,4},{4,3},{4,4}},gridstart[{6,6}],<|"MaxEvents"10|>,"UpdatedStatesList"]
Out[]=
In[]:=
GraphPlot[Rule@@@#]&/@WolframModel[{{0,1},{0,2},{0,3}}{{1,2},{2,3},{3,4},{4,1},{4,3}},gridstart[{6,6}],<|"MaxEvents"20|>,"UpdatedStatesList"]
Out[]=
In[]:=
GraphPlot[Rule@@@#]&/@Take[WolframModel[{{0,1},{0,2},{0,3}}{{1,2},{2,3},{3,4},{4,1},{4,3}},gridstart[{6,6}],<|"MaxEvents"50|>,"UpdatedStatesList"],1;;-1;;5]
Out[]=
In[]:=
GraphPlot[Rule@@@#]&/@Take[WolframModel[{{0,1},{0,2},{0,3}}{{1,2},{2,3},{3,4},{4,1},{4,3}},fromgraph[CompleteGraph[6]],<|"MaxEvents"50|>,"UpdatedStatesList"],1;;-1;;5]