RE: Problem using a loop to generate data for Point function
- To: mathgroup at smc.vnet.net
- Subject: [mg35620] RE: [mg35602] Problem using a loop to generate data for Point function
- From: "David Park" <djmp at earthlink.net>
- Date: Tue, 23 Jul 2002 01:51:25 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Michael,
If you put the Show statement in the loop, then you are going to get
multiple plots. You want to first assemble the Points and then use one Show
statement.
Also, it is much easier to use the Mathematica functional programming. Here
are two ways to obtain a list of Points.
pts = Table[Point[{i, i}], {i, 9}]
{Point[{1, 1}], Point[{2, 2}], Point[{3, 3}], Point[{4, 4}], Point[{5, 5}],
Point[{6, 6}], Point[{7, 7}], Point[{8, 8}], Point[{9, 9}]}
pts = Point[{#, #}] & /@ Range[9]
{Point[{1, 1}], Point[{2, 2}], Point[{3, 3}], Point[{4, 4}], Point[{5, 5}],
Point[{6, 6}], Point[{7, 7}], Point[{8, 8}], Point[{9, 9}]}
Then use just one Show statement...
Show[Graphics[{
AbsolutePointSize[3], pts}],
Frame -> True];
Or you could put the Table directly in the Show statement.
Show[Graphics[{
AbsolutePointSize[3], Table[Point[{i, i}], {i, 9}]}],
Frame -> True];
David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/
From: Michael Carnright [mailto:carnright at yahoo.com]
To: mathgroup at smc.vnet.net
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