MathGroup Archive 2009

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

Search the Archive

Re: Draw a circle in 3D


ibmichuco at hotmail.com wrote:
> 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?
> 

No, there isn't, but it's not difficult to write one using 
ParametricPlot3D, or directly with Line, and then rotate it as you like.

Graphics3D[
  Rotate[Line@
    Table[{Cos[u], Sin[u], 0}, {u, 0., 2 Pi, 2 Pi/30}],
    {{1, 0, 0}, {1, 0, 1}}]
]


  • Prev by Date: Re: Draw a circle in 3D
  • Next by Date: Re: Reading csv with ;
  • Previous by thread: Re: Draw a circle in 3D
  • Next by thread: Re: Draw a circle in 3D