Needs["Polytopes`"]; faces = First /@ First@Normal@PolyhedronData["Dodecahedron", "Faces"]; radius = InscribedRadius[Polygon[First[faces]]]
Im trying to run this short program but it doesnt work. Maybe Im doing something wrong.
The Polytopes package does not support general polygons, only the ones listed in
http://reference.wolfram.com/language/Polytopes/tutorial/Polytopes.html
In this case, radius should be just
radius
In[4]:= InscribedRadius[Pentagon] Out[4]= 1/(2 Sqrt[5 - 2 Sqrt[5]])
