Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2003
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2003

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

Search the Archive

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



  • Prev by Date: Re: proper way to manipulate lists?
  • Next by Date: RE: List Operation ?
  • Previous by thread: RE: Ellipse Drawing
  • Next by thread: DSolve and N do not commute