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