Decagon

Author

Eric W. Weisstein
July 3, 2018

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Polygons/Decagon.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/Decagon.html.

©2018 Wolfram Research, Inc. except for portions noted otherwise

Examples

laminae=Select[EntityList[EntityClass["Lamina","Polygon"]],#["VertexCount"]==10&]

Show[#,PlotLabel->#2]&@@@EntityValue[laminae,{"Graphics","Name"}]

Figure

polys={
Polygon[(Entity["regular decagon", Entity["Lamina","FilledRegularDecagon"], "Entity[\"Lamina\", \"FilledRegularDecagon\"]", "lamina"])["Vertices"][1]]->"regular decagon",
Polygon[(Entity["pentagram", Entity["Lamina","FilledPentagram"], "Entity[\"Lamina\", \"FilledPentagram\"]", "lamina"])["Vertices"][1]]->"pentagram boundary",
Polygon[{{0,-1},{1,1},{2,-1},{3,1},{4,-1},{4,1},{3,-1},{2,1},{1,-1},{0,1}}]->"butterfly decagon",
{Polygon[CirclePoints[.5,5]],Polygon[CirclePoints[5]]}->"pentagonal annulus"
};

GraphicsGrid[Partition[
Graphics[{EdgeForm[Black],FaceForm[None],#},PlotLabel->Style[TextCell[#2,PageWidth->100,PageWidth->100],Directive[Italic,FontFamily->"Times"]]]&@@@polys,UpTo[3]],Spacings->50,ImageSize->500]