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.
