Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2002
*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 2002

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

Search the Archive

Plotting ellipses and other functions

  • To: mathgroup at smc.vnet.net
  • Subject: [mg37173] Plotting ellipses and other functions
  • From: Jose Luis Garrido Serrano <garrido at ruth.upc.es>
  • Date: Tue, 15 Oct 2002 04:17:45 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

 From: David
To: mathgroup at smc.vnet.net
> Subject: [mg37173]  Plotting ellipses and other functions
>
> How can I plot functions like:
>
> (x-2)^2 + 2(y-3)^2 = 6
>
> and
>
> x^3y + y^3 = 9
>
> using Mathematica?





David,




x /. Solve[x^3 y + y^3 == 9, x];

g=Plot[Sign[(9 - y^3)/y]* Abs[(9 - y^3)/y]^(1/3) , {y, -7, 7} ,
AspectRatio -> Automatic];

Show[g /. {x_?NumberQ, y_?NumberQ} -> {y, x},  Epilog ->
{RGBColor[1,0,0],Line[{{-(3^(7/9)/2^(2/9)), -5}, {-(3^(7/9)/2^(2/9)),
5}}]}];



  • Prev by Date: Is MathML 'good' XML
  • Next by Date: Re: Get rid of onion-like parentheses
  • Previous by thread: RE: Plotting ellipses and other functions
  • Next by thread: Solve a(over)b in mathematica?