Tangram

Author

Eric W. Weisstein
August 4, 2010

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

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

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

Figure

pts=With[{s=(Sqrt[2])},{{0,0},{2s,0},{s,s},{0,2s},{s,2s},{s,3s}/2,{2s,2s},{2s,s},{3s,s}/2,{3s,3s}/2}];
tangram=GraphicsComplex[pts,Polygon[{{1,2,3},{1,3,4},{6,5,4},{8,7,5},{3,10,5,6},{9,10,3},{2,8,10,9}}]];
Graphics[{{EdgeForm[Black],LightYellow,tangram},
MapIndexed[Text[#2[[1]],#1,Background->White]&,pts]}]

Graphics[{{EdgeForm[Black],LightYellow,tangram}}]

Properties

Areas

SortBy[Area/@Flatten[Normal[tangram]],N]

{Total[%],(((2(Sqrt[2])))^2)}

Perimeters

SortBy[Total/@Map[Norm,Subtract@@#&/@Partition[#,2,1,1]&/@Flatten[Normal[tangram]][[All,1]],{2}]//FullSimplify,N]