Hexagon
Author
Eric W. Weisstein
Title
Hexagon
Description
A hexagon is a six-sided polygon. Several special types of hexagons are illustrated above. In particular, a hexagon with vertices equally spaced around a circle and with all sides the same length is a regular polygon known as a regular hexagon. Given an arbitrary hexagon, take each three consecutive vertices, and mark the fourth point of the parallelogram sharing these three vertices. Taking alternate points then gives two congruent triangles, as illustrated above (Wells 1991). Given an...
Category
Educational Materials
Keywords
URL
http://www.notebookarchive.org/2019-07-0z5jer4/
DOI
https://notebookarchive.org/2019-07-0z5jer4
Date Added
2019-07-02
Date Last Modified
2019-07-02
File Size
49.53 kilobytes
Supplements
Rights
Redistribution rights reserved



Hexagon
Hexagon
Author
Author
Eric W. Weisstein
July 3, 2018
July 3, 2018
©2018 Wolfram Research, Inc. except for portions noted otherwise
Examples
Examples
In[]:=
laminae=Select[EntityList[EntityClass["Lamina","Polygon"]],#["VertexCount"]6&]
Out[]=
,,
regular hexagon
rectangular L-beam
square L-beam
In[]:=
Show[#,PlotLabel#2]&@@@EntityValue[laminae,{"Graphics","Name"}]
Out[]=
,
,
Figure
Figure
In[]:=
polys=Polygon
["Vertices"][1]->"regular hexagon",Polygon{#,1.3#2}&@@@
["Vertices"][1][[1]]->"squashed hexagon",Polygon
["Vertices"][1,.3]->"square L-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";
regular hexagon | LAMINA |
regular hexagon | LAMINA |
square L-beam | LAMINA |
In[]:=
GraphicsGrid[Partition[Graphics[{EdgeForm[Black],FaceForm[None],#},PlotLabel->Style[TextCell[#2,PageWidth100,PageWidth100],Directive[Italic,FontFamily"Times"]]]&@@@polys,UpTo[3]],Spacings50,ImageSize500]
Out[]=


Cite this as: Eric W. Weisstein, "Hexagon" from the Notebook Archive (2018), https://notebookarchive.org/2019-07-0z5jer4

Download

