Re: Equation of a "potato"

*To*: mathgroup at smc.vnet.net*Subject*: [mg24597] Re: [mg24416] Equation of a "potato"*From*: Murray Eisenberg <murray at math.umass.edu>*Date*: Tue, 25 Jul 2000 00:56:28 -0400 (EDT)*Organization*: Mathematics & Statistics, Univ. of Mass./Amherst*References*: <8l3fag$kv1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Rendering the plot using RealTime3D` did NOT crash Mathematica 4.0.1 for me; I could even rotate the figure in real time. System: Dell 166 MHz Pentium with 64 MB RAM, NumberNine Imagine 128 graphics adapter; Windows 98. David Park wrote: > > 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: [mg24597] [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 > > > > -- Murray Eisenberg murray at math.umass.edu Mathematics & Statistics Dept. phone 413 549-1020 (H) Univ. of Massachusetts 413 545-2859 (W) Amherst, MA 01003-4515