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: [mg99496] Re: GRAPHICS IN A DO LOOP DOES NOTHING
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Wed, 6 May 2009 05:44:53 -0400 (EDT)
  • Organization: Uni Leipzig
  • References: <gtrkpa$1cn$1@smc.vnet.net>
  • Reply-to: kuska at informatik.uni-leipzig.de

Hi,

x = {36.827, 36.5061, 36.1605, 35.8261};
y = {-3.8282, -3.84959, -3.82263, -3.82826};
Do[Print[Graphics[Circle[{x[[k]], x[[k]]}, 0.5]]], {k, 4}]

works as well as

Graphics[Circle[#, 0.5] & /@ Transpose[{x, y}]]

so, where is your problem.

Regards
   Jens

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}
> 
> 
> Thanks again for the help
> 
> Alain Mazure
> 
> Laboratoire d'Astrophysique de Marseille
> P=F4le de l'=C9toile Site de Ch=E2teau-Gombert
> 38, rue Fr=E9d=E9ric Joliot-Curie
> 13388 Marseille cedex 13, France
> 
> http://alain.mazure.free.fr/
> 
> Mails:
> alain.mazure at oamp.fr
> alain.mazure at free.fr
> 
> Phones:
> Lab: 33(0)491055902
> Mobile: 33(0)603556287
> Fax: 33(0)491661855
> SKYPE: MAZURE-ALAIN
> 
> 
> 


  • Prev by Date: Re: Making a user interface
  • Next by Date: Re: Correcting a typing blunder
  • Previous by thread: GRAPHICS IN A DO LOOP DOES NOTHING
  • Next by thread: Re: GRAPHICS IN A DO LOOP DOES NOTHING