       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