In[]:=
Graph3D[HypergraphToGraph@WolframModel[{{1,2,3},{4,2,5}}{{6,3,1},{3,6,4},{1,2,6}},{{0,0,0},{0,0,0}},500,"FinalState"]]
Out[]=
In[]:=
With[{w=GraphEmbedding[HypergraphToGraph@WolframModel[{{1,2,3},{4,2,5}}{{6,3,1},{3,6,4},{1,2,6}},{{0,0,0},{0,0,0}},500,"FinalState"],"SpringElectricalEmbedding",3]},Manipulate[ResourceFunction["NonConvexHullMesh"][w,t],{t,0,5}]]
Out[]=
In[]:=
With[{w=GraphEmbedding[HypergraphToGraph@WolframModel[{{1,2,3},{4,2,5}}{{6,3,1},{3,6,4},{1,2,6}},{{0,0,0},{0,0,0}},2000,"FinalState"],"SpringElectricalEmbedding",3]},Manipulate[ResourceFunction["NonConvexHullMesh"][w,t],{t,0,5}]]
Out[]=
In[]:=
With[{w=GraphEmbedding[HypergraphToGraph@WolframModel[{{1,2,3},{4,2,5}}{{6,3,1},{3,6,4},{1,2,6}},{{0,0,0},{0,0,0}},500,"FinalState"],"SpringElectricalEmbedding",3]},Graphics3D[Point[w]]]
Out[]=
In[]:=
With[{w=WolframModel[{{1,2,3},{4,2,5}}{{6,3,1},{3,6,4},{1,2,6}},{{0,0,0},{0,0,0}},2000,"FinalState"]},Show[Graphics3D[{Style[ResourceFunction["NonConvexHullMesh"][GraphEmbedding[HypergraphToGraph@w,"SpringElectricalEmbedding",3],2.5],Opacity[.1]]}],GraphPlot3D[HypergraphToGraph@w]]]
Out[]=
In[]:=
With[{w=WolframModel[{{1,2,3},{4,2,5}}{{6,3,1},{3,6,4},{1,2,6}},{{0,0,0},{0,0,0}},2000,"FinalState"]},Show[Graphics3D[{Style[ResourceFunction["NonConvexHullMesh"][GraphEmbedding[HypergraphToGraph@w,"SpringElectricalEmbedding",3],2.5],Directive[EdgeForm[None],Opacity[.1]]]}],GraphPlot3D[HypergraphToGraph@w]]]
Out[]=
Look at average edge length to find reconstruction length.....