Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

[Date Index] [Thread Index] [Author Index]

Search the Archive

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[[1]], x[[1]]}, 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[8]:= Table[Circle[{x1[[k]], y1[[k]]}, 0.5], {k, 1, 4}]

Out[8]= {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