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