Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

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

Search the Archive

Re: 3D view direction

  • To: mathgroup at smc.vnet.net
  • Subject: [mg110898] Re: 3D view direction
  • From: Patrick Scheibe <pscheibe at trm.uni-leipzig.de>
  • Date: Sat, 10 Jul 2010 06:32:45 -0400 (EDT)

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
> 



  • Prev by Date: Re: Chi Square Areas
  • Next by Date: Re: replacement x->y except in Exp[x]
  • Previous by thread: 3D view direction
  • Next by thread: Re: 3D view direction