Polyrhomb

Author

Eric W. Weisstein
April 24, 2009

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

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

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

Grid

Graphics[{EdgeForm[Thin], White,Polygon[polyform[[6,5]][#]]&/@Tuples[Range[0,8],{2}]}]

Graphic for 2-sided

Column[Table[With[{form=6, order=ord, size=10, restrict=2, partition=6},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,5}]]