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
>
>
>