Re: Ellipse Drawing

*To*: mathgroup at smc.vnet.net*Subject*: [mg40211] Re: [mg40170] Ellipse Drawing*From*: Sseziwa Mukasa <mukasa at jeol.com>*Date*: Wed, 26 Mar 2003 02:41:55 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

On Tuesday, March 25, 2003, at 03:01 AM, 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)) > I get pretty good results with ParametricPlot[{e Cos[t] Cos[azimuth] - Sin[t] Sin[azimuth], e Cos[t] Sin[azimuth] + Sin[t] Cos[azimuth]} /. {e->1/2, azimuth->Pi/2}, {t, 0, 2 Pi}, AspectRatio->e] Regards, Sseziwa