
Re: Animating a 3D Plot
Posted:
Nov 19, 2012 7:19 PM


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

