Re: Connecting 3D graphs together
- To: mathgroup at smc.vnet.net
- Subject: [mg81351] Re: Connecting 3D graphs together
- From: Szabolcs Horvát <szhorvat at gmail.com>
- Date: Thu, 20 Sep 2007 03:49:16 -0400 (EDT)
- References: <fcqqk5$1i4$1@smc.vnet.net>
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?
I have not used Dynamic very much, so there might be much better
solutions than this ... but this one works too:
Plot3D[Exp[-(x^2 + y^2)], {x, -2, 2}, {y, -2, 2},
ViewPoint -> Dynamic[vp]]
Plot3D[x*Exp[-(x^2 + y^2)], {x, -2, 2}, {y, -2, 2},
ViewPoint -> Dynamic[vp]]
--
Szabolcs