Polystick

Author

Eric W. Weisstein
April 18, 2011

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

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

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

Square

Grid

Graphics[{EdgeForm[Thin], Red,Polygon[polyform[[11,5]][#]]&/@Flatten[{Flatten[{#,1}],Flatten[{#,2}]}&/@Tuples[Range[0,4],{2}],1]}]

Graphic for 2-sided

Column[Table[With[{form=11, order=ord, size=18, 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,4}]]

Triangular

Grid

Graphics[{EdgeForm[Thin], Red,Polygon[polyform[[12,5]][#]]&/@Flatten[{Flatten[{#,1}],Flatten[{#,2}], Flatten[{#,3}]}&/@Tuples[Range[0,4],{2}],1]}]

Graphic for 2-sided

Column[Table[With[{form=12, order=ord, size=20, 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,3}]]