Message Boards Message Boards

[WSS22] Evolver-Wolfram intersection

enter image description here

POSTED BY: Kurt Swanson
2 Replies

Ascend the steps of computational irreducibility..bacteria in the shape of the standalone Evolver with the Wolfram Physics. @Kurt Swanson.

polyhedronNames = {"Cuboctahedron", "Icosidodecahedron", "Spikey", 
   "SmallStellatedDodecahedron", "SmallRhombicuboctahedron"};

volumes = Map[
   Volume[
     PolyhedronData[#, "BoundaryMeshRegion"]
     ] &,
   polyhedronNames
   ];

evolvedPolyhedra = Map[
   SurfaceEvolve[
     PolyhedronData[#, "BoundaryMeshRegion"],
     "Commands" -> "r 2;g 2",
     "FixBoundary" -> True,
     "STL2FE" -> "None"] &,
   polyhedronNames
   ];

Table[
 Show[
  evolvedPolyhedra[[i]],
  Graphics3D[
   {
    EdgeForm[Thick],
    Polygon[evolvedPolyhedra[[i]]]
    }
   ], PlotLabel -> Style[
    polyhedronNames[[i]] <>
     " Volume: " <>
     ToString[volumes[[i]]],
    24,
    Bold,
    RGBColor[0, 0, 1],
    FontFamily -> "Arial"]
  ], {i, Length[polyhedronNames]}
 ]

The surfaces in Evolver are subject to energy minimization driven by surface tension.

PolyhedraTheSurfaceEvolver

POSTED BY: Dean Gladish

enter image description here -- you have earned Featured Contributor Badge enter image description here Your exceptional post has been selected for our editorial column Staff Picks http://wolfr.am/StaffPicks and Your Profile is now distinguished by a Featured Contributor Badge and is displayed on the Featured Contributor Board. Thank you!

POSTED BY: Moderation Team
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract