Groups > comp.soft-sys.math.mathematica > #2741

ViewPoint selector (Stan Wagon's)

From	"Christopher O. Young" <cy56@comcast.net>
Newsgroups	comp.soft-sys.math.mathematica
Subject	ViewPoint selector (Stan Wagon's)
Date	2011-05-27 10:13 +0000
Organization	Steven M. Christensen and Associates, Inc and MathTensor, Inc.
Message-ID	<irntfc$sni$1@smc.vnet.net> (permalink)

Show all headers | View raw

Here's a handy tool for adjusting the viewpoint from the latest edition of
Stan Wagon's "Mathematica in Action".

It's at Google Books at
http://books.google.com/books?id=EbVrWLNiub4C&pg=PA77&dq=Mathematica+%22Mesh
+option%22&source=gbs_selected_pages&cad=3#v=onepage&q&f=true

I'm not sure how to make a function out of this, which will accept any
function of x and y, or better, any 3D plot.

Also, it would be more helpful if it gave the x, y, and z coordinates that
corresponded to the angle, radius, and z coordinates used here.

f[x_, y_] := (x^2 + 3 y^2) E^(1 - x^2 - y^2)   (* Just an example; any 3D
plot should work *)


Manipulate[
 Plot3D[
  f[x, y],
  {x, -2, 2}, {y, -2.5, 2.5},
  Ticks -> All,
  AxesLabel -> {"x", "y", "z"},
  BoxRatios -> {4, 5, 3},
  Ticks -> {{0, 2}, Range[-2, 2], Range[0, 3]},
  SphericalRegion -> True,
  ViewPoint -> Dynamic[{r Cos[\[Theta]], r Sin[\[Theta]], z}],
  PlotLabel -> 
   Dynamic[StringForm["ViewPoint=``",
     NumberForm[Chop[{r Cos[\[Theta]], r Sin[\[Theta]], z}], 3]]
    ]
  ],
 {\[Theta], 0, 2 \[Pi]}, {{r, 1}, 0, 100}, {{z, 1}, -100, 100}
 ]

Back to comp.soft-sys.math.mathematica | Previous | Next — Next in thread | Find similar | Unroll thread

Thread

ViewPoint selector (Stan Wagon's) "Christopher O. Young" <cy56@comcast.net> - 2011-05-27 10:13 +0000
  Re: ViewPoint selector (Stan Wagon's) "Nasser M. Abbasi" <nma@12000.org> - 2011-05-28 11:20 +0000
    Re: ViewPoint selector (Stan Wagon's) "Nasser M. Abbasi" <nma@12000.org> - 2011-05-29 11:36 +0000

csiph-web