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[]:=
ClearAll[ω]ω:={ω}
In[]:=
TraceCausalGraph[ω,8]
Out[]=
In[]:=
TraceCausalGraph[ω,8,"PathGraph"]
Out[]=
In[]:=
Clear[x]
In[]:=
x:=x+1
In[]:=
MultiEvaluate[x,5,"Graph","EvaluatePattern"->(_Plus->2)]
Out[]=
In[]:=
MultiEvaluate[x,5,"Graph"]
Out[]=
In[]:=
MultiEvaluate[x,5,"EvolutionGraph"]
Out[]=
In[]:=
MultiEvaluate[x,5,"EvolutionGraph","EvaluatePattern"->(_Plus->2)]
Out[]=
In[]:=
MultiEvaluate[x,3,"EvolutionCausalGraph","EvaluatePattern"->(_Plus->2)]
Out[]=
After ω steps, the last element is 2^ω
2 ω
Grows out omega steps, trailing something that fills in a square...
[[ Could be with {x_,y_} -> XXXXX ]]
Need to have a tree where the number of branches at each node progressively increases....