Dodecagon

Author

Eric W. Weisstein
July 3, 2018

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

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

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

Examples

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

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

Figure

(Entity["tapered I\[Hyphen]beam", Entity["Lamina","TaperedIBeam"], "Entity[\"Lamina\", \"TaperedIBeam\"]", "lamina"])["Graphics"]

polys={
RegularPolygon[12]->"regular dodecagon",
Polygon[(Entity["hexagram", Entity["Lamina","FilledHexagram"], "Entity[\"Lamina\", \"FilledHexagram\"]", "lamina"])["Vertices"][1]]->"hexagram boundary",
Polygon[(Entity["square cross", Entity["Lamina","SquareCross"], "Entity[\"Lamina\", \"SquareCross\"]", "lamina"])["Vertices"][.5,2]]->"square cross",
Polygon[(Entity["tapered I\[Hyphen]beam", Entity["Lamina","TaperedIBeam"], "Entity[\"Lamina\", \"TaperedIBeam\"]", "lamina"])["Vertices"][.2,.5,.8,.9,1]]->"I\[Hyphen]beam",
Polygon[(Entity["square cross", Entity["Lamina","SquareCross"], "Entity[\"Lamina\", \"SquareCross\"]", "lamina"])["Vertices"][1,1/3]]->"Purina logo\[Hyphen]like polygon",
{Polygon[CirclePoints[.5,6]],Polygon[CirclePoints[6]]}->"hexagonal annulus"
};

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