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


  • Prev by Date: Re: Problem when NIntegrate matrix
  • Next by Date: Group opener disappearing with Textbook style
  • Previous by thread: Re: Connecting 3D graphs together
  • Next by thread: Filenames DOS-style