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}}]}];