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