MathGroup Archive 2000

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

Search the Archive

Re: Building lists


Dear Tom,

you can try something like this:

t = Table[ {Hue[i/10.0], Disk[{0,0}, 20 i]}, {i, 10, 1, -1} ];
Show[Graphics[t], AspectRatio -> Automatic, PlotRange -> All];

Note that the iteration is downward. That's important, because 
otherwise the largest disk is drawn on top of all the others, 
obscuring them. It's also important that the fraction i/10 be a real 
number.

I'm sure you can figure out how to make this more general than 10 
disks or how to add another kind of color function.

Wagner

At 3:01 AM -0500 on 2/24/00, Tom De Vries wrote:

>Hello,
>
>The graphics command below builds a simple bull's eye. (I used it for a
>probability question in my math class)  It does what I want it to, but with
>all the repetition I know that it is probably possible to do it more simply.
>  It isn't so long but I figured I could learn something by seeing how this
>command could be duplicated in different ways.   I was looking at Thread but
>couldn't quite manage to get things to work out.   The specific colors
>aren't really important, but I did want to get each disk to be a different
>color.
>
>Thanks for any suggestions you might have.
>
>Sincerely,
>
>Tom De Vries
>
>Needs["Graphics`Colors`"]
>
>Show[Graphics[{
>
>         {Blue, Disk[{0, 0}, 200]},
>         {Red, Disk[{0, 0}, 180]},
>         {Purple, Disk[{0, 0}, 160]},
>         {Plum, Disk[{0, 0}, 140]},
>         {Gold, Disk[{0, 0}, 120]},
>         {Olive, Disk[{0, 0}, 100]},
>         {Pink, Disk[{0, 0}, 80]},
>         {Navy, Disk[{0, 0}, 60]},
>         {Mint, Disk[{0, 0}, 40]},
>         {Black, Disk[{0, 0}, 20]}
>
>         }],    AspectRatio -> Automatic,     PlotRange -> All,
>DefaultFont -> {"Times", 18}];



  • Prev by Date: Re: a Graphic in a Graphic
  • Next by Date: Re: Building lists
  • Previous by thread: Re: Building lists
  • Next by thread: Re: Building lists