Euclid' s Orchard

Author

Eric W. Weisstein
July 29, 2008

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Lattices/EuclidsOrchard.nb.

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

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

Figure

Show[Graphics3D[Table[Line[{{x,y,0},{x,y,1}}],{x,1,20},{y,1,20}]],ViewPoint->{-.5,-.5,-.03},SphericalRegion->True,
ViewVertical->{0,0,1},Boxed->False]

LIveGraphics3D

<<Utilities`LiveGraphics3D`

WriteLiveForm["euclidor.m",Show[Graphics3D[Table[Line[{{x,y,0},{x,y,1}}],{x,1,20},{y,1,20}]],ViewPoint->{-.5,-.5,-.03},SphericalRegion->True,
ViewVertical->{0,0,1},Boxed->False]]