Re: Plotting a super ellipse

• To: mathgroup at smc.vnet.net
• Subject: [mg55143] Re: Plotting a super ellipse
• From: JC <Eat at joes.com>
• Date: Mon, 14 Mar 2005 03:43:42 -0500 (EST)
• References: <d1148h\$dqj\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

On Sun, 13 Mar 2005 10:22:09 +0000 (UTC), Bob Hanlon <hanlonr at cox.net>
wrote:

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

Bob,

Thank you very much for your response. It worked.  Now I will just
need to decipher it so I can change the  variables to adjust the
curve, but that is not a big problem.

One question.  The plot produced only was for one quarter of the super
ellipse. Is there a way to get the entire ellipse to plot?

>>
>> From: JC <Eat at joes.com>
To: mathgroup at smc.vnet.net
>> Date: 2005/03/12 Sat AM 02:36:47 EST
>> Subject: [mg55143]  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: Mathematica cannot simplify a product of UnitStep functions
• Next by Date: Surface Normal
• Previous by thread: Re: Plotting a super ellipse
• Next by thread: Re: Plotting a super ellipse