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
Basic Examples (from EdP)
Basic Examples (from EdP)
In[]:=
EnumerateHypergraph[lhs_,opts:OptionsPattern[]]:=First/@EnumerateWolframModelRules[lhs{},{maxConnectedAtoms[lhs{},Automatic],Automatic},opts]
In[]:=
EnumerateHypergraph[lhs_,type:Automatic|None|All,opts:OptionsPattern[]]:=First/@EnumerateWolframModelRules[lhs{},{maxConnectedAtoms[lhs{},type],type},opts]
In[]:=
EnumerateHypergraph[lhs_,s_Integer,opts:OptionsPattern[]]:=First/@EnumerateWolframModelRules[lhs{},{s,Automatic},opts]
In[]:=
EnumerateHypergraph[{{3,2}}]
Out[]=
In[]:=
Graph[DirectedEdge@@@#,ImageSizeTiny,GraphLayout"SpringElectricalEmbedding"]&/@EnumerateHypergraph[{{3,2}}]
Out[]=
In[]:=
Union[Graph[DirectedEdge@@@#,ImageSizeTiny,GraphLayout"SpringElectricalEmbedding"]&/@EnumerateHypergraph[{{3,2}}],SameTest(IsomorphicGraphQ[UndirectedGraph[#1],UndirectedGraph[#2]]&)]
Out[]=
In[]:=
Union[Graph[DirectedEdge@@@#,ImageSizeTiny,GraphLayout"SpringElectricalEmbedding"]&/@EnumerateHypergraph[{{4,2}}],SameTest(IsomorphicGraphQ[UndirectedGraph[#1],UndirectedGraph[#2]]&)]
Out[]=
In[]:=
Graph[DirectedEdge@@@#,ImageSizeTiny,GraphLayout"SpringElectricalEmbedding"]&/@EnumerateHypergraph[{{4,2}}]
Out[]=
In[]:=
HypergraphPlot[#,ImageSizeTiny]&/@EnumerateHypergraph[{{2,3}}]
Out[]=
[[ Last case killed; ran overnight and did not complete ]]