WOLFRAM NOTEBOOK

Manifold Engineering

In[]:=
HypergraphPlot/@WolframModel[{{1,2,3}}{{1,4,6},{2,5,4},{3,6,5}},{{1,2,3}},4,"StatesList"]
Out[]=
In[]:=
HypergraphPlot/@WolframModel[{{1,2,3}}{{1,4,6},{2,5,4},{3,6,5}},{{0,0,0}},5,"StatesList"]
Out[]=
In[]:=
HypergraphPlot/@WolframModel[{{1,2,3}}{{1,4,6},{2,5,4},{3,6,5},{4,6,5}},{{1,2,3}},4,"StatesList"]
Out[]=
HypergraphPlot/@WolframModel[{{1,2,3}}{{1,4,6},{2,5,4},{3,6,5}},{{1,2,3}},4,"StatesList"]
In[]:=
HypergraphPlot/@WolframModel[{{1,2},{2,3},{3,1}}{{1,4},{4,6},{6,1},{2,5},{5,4},{4,2},{3,6},{6,5},{5,3}},{{1,2},{2,3},{3,1}},4,"StatesList"]
Out[]=
In[]:=
HypergraphPlot/@WolframModel[{{1,2},{2,3},{3,1}}{{1,4},{4,6},{6,1},{2,5},{5,4},{4,2},{3,6},{6,5},{5,3}},{{1,2},{2,3},{3,1}},4,"StatesList"]
HypergraphPlot/@WolframModel[{{1,2,3,4}}{{1,4,6},{2,5,4},{3,6,5}},{{1,2,3}},4,"StatesList"]
Out[]=
In[]:=
WolframModel[{{1,2},{2,3},{3,4},{4,1}}{{1,5},{5,9},{9,8},{8,1},{5,2},{2,6},{6,9},{9,5},{3,7},{7,9},{9,6},{6,3},{4,8},{8,9},{9,7},{7,4}},{{1,2},{2,3},{3,4},{4,1}},4,"FinalState"]//HypergraphPlot
Out[]=
In[]:=
HypergraphPlot/@WolframModel[{{1,2},{2,3},{3,4},{4,1}}{{1,5},{5,9},{9,8},{8,1},{5,2},{2,6},{6,9},{9,5},{3,7},{7,9},{9,6},{6,3},{4,8},{8,9},{9,7},{7,4}},{{1,2},{2,3},{3,4},{4,1}},3,"StatesList"]
Out[]=

From Colored Networks [See also ManifoldSearch-03]

In[]:=
HypergraphPlot/@WolframModel[{{{15,2,3,1},{16,5,6,4},{2,5},{5,2}}{{17,1,8,7},{18,3,10,9},{19,4,12,11},{20,6,14,13},{8,12},{7,9},{10,14},{9,7},{12,8},{11,13},{14,10},{13,11}}},{{1,2,3,4},{5,6,7,8},{2,6},{3,7},{4,8},{6,2},{7,3},{8,4}},6,"StatesList"]
Out[]=
In[]:=
HypergraphPlot/@WolframModel[{{{2,3,1},{5,6,4},{2,5},{5,2}}{{1,8,7},{3,10,9},{4,12,11},{6,14,13},{8,12},{7,9},{10,14},{9,7},{12,8},{11,13},{14,10},{13,11}}},{{2,3,4},{6,7,8},{2,6},{3,7},{4,8},{6,2},{7,3},{8,4}},7,"StatesList"]
Out[]=
Dropping reverse edges:
In[]:=
HypergraphPlot/@WolframModel[{{{2,3,1},{5,6,4},{2,5}}{{1,8,7},{3,10,9},{4,12,11},{6,14,13},{8,12},{7,9},{10,14},{11,13}}},{{2,3,4},{6,7,8},{2,6},{3,7},{4,8}},7,"StatesList"]
Out[]=
In[]:=
GraphPlot3D[HypergraphToGraph@WolframModel[{{{2,3,1},{5,6,4},{2,5}}{{1,8,7},{3,10,9},{4,12,11},{6,14,13},{8,12},{7,9},{10,14},{11,13}}},{{2,3,4},{6,7,8},{2,6},{3,7},{4,8}},8,"FinalState"]]

^Different Rule [[ Actually the same ]]

Wolfram Cloud

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 »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.