In[]:=
Clear[x];MultiEvaluate[x=x+1,5,"Graph","EvaluatePattern"->(((Plus|Times)[__]|_Set)->1)]
Out[]=
In[]:=
Clear[x];x:=x+1
In[]:=
MultiEvaluate[x,5,"Graph","EvaluatePattern"->(Plus|Times|Power)[__Integer]]
Out[]=
In[]:=
Clear[x];x:=xx
In[]:=
MultiEvaluate[x,3,"Graph","EvaluatePattern"->(Plus|Times|Power)[__Integer]]
Out[]=
In[]:=
MultiEvaluate[x,4,"GraphStructure","EvaluatePattern"->(Plus|Times|Power)[__Integer]]
Out[]=
In[]:=
VertexCount[%]
Out[]=
23
In[]:=
Table[VertexCount[MultiEvaluate[x,t,"GraphStructure","EvaluatePattern"->(Plus|Times|Power)[__Integer]]],{t,7}]
Out[]=
{2,4,9,23,65,197,626}
In[]:=
Differences[%]
Out[]=
{2,5,14,42,132,429}
In[]:=
FindSequenceFunction[%,t]
Out[]=
-1+2t
2
Pochhammer
5
2
,-1+t
Pochhammer[4,-1+t]
In[]:=
FullSimplify[%,t∈Integers]
Out[]=
3
t
4
Pochhammer
5
2
,-1+t
Gamma[3+t]
In[]:=
Asymptotic[%,{t,Infinity,2}]
Out[]=
1+t
4
π
3/2
t
In[]:=
Clear[x];x:=x^x
In[]:=
MultiEvaluate[x,3,"Graph","EvaluatePattern"->(Plus|Times|Power)[__Integer]]
Out[]=
x:=Nest[]