Re: Animating a 3D Plot

*To*: mathgroup at smc.vnet.net*Subject*: [mg128721] Re: Animating a 3D Plot*From*: "Nasser M. Abbasi" <nma at 12000.org>*Date*: Mon, 19 Nov 2012 19:19:39 -0500 (EST)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com*Delivered-to*: l-mathgroup@wolfram.com*Delivered-to*: mathgroup-newout@smc.vnet.net*Delivered-to*: mathgroup-newsend@smc.vnet.net*References*: <k8eahu$lgi$1@smc.vnet.net>*Reply-to*: nma at 12000.org

On 11/19/2012 4:06 PM, Hugh Goyder wrote: > Below I show three attempts to animate a 3 D Plot. 1. The Dynamic simplifies the plot >while the animation is running spoiling the quality. 2. To avoid this I do a >ListAnimate which works. 3. However, when I try to alter one of the parameters >dynamically I am back to the problem of oversimplification > of the plot. Any ideas to make this work? > Thanks Hugh Goyder > > Animate[ > With[{sf = 0.3, n = 4}, > ParametricPlot3D[ > a = Cos[t] Cos[th] Sin[n 2 Pi x]; {x, Cos[th] + sf a Cos[th], > Sin[th] + sf a Sin[th]}, {x, 0, 1}, {th, -Pi, Pi}, > PlotRange -> {All, {-2, 2}, {-2, 2}}, BoxRatios -> {10, 2, 2}, > PlotPoints -> 3, ImageSize -> 10 72] > ], > {t, 0, 2 Pi}, > DisplayAllSteps -> True] > Try adding the option PerformanceGoal -> "Quality" to the plot command --Nasser