Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

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

Search the Archive

Re: Connecting 3D graphs together

  • To: mathgroup at smc.vnet.net
  • Subject: [mg81343] Re: Connecting 3D graphs together
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Thu, 20 Sep 2007 03:44:36 -0400 (EDT)
  • Organization: Uni Leipzig
  • References: <fcqqk5$1i4$1@smc.vnet.net>
  • Reply-to: kuska at informatik.uni-leipzig.de

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