Re: Ellipse Drawing

*To*: mathgroup at smc.vnet.net*Subject*: [mg40189] Re: Ellipse Drawing*From*: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>*Date*: Tue, 25 Mar 2003 14:47:38 -0500 (EST)*Organization*: Universitaet Leipzig*References*: <b5p0df$7r4$1@smc.vnet.net>*Reply-to*: kuska at informatik.uni-leipzig.de*Sender*: owner-wri-mathgroup at wolfram.com

Hi, something like: ellipse[a_, b_, phi_, point_] := Module[{th}, Line[Append[#, 0] + point & /@ ({{Cos[phi], Sin[phi]}, {-Sin[phi], Cos[phi]}}.# & /@ Table[{a*Cos[th], b*Sin[th]}, {th, 0, 2Pi, 2Pi/36}])] ] Show[Graphics3D[ Table[ellipse[2, 1, th, {0, 0, th}], {th, 0, Pi, Pi/8}]]] Regards Jens caroline nyhan wrote: > > Hi, > > I have a question concerning using mathematica to draw > the cross-sectional pattern of the polarisation > ellipse. > > I want to know how I would draw an ellipse, in the XY > plane, with propagation in the positive z-direction, > by specifying its > - azimuth (angle that the major axis of the > cross-sectional ellipse makes with the horizontal > x-axis (positive when counterclockwise from x-axis)) > - ellipticity (measure of the fatness of the ellipse, > (ratio of the lengh of the semi-minor axis to that of > the semi-major axis)) > > Thanks > Caroline > > __________________________________________________ > Do you Yahoo!? > Yahoo! Platinum - Watch CBS' NCAA March Madness, live on your desktop! > http://platinum.yahoo.com