Re: Draw a circle in 3D
- To: mathgroup at smc.vnet.net
- Subject: [mg99624] Re: [mg99593] Draw a circle in 3D
- From: Adriano Pascoletti <adriano.pascoletti at dimi.uniud.it>
- Date: Sat, 9 May 2009 03:23:30 -0400 (EDT)
- References: <200905080420.AAA16705@smc.vnet.net>
Try
=E8 = 25*Degree;
Graphics3D[{Cylinder[{{0, 0, 0}, {0, 0, 0.001}}, 1],
Cylinder[{{0, 0, 0}, 0.001*{Cos[=E8], Sin[=E8], 0}}, 1]}]
Adriano Pascoletti
2009/5/8 ibmichuco at hotmail.com <ibmichuco at hotmail.com>
> Hi,
>
> I would like to draw circles of radius 1 centered at the origin in 3d,
> similar to (but not limited to) the longitude lines of the globe. That
> is planes that lies in the a particular plane made an angle with the
> one of the axes etc.
>
> Is there any mathematica function to do this?
>
> Many thanks in advance,
>
> Michuco
>
>
- References:
- Draw a circle in 3D
- From: "ibmichuco@hotmail.com" <ibmichuco@hotmail.com>
- Draw a circle in 3D