MathGroup Archive 2002

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

Search the Archive

Re: Mathematica Animation Problem


Hi,

For[alpha = 0.0, alpha < 2 Pi, alpha = alpha + 0.1,
  Plot3D[Exp[-(x^2 + y^2)], {x, -2, 2}, {y, -2, 2},
    {ViewCenter -> {0.5, 0.5, 0.5},
      ViewPoint -> {5 Cos[alpha], 5 Sin[alpha], 0.5}},
    PlotRange -> {{-2, 2}, {-2, 2}, {-0.5, 1}}, SphericalRegion -> True, 
    Axes -> False
    ]
  ]

looks fine. You must switch off the axes labels, other wise the jumping
text labels will modify the center of the image.

Regards
  Jens

Tobi wrote:
> 
> Dear all,
> 
> I hope someone can give me advice concerning the following Mathematica
> (Version 4.1) problem:
> 
> I am trying to produce an animation of a circular "walk" around a 3D
> plot. I get the animation, but it looks like sometimes I get nearer to
> the plot and sometimes the plot looks more distant, so that I don't
> get the impression of walking on a circle.
> 
> My guess is that I have not yet understood how the options
> "ViewCenter" and "ViewPoint" work.
> 
> So here is what I wrote to produce the image sequence:
> 
> For [alpha = 0.0, alpha < 2 Pi, alpha = alpha + 0.1,
>   Plot3D[ Exp[-(x^2 + y^2)], {x, -2, 2}, {y, -2, 2},
>           {ViewCenter -> {0, 0, 0},
>            ViewPoint -> {5 Cos[alpha], 5 Sin[alpha], 0.5}}]]
> 
> So all viewpoints should lie on a circle of radius 5 around the origin
> and with a constant height of 0.5. But the visual impression is
> different, as decribed above. Anyone knows what's wrong?
> 
> Thanks in advance,
>   Tobi


  • Prev by Date: Re: Strategy for overly long computations?
  • Next by Date: Re: Mathematica Animation Problem
  • Previous by thread: Mathematica Animation Problem
  • Next by thread: Re: Mathematica Animation Problem