Fountain

Author

Bart Snapp
UIUC
March 4, 2003

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Combinatorics/Fountain.nb.

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

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

Figure

Show[Graphics[Flatten[{Table[Circle[{2n,0},1],{n,0,9}],Circle[{5,1+1/Sqrt[2]},1],Circle[{7,1+1/Sqrt[2]},1],Circle[{9,1+1/Sqrt[2]},1],Circle[{11,1+1/Sqrt[2]},1],Circle[{13,1+1/Sqrt[2]},1],Circle[{15,1+1/Sqrt[2]},1],Circle[{6,2(1+1/Sqrt[2])},1],Circle[{8,2(1+1/Sqrt[2])},1],Circle[{12,2(1+1/Sqrt[2])},1],Circle[{7,3(1+1/Sqrt[2])},1],Circle[{1,1+1/Sqrt[2]},1]}],AspectRatio->Automatic,Axes->False]];

A (21, 10) Fountain.