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