Re: Plotting a super ellipse
- To: mathgroup at smc.vnet.net
- Subject: [mg55123] Re: [mg55099] Plotting a super ellipse
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Sun, 13 Mar 2005 04:57:41 -0500 (EST)
- Reply-to: hanlonr at cox.net
- Sender: owner-wri-mathgroup at wolfram.com
Clear[x,y];
eqn=(x^(5/2)/1)+(y^(5/2)/(5/4)^(5/2))==20;
soln=y/.Solve[eqn,y][[1]]
(5/4)*(20 - x^(5/2))^(2/5)
ymax = (soln /. x->0)
(5*5^(2/5))/(2*2^(1/5))
%//N
4.14307
xmax=(x/.Solve[soln==0,x][[1]])
2^(4/5)*5^(2/5)
%//N
3.31445
Plot[soln,{x,0,xmax},
AspectRatio->Automatic];
Needs["Graphics`"];
ImplicitPlot[eqn,{x,0,xmax},
ImageSize->230];
Bob Hanlon
>
> From: JC <Eat at joes.com>
To: mathgroup at smc.vnet.net
> Date: 2005/03/12 Sat AM 02:36:47 EST
> To: mathgroup at smc.vnet.net
> Subject: [mg55123] [mg55099] Plotting a super ellipse
>
> I am trying to get Mathematica to plot a super ellipse. The formula
> is (x^2.5/1) + (y^2.5/1.25^2.5) = 20.
>
> I am getting error messages such as the "not a list of real numbers"
> or "protected symbols"
>
> Can some one help me out or point me in the right direction to find
> the help?
>
> I should mention I am brand new to Mathematica, I downloaded the trial
> version yesterday. I have read through the tutorials and tried
> googling for help but I am coming up blank.
>
>