Re: Plotting a super ellipse
- To: mathgroup at smc.vnet.net
- Subject: [mg55190] Re: Plotting a super ellipse
- From: JC <Eat at joes.com>
- Date: Wed, 16 Mar 2005 05:36:07 -0500 (EST)
- References: <d15rk9$9hh$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Bob, Thank you very much. That solves my problem. On Tue, 15 Mar 2005 05:25:29 +0000 (UTC), Bob Hanlon <hanlonr at cox.net> wrote: >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: [mg55190] 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: [mg55190] 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. >> >> >> >> >> >>