Hexagon

Author

Eric W. Weisstein
July 3, 2018

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

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

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

Examples

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

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

Figure

polys={
Polygon[(Entity["regular hexagon", Entity["Lamina","FilledRegularHexagon"], "Entity[\"Lamina\", \"FilledRegularHexagon\"]", "lamina"])["Vertices"][1]]->"regular hexagon",
Polygon[{#,1.3#2}&@@@((Entity["regular hexagon", Entity["Lamina","FilledRegularHexagon"], "Entity[\"Lamina\", \"FilledRegularHexagon\"]", "lamina"])["Vertices"][1][[1]])]->"squashed hexagon",
Polygon[(Entity["square L\[Hyphen]beam", Entity["Lamina","SquareLBeam"], "Entity[\"Lamina\", \"SquareLBeam\"]", "lamina"])["Vertices"][1,.3]]->"square L\[Hyphen]beam",
{Polygon[CirclePoints[{1,3π/2},3]],Polygon[CirclePoints[3]]}->"hexagram",
Polygon[{{-1,-1},{-1,1},{0,-1},{1,1},{1,-1},{0,1}}]->"butterfly hexagon",
{Polygon[CirclePoints[.5,3]],Polygon[CirclePoints[3]]}->"triangular 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]