Pentagon

Author

Eric W. Weisstein
July 3, 2018

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

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

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

Examples

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

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

EntityValue[laminae,"VariablePlotDefaults"]

Figure

polys={
Polygon[(Entity["isosceles pentagon", Entity["Lamina","FilledIsoscelesPentagon"], "Entity[\"Lamina\", \"FilledIsoscelesPentagon\"]", "lamina"])["Vertices"][2,1.5,1.5,2]]->"isosceles pentagon",
Polygon[(Entity["isosceles right pentagon", Entity["Lamina","FilledIsoscelesRightPentagon"], "Entity[\"Lamina\", \"FilledIsoscelesRightPentagon\"]", "lamina"])["Vertices"][2,1,1.5]]->"isosceles right pentagon",
Polygon[(Entity["regular pentagon", Entity["Lamina","FilledRegularPentagon"], "Entity[\"Lamina\", \"FilledRegularPentagon\"]", "lamina"])["Vertices"][1]]->"regular pentagon"
};

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]