Prev: image is not graphics
Next: Simple Question
From: eric g on 10 Jul 2010 03:58
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

From: Patrick Scheibe on 10 Jul 2010 06:32
Hi,

you could simply write your on rotation by setting the ViewPoint.
Using Manipulate and ContinuousAction->False makes that you can set the
angle without waiting for the rendering of every frame:

gr3d = ListPlot3D[Table[Sin[x + y]/(0.5 + x^2 + y^2),
{x, -1, 1, 2/256.}, {y, -1, 1, 2/256.}],
PlotRange -> All];
Manipulate[Block[{viewcenter = {0.5, 0.5, 0.5}, viewpoint},
viewpoint = {3*Sin[theta]*Cos[phi], 3*Sin[theta]*Sin[phi],
3*Cos[theta]} + viewcenter; Show[gr3d,
ViewPoint -> viewpoint, ViewCenter -> viewcenter,
AxesLabel -> {"x", "y", "z"}, PlotLabel ->
StringJoin["ViewPoint\[Rule]", ToString[viewpoint]]]],
{phi, 0, 2*Pi}, {{theta, Pi/3}, 0, Pi},
ContinuousAction -> False]

Cheers
Patrick

On Sat, 2010-07-10 at 03:58 -0400, eric g wrote:
> 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
>


From: David Park on 11 Jul 2010 06:21
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(a)comcast.net
http://home.comcast.net/~djmpark/





From: eric g [mailto:eric.phys(a)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



 | 
Pages: 1
Prev: image is not graphics
Next: Simple Question