Seed of Life

Author

Eric W. Weisstein
July 8, 2003

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

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

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

Code

CosSin[x_]:={Cos[x],Sin[x]}

SeedOfLife:=Graphics[{Circle[{0,0},1],Table[Circle[CosSin[2 Pi i/6],1],{i,0,5}]}]

Graphic

Show[SeedOfLife,AspectRatio->Automatic,ImageSize->200]