MathGroup Archive 2007

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

Search the Archive

Re: Connecting 3D graphs together


Hi,

something like:

graph1 = Plot3D[Exp[-(x^2 + y^2)], {x, -2, 2}, {y, -2, 2}];
graph2 = Plot3D[x*Exp[-(x^2 + y^2)], {x, -2, 2}, {y, -2, 2}];

Manipulate[
  GraphicsRow[{graph1, graph2} /.
    g_GraphicsComplex :>
     GeometricTransformation[g,
      RotationTransform[\[Phi], {0, 0, 1}]]], {\[Phi], 0, 2 Pi}]

Regards
   Jens

michael.p.croucher at googlemail.com wrote:
> Hi all
> 
> Say I have 2 3d plots:
> 
> graph1 = Plot3D[Exp[-(x^2+y^2)],{x,-2,2},{y,-2,2}];
> graph2 = Plot3D[x*Exp[-(x^2+y^2)],{x,-2,2},{y,-2,2}];
> 
> and I put them together in a GraphicsRow:
> 
> GraphicsRow[{graph1,graph2}]
> 
> I can select each of the 2 plots with my mouse and rotate them
> independently.  Is there any way I can connect them together such that
> if I click on graph2 and rotate it with my mouse then graph1 rotates
> in the same way?
> 
> Best Regards,
> Mike
> 
> 


  • Prev by Date: Pattern::nodef: No default setting found for Piecewise in position 2 when length is 2.
  • Next by Date: DSolving(?) for a given tangent
  • Previous by thread: Re: Connecting 3D graphs together
  • Next by thread: Re: Connecting 3D graphs together