Out[]=
In[]:=
res=MultiwaySystem[x_Integer+y_Integer:>x+y/;True,Unevaluated[(10+(20+30))]]
Out[]=
MultiwaySystem
In[]:=
res["TokenEventGraph",4]
Out[]=
In[]:=
MapAt[Framed,ToLinkedHypergraph[Unevaluated[(10+(20+30))]],{All,2}]
Out[]=
1,,2,3,2,,3,,4,5,4,,5,
In[]:=
ResourceFunction["WolframModelPlot"][MapAt[Framed,ToLinkedHypergraph[Unevaluated[(10+(20+30))]],{All,2}],VertexLabels->Automatic]
Out[]=
In[]:=
Hypergraph[MapAt[Framed,ToLinkedHypergraph[Unevaluated[(10+(20+30))]],{All,2}],VertexLabels->Automatic]
Out[]=
In[]:=
res=MultiwaySystem[x_Integer+y_Integer:>x+y/;True,Unevaluated[1+2]]
Out[]=
MultiwaySystem
In[]:=
res["TokenEventGraph",4]
Out[]=