Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2000
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2000

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

Search the Archive

RE: Equation of a "potato"

  • To: mathgroup at smc.vnet.net
  • Subject: [mg24483] RE: [mg24416] Equation of a "potato"
  • From: "David Park" <djmp at earthlink.net>
  • Date: Wed, 19 Jul 2000 01:21:56 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

How about this as a potato?

rfun[t_, p_] := (2 - LegendreP[14, t/Pi - 1]Sin[2t]Sin[p]/3)(1 + Cos[2p]/4)
potato[t_, p_] := rfun[t, p]{Cos[t]Sin[p], Sin[t]Sin[p], Cos[p]}

ParametricPlot3D[Evaluate[potato[t, p]], {t, 0, 2 Pi}, {p, 0, Pi}, 
    PlotPoints -> 51];

But when I tried to plot this with RealTime3D` Mathematica crashed.

David Park
djmp at earthlink.net
http://home.earthlink.net/~djmp/ 



> -----Original Message-----
> From: Kevin J. McCann [mailto:Kevin.McCann at jhuapl.edu]
To: mathgroup at smc.vnet.net
> Sent: Tuesday, July 18, 2000 12:58 AM
> To: mathgroup at smc.vnet.net
> Subject: [mg24483] [mg24416] Equation of a "potato"
> 
> 
> I am doing some illustrations for class notes on vector calculus. I
> would be nice to have some drawings for a "random" 3d shape, i.e.
> something that is fairly rounded and regular like a potato, but not as
> simple as a sphere. Any ideas for the an equation that would draw
> something like this?
> 
> Kevin
> 
> 


  • Prev by Date: Re: Wrong plot size
  • Next by Date: Re: A strange bug in Solve
  • Previous by thread: Re: Equation of a "potato"
  • Next by thread: Re: Equation of a "potato"