Polypon

Author

Eric W. Weisstein
April 24, 2009

This notebook downloaded from http://mathworld.wolfram.com/notebooks/RecreationalMath/Polypon.nb.

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

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

Grid

Graphics[{EdgeForm[Thin], White,Polygon[polyform[[9,5]][#]]&/@Tuples[Range[1,6],{3}]}]

Graphic for 2-sided

Column[Table[With[{form=9, order=ord, size=12, restrict=2, partition=7},Grid[Partition[Table[With[{sizer = N[size (.5 +Max[#]-Min[#])&/@Transpose[Flatten[polyform[[form,5]][#]&/@polyform[[form,4,restrict,order,n]],2]]]},Graphics[{EdgeForm[Thick],Red,Polygon[polyform[[form,5]][#]]& /@polyform[[form,4,restrict,order,n]]},ImageSize->sizer ]] ,
{n,1,Length[polyform[[form,4,restrict,order]]]}],partition,partition,1," "]]],{ord,1,7}]]