Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

[Date Index] [Thread Index] [Author Index]

Search the Archive

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





  • Prev by Date: Text processing in Mathematica
  • Next by Date: Re: Animating a 3D Plot
  • Previous by thread: Animating a 3D Plot
  • Next by thread: Re: Animating a 3D Plot