Re: 3D view direction

• To: mathgroup at smc.vnet.net
• Subject: [mg110921] Re: 3D view direction
• From: "David Park" <djmpark at comcast.net>
• Date: Sun, 11 Jul 2010 06:21:25 -0400 (EDT)

```Use the ViewPoint option to set the displayed initial viewpoint.

For this particular function you don't need 256 plot points for a smooth
plot. You could generate fewer points to begin with or use the MaxPlotPoints
option to speed up the plotting and the mouse rotation. Perhaps, the example
was not representative of your actual function? If the regions where the
finer detail was needed were limited and localized you could plot the
function in pieces, using more plot points where needed, using DataRange to
coordinate the different pieces. Otherwise, you are just stuck with using
ViewPoint.

Also, on my machine the full detail image does rotate smoothly, but it just
takes a considerable delay before it begins.

points = Table[
Sin[x + y]/(.5 + x^2 + y^2), {x, -1, 1, 2/256.}, {y, -1, 1,
2/256.}];

ListPlot3D[points,
PlotRange -> All,
MaxPlotPoints -> 20,
ViewPoint -> {-1, -1, 2} 5,
PlotRange -> All]

There ought to be a way to use ControlActive to alter the number of
MaxPlotPoints during rotation, but I can't make it work.

David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/

From: eric g [mailto:eric.phys at gmail.com]

Hello Group,
My computer is very slow with a 256x256 array with listplot3d I can move
the graph with the mouse or it takes forever, I always use arrayplot for
this but I need the 3D graph this time. How to set up a view direction
in ListPlot3D so I wont have to move it ?

ListPlot3D[
Table[Sin[x + y]/(.5 + x^2 + y^2), {x, -1, 1, 2/256.}, {y, -1, 1,
2/256.}], PlotRange -> All]

thnks,
Eric

```

• Prev by Date: Re: How to *really* remove a symbol?
• Next by Date: Re: replacement x->y except in Exp[x]
• Previous by thread: Re: 3D view direction
• Next by thread: Chi Square Areas