Re: Animating a 3D Plot

*To*: mathgroup at smc.vnet.net*Subject*: [mg128722] Re: Animating a 3D Plot*From*: Peter Pein <petsie at dordos.net>*Date*: Mon, 19 Nov 2012 19:19:59 -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>

Am 19.11.2012 23:06, schrieb Hugh Goyder: > 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] .... Hi, if you add the option PerformanceGoal->"Quality" to the call to ParametricPlot3D you should get a (better) result. Peter