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

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

Search the Archive

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.  
> 
> 


  • Prev by Date: Re: ContourPlot3D and mapping
  • Next by Date: Re: Weird behavior of NumberForm in ver 5.1
  • Previous by thread: Re: Plotting a super ellipse
  • Next by thread: Re: Plotting a super ellipse