Re: Problem using a loop to generate data for Point function

*To*: mathgroup at smc.vnet.net*Subject*: [mg35613] Re: Problem using a loop to generate data for Point function*From*: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>*Date*: Tue, 23 Jul 2002 01:51:08 -0400 (EDT)*Organization*: Universitaet Leipzig*References*: <ahg821$92v$1@smc.vnet.net>*Reply-to*: kuska at informatik.uni-leipzig.de*Sender*: owner-wri-mathgroup at wolfram.com

Hi, Show[Graphics[Table[Point[{i, i}], {i, 10}]]] or Show[Graphics[Point [{#, #}] & /@ Range[10]]] if you prefer a stupid and useless construct like For[] Show[Graphics[ lst = {}; For[i = 1, i < 10, i++, AppendTo[lst, Point[{i, i}]]]; lst ] ] Regards Jens Michael Carnright wrote: > > For[i = 1, i < 10, i++, Show[Graphics[Point[{i, i}]]]] > > This genereates nine graphics with one point each. I was trying to > generate one graphic with nine points. I see my problem as calling > the Point function nine times instead of only once. I wish to use the > data generated by the loop on a single graphic. > > Thanks in advance for help on this :) > > P.S. In the end I will be doing three For loops in a nested formation > to generate the data to put on one graphic. > > -Michael