MathGroup Archive 2000

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

Search the Archive

Re: Building lists


My first inclination would be something like this:

colors = {Blue, Red, Purple, Plum, Gold, Olive,
Pink, Navy, Mint, Black};

Show[Graphics[Table[{colors[[i]], Disk[{0, 0}, 220
- 20 i]}, {i, 1, 10}]], 
  AspectRatio -> Automatic, PlotRange -> All];

and if you didn't care about the colors, something
like this:

Graphics[Table[{RGBColor[1 - i/10, i/10, 1 -
i/20], 
        Disk[{0, 0}, 220 - 20 i]}, {i, 1, 10}]],
AspectRatio -> Automatic, 
  PlotRange -> All];

Ooo... pretty.
:-)

Hugh Philipp.


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}];

-- 
Hugh Philipp

http://www.his.com/~hugh


  • Prev by Date: Re: Building lists
  • Next by Date: Re: Pattern Recognition in Stock Market Data
  • Previous by thread: Re: Building lists
  • Next by thread: Re: Building Lists