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)*Reply-to*: hanlonr at cox.net*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][[1]]; xmax=x/.Solve[soln==0,x][[1]]; 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][[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: [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. > >> > >> > >