       Re: axis alignment of 3D plots with ListContourPlot3D

• To: mathgroup at smc.vnet.net
• Subject: [mg87926] Re: [mg87886] axis alignment of 3D plots with ListContourPlot3D
• From: "W_Craig Carter" <ccarter at mit.edu>
• Date: Sat, 19 Apr 2008 23:54:19 -0400 (EDT)
• References: <200804190735.DAA09875@smc.vnet.net>

```Hello Jess,
This will work, it is not efficient, but fairly straightforward to
modify for you own purposes:

data = Table[{Sin[RandomReal[{-x, x}]], Cos[RandomReal[{-x, x}]],
Cos[ x]}, {x, 0, 1, .01}];

plot = ListPlot3D[data]

ViewFrom[myplot_, r_, theta_, phi_] :=
Show[myplot,
ViewPoint -> r {Cos[theta] Sin[phi], Sin[theta] Sin[phi], Cos[phi]}]
(*here I use spherical coordinates, but the choice is yours)

ViewFrom[plot, 1.2, Pi/6, Pi/3]
(*
ViewFrom, save an image, ViewFrom, save an image...
You can also program your own "flight trajectory" and "speed"
*)

On Sat, Apr 19, 2008 at 3:35 AM, Jess <jesscobrien at gmail.com> wrote:
> Can anyone tell me how I can manually the view angle of a
>  ListContourPlot3D? Mathematica seems to automatically set the view
>  angle according to the data distribution. I need to do this because I
>  am generating a series of 3D graphics with ListContourPlot3D, which I
>  then animate into a AVI movie using the export command. As the
>  distribution changes shape significantly in each image, Mathematica
>  automaitcally shifts the view angle substantially, which unfortunately
>  makes the resulting animation appear to shake as the view angle
>  changes.
>
>  Cheers,
>  Jess
>
>

--
W. Craig Carter

```

• Prev by Date: Re: How to solve this simple equation?
• Next by Date: Re: problem accessing notebooks
• Previous by thread: axis alignment of 3D plots with ListContourPlot3D
• Next by thread: Re: axis alignment of 3D plots with ListContourPlot3D