Re: Building lists

*To*: mathgroup at smc.vnet.net*Subject*: [mg22324] Re: [mg22312] Building lists*From*: Wagner Truppel <wtruppel at uci.edu>*Date*: Fri, 25 Feb 2000 21:13:12 -0500 (EST)*References*: <200002240801.DAA26096@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

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

**References**:**Building lists***From:*"Tom De Vries" <tdevries@shop.westworld.ca>