MathGroup Archive 2011

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

Search the Archive

Re: Explicitly specifying the 3d viewing options (pan, rotate, etc.)

  • To: mathgroup at smc.vnet.net
  • Subject: [mg123236] Re: Explicitly specifying the 3d viewing options (pan, rotate, etc.)
  • From: Chris Young <cy56 at comcast.net>
  • Date: Mon, 28 Nov 2011 05:53:53 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • References: <j6e684$ke8$1@smc.vnet.net>

On 2011-10-04 05:40:20 +0000, Theo Moore said:

> Hi,
> 
> I'm looking for an easy way to specify the 3d viewing options that you
> can alter by clicking a 3d plot and dragging your mouse. For example,
> plot a graph using:
> 
> Plot3D[Sin[x + y^2], {x, -3, 3}, {y, -2, 2}]
> 
> And then click and rotate it (or click and zoom in/out, etc.). Is
> there a way to output the parameters which were used as I manually
> rotated it, so that one could duplicate this (now-changed) graphic
> from an explicit command?

I forgot to add the ViewPoint readout. For this, all you need is the 
PlotLabel option. (I got this from a Google online sample from Stan 
Wagon's "Mathematica in Action", a great book.)

PlotLabel -> Dynamic[
  StringForm[
   "ViewPoint=``",
   NumberForm[Chop[{
								viewR Cos[viewθ] Sin[viewÏ?],
      			   		viewR Sin[viewθ] Sin[viewÏ?],
      			   	   viewR Cos[viewÏ?]
								}],
							3
						]
   ]
  ]

There's a picture at http://home.comcast.net/~cy56/ViewPoint2.tiff and 
a notebook at http://home.comcast.net/~cy56/ViewPoint2.nb .




  • Prev by Date: Plotting being aborted with RegionBoundary
  • Next by Date: Re: How to solve or approximate a first order differential equation ?
  • Previous by thread: Re: Plotting being aborted with RegionBoundary
  • Next by thread: Re: Explicitly specifying the 3d viewing options (pan, rotate, etc.)