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[]:=
Graph[Rule@@@#]&/@WolframModel[{{x,y}}{{y,z},{z,x}},{{0,0}},5,"StatesList"]
Out[]=
In[]:=
RulePlot[WolframModel[{{1,2,3},{4,5,6},{1,4}}{{2,7,8},{3,9,10},{5,11,12},{6,13,14},{13,8},{7,10},{9,12},{11,14}}]]
Out[]=
In[]:=
WolframModelData=ResourceFunction["WolframModelData"]
Out[]=
In[]:=
WolframModelData[All,"Rule"]
Out[]=
Colored net analog
Colored net analog
In[]:=
ResourceFunction["FindCanonicalWolframModel"][{{p1r,p1y,p1g},{p2r,p2y,p2g},{p1r,p2r},{p2r,p1r}}{{p1g,p3y,p3g},{p1y,p4y,p4g},{p2g,p5y,p5g},{p2y,p6y,p6g},{p3y,p6g},{p3g,p4y},{p4y,p3g},{p4g,p5y},{p5y,p4g},{p5g,p6y},{p6y,p5g},{p6g,p3y}}]
Out[]=
$Aborted
In[]:=
init={{p1r,p1y,p1g},{p2r,p2y,p2g},{p1r,p2r},{p2r,p1r},{p1y,p2y},{p2y,p1y},{p1g,p2g},{p2g,p1g}};
In[]:=
HypergraphPlot/@WolframModel[{{p1r,p1y,p1g},{p2r,p2y,p2g},{p1r,p2r},{p2r,p1r}}{{p1g,p3y,p3g},{p1y,p4y,p4g},{p2g,p5y,p5g},{p2y,p6y,p6g},{p3y,p6g},{p3g,p4y},{p4y,p3g},{p4g,p5y},{p5y,p4g},{p5g,p6y},{p6y,p5g},{p6g,p3y}},init,4,"StatesList"]
Out[]=
In[]:=
HypergraphPlot/@WolframModel[{{p1r,p1y,p1g},{p2r,p2y,p2g},{p1r,p2r},{p2r,p1r}}{{p1g,p3y,p3g},{p1y,p4y,p4g},{p2g,p5y,p5g},{p2y,p6y,p6g},{p3y,p6g},{p3g,p4y},{p4y,p3g},{p4g,p5y},{p5y,p4g},{p5g,p6y},{p6y,p5g},{p6g,p3y}},init,6,"StatesList"]
Out[]=
In[]:=
WolframModel[{{p1r,p1y,p1g},{p2r,p2y,p2g},{p1r,p2r},{p2r,p1r}}{{p1g,p3y,p3g},{p1y,p4y,p4g},{p2g,p5y,p5g},{p2y,p6y,p6g},{p3y,p6g},{p3g,p4y},{p4y,p3g},{p4g,p5y},{p5y,p4g},{p5g,p6y},{p6y,p5g},{p6g,p3y}},init,10]
Out[]=
In[]:=
GraphPlot3D[HypergraphToGraph[%111[-1]]]
Out[]=
In[]:=
GraphEmbedding[HypergraphToGraph[%111[-1]],"SpringElectricalEmbedding",3];
In[]:=
%179
Out[]=
In[]:=
ResourceFunction["NonConvexHullMesh"][%179,2]
Out[]=
Oriented networks / networks with faces
Oriented networks / networks with faces
Max grid rule
Max grid rule