In[]:=
GraphPlot3D[Rule@@@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},15,"FinalState"]]
Out[]=
In[]:=
<<UnityLink`
In[]:=
UnityOpen["physics"]
In[]:=
ggg=GraphPlot3D[Rule@@@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},6,"FinalState"]]
Out[]=
In[]:=
GraphPlot3D[Rule@@@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},6,"FinalState"],PlotTheme"LargeNetwork"]
Out[]=
In[]:=
DiscretizeGraphics[%]
Out[]=
In[]:=
CreateUnityGameObject["ggg",%84]
Out[]=
In[]:=
CreateUnityGameObject["gggbig",%72]
Out[]=
$Failed
3D Printout
3D Printout
In[]:=
Printout3D[%]
Out[]=
In[]:=
%%["FileName"]
Out[]=
File
In[]:=
First[%]
Out[]=
/private/var/folders/wt/kq3czl010rd5m22g9q0y1yph00003s/T/Printout3D/model_4be084d1.stl
In[]:=
SystemOpen["/private/var/folders/wt/kq3czl010rd5m22g9q0y1yph00003s/T/Printout3D/model_4be084d1.stl"]
In[]:=
Import[%76]
Out[]=
$Failed
In[]:=
SystemOpen["/private/var/folders/wt/kq3czl010rd5m22g9q0y1yph00003s/T/Printout3D"]
In[]:=
Printout3D