Triangle Tiling

Author

Eric W. Weisstein
March 2, 2009

This notebook downloaded from http://mathworld.wolfram.com/notebooks/PlaneGeometry/TriangleTiling.nb.

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

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

Comments

Need to rewrite TriangleTiling code

Graphic

Show[GraphicsArray[
Block[{$DisplayFunction=Identity},
Show[Graphics[TriangleTiling[5,#],PlotRange->{{-2,2},{-2,2}},AspectRatio->Automatic]]&/@
{
{{0,0},{.4,.6},{1,.2}},
{{0,0},{.4,-.5},{1,.4}},
{{0,0},{1,0},{.5,1/Sqrt[2]}},
{{0,0},{.7,1},{.8,-.1}}
}
]
]]

Nested

Table[If[EvenQ[n],n(n+2)(2n+1),n(n+2)(2n+1)-1]/8,{n,10}]

1/8*n*(n+2)*(2n+1)+((-1)^n-1)/16

Table[(1/16) (-1+(((-1))^n))+(1/8) n (2+n) (1+2 n),{n,10}]