MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: circular infinity

  • To: mathgroup at
  • Subject: [mg72204] Re: circular infinity
  • From: mcmcclure at
  • Date: Thu, 14 Dec 2006 05:49:29 -0500 (EST)
  • References: <elotg7$pe2$>

On Dec 13, 7:59 am, Eep² <e... at> wrote:
>  Hi, I'm trying to create the image at
> in Mathematica but I don't have much programming (or math)
> experience and am wondering if anyone here could help me out.

How about this:

CircleToCircles[Circle[{a_, b_}, r_]] :=
    {Circle[{a - r/2, b}, r/2],
     Circle[{a + r/2, b}, r/2]
CircleToCircles[l_List] := CircleToCircles /@ l;
Show[Graphics[NestList[CircleToCircles, Circle[{0, 0}, 1], 8]],
    AspectRatio -> Automatic, PlotRange -> All];

A few comments:
  * This is an example of functional programming,
    which you definitely want to learn to use Mathematica.
  * The function CircleToCircles has two definitions
    depending upon the type of pattern it encounters.
    Pattern matching is another major topic you need
  * NestList and related commands tend to be much
    more efficient than loops.

Have fun,

  • Prev by Date: Re: Mathematica video output without printing frames
  • Next by Date: RE: Mathematica video output without printing frames
  • Previous by thread: RE: How to plot multiple surface plots each with different domains in
  • Next by thread: Re: circular infinity