MathGroup Archive 2005

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

Search the Archive

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


  • Prev by Date: Re: Do loops in Mathematica
  • Next by Date: Re: Does Mathematica 5 use multiple processors on SPARC?
  • Previous by thread: Re: Plotting a super ellipse
  • Next by thread: Re: Plotting a super ellipse