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 > >