In[]:=
GraphPlot3D[Rule@@@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},15,"FinalState"]]
Out[]=
In[]:=
GraphPlot3D[Rule@@@WolframModel[{{x,y},{x,z}}{{x,z},{x,w},{y,w},{z,w}},{{1,2},{1,3}},12,"FinalState"]]
Out[]=
In[]:=
ExportableGraph3D[%]
Out[]=
In[]:=
$Version
Out[]=
12.1.0 for Mac OS X x86 (64-bit) (December 12, 2019)
In[]:=
Directory[]
Out[]=
/Users/sw
In[]:=
NotebookDirectory[]
Out[]=
/Users/sw/Dropbox/Physics/WorkingMaterial/2019/
In[]:=
$VRDirectory="/Users/sw/Dropbox/Physics/VR/";
In[]:=
SetDirectory[$VRDirectory]
Out[]=
/Users/sw/Dropbox/Physics/VR
In[]:=
Export["test.stl",%6]
Out[]=
test.stl
In[]:=
ExportableGraph3D[plot_]:=plot/.{Line[s_]Tube[s,.05],Point[s_]Sphere[s,.1]}
In[]:=
GraphPlot3D[Rule@@@WolframModel[{{x,y}}{{x,y},{y,z},{z,x}},{{1,1}},8,"FinalState"]]
Out[]=