       Re: GRAPHICS IN A DO LOOP DOES NOTHING

• To: mathgroup at smc.vnet.net
• Subject: [mg99532] Re: GRAPHICS IN A DO LOOP DOES NOTHING
• From: David Bailey <dave at removedbailey.co.uk>
• Date: Thu, 7 May 2009 06:36:46 -0400 (EDT)
• References: <gtrkpa\$1cn\$1@smc.vnet.net>

```Alain Mazure wrote:
> Hi
>
>   I tried to produce several circles using :
>
>   Do[Graphics[Circle[{x[[k]], x[[k]]}, 0.5]], {k, 4}]]
>
> even "wrapping" with Print as   explained in  post mg78335
>
>
> The command works for an individual set of data and can be superposed
> with Show
> , but how to do with a "large" number.
>
> Graphics[Circle[{x[], x[]}, 0.5]
>
>
> x1=  {36.827, 36.5061, 36.1605, 35.8261}
>
>
> y1= {-3.8282, -3.84959, -3.82263, -3.82826}
>
>
Wrapping with Print is the appropriate solution if you need to create a
series of distinct plots - but I think you want to place a series of
circles on one plot:

x1=  {36.827, 36.5061, 36.1605, 35.8261};
y1= {-3.8282, -3.84959, -3.82263, -3.82826};

Graphics[Table[Circle[{x1[[k]], y1[[k]]}, 0.5], {k, 1, 4}]]

To see more clearly how this works, you might wish to evaluate the Table
command on its own:

In:= Table[Circle[{x1[[k]], y1[[k]]}, 0.5], {k, 1, 4}]

Out= {Circle[{36.827, -3.8282}, 0.5],
Circle[{36.5061, -3.84959}, 0.5], Circle[{36.1605, -3.82263}, 0.5],
Circle[{35.8261, -3.82826}, 0.5]}

David Bailey
http://www.dbaileyconsultancy.co.uk

```

• Prev by Date: Re: Given a matrix, find position of first non-zero element in each
• Next by Date: Re: Given a matrix, find position of first non-zero
• Previous by thread: Re: GRAPHICS IN A DO LOOP DOES NOTHING
• Next by thread: Remove quotes from Cell Expression