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[]:=
ResourceFunction["MultiwayFunctionSystem"][v|->{2v+1,Map[If[EvenQ[#],#/2,#+1]&,v]},{{1,1}},3,"StatesGraph"]
Out[]=
In[]:=
ResourceFunction["MultiwayFunctionSystem"][v|->{2v+1,Map[If[EvenQ[#],#/2,#+1]&,v]},{{1,1}},3,"EvolutionEventsGraph"]
Out[]=
In[]:=
ResourceFunction["MultiwayFunctionSystem"][v|->{2v+1,Map[If[EvenQ[#],#/2,#+1]&,v]},{{1,1}},2,"EvolutionEventsGraph"]
Out[]=
In[]:=
ResourceFunction["MultiwayFunctionSystem"][v|->{2v+1,Map[If[EvenQ[#],#/2,#+1]&,v]},{{1,1}},3,"EvolutionEventsGraphStructure"]
Out[]=