       Re: Re: Plotting a super ellipse

• To: mathgroup at smc.vnet.net
• Subject: [mg55157] Re: [mg55143] Re: Plotting a super ellipse
• From: Bob Hanlon <hanlonr at cox.net>
• Date: Tue, 15 Mar 2005 00:21:39 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

```eqn=(x^(5/2)/1)+(y^(5/2)/(5/4)^(5/2))==20;

soln=y/.Solve[eqn,y][];

xmax=x/.Solve[soln==0,x][];

Plot[Evaluate[{soln,-soln}/.x->Abs[x]],
{x,-xmax,xmax}];

Bob Hanlon

>
> From: JC <Eat at joes.com>
To: mathgroup at smc.vnet.net
> Date: 2005/03/14 Mon AM 03:43:42 EST
> Subject: [mg55157] [mg55143] Re: Plotting a super ellipse
>
> 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][]
> >
> >(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][])
> >
> >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: [mg55157] [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: Transparent surface
• Next by Date: Re: Re: 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