Re: Connecting 3D graphs together
- To: mathgroup at smc.vnet.net
- Subject: [mg81366] Re: [mg81322] Connecting 3D graphs together
- From: Chris Hill <chill at wolfram.com>
- Date: Thu, 20 Sep 2007 03:57:58 -0400 (EDT)
- References: <200709190928.FAA01387@smc.vnet.net>
At 04:28 AM 9/19/2007, 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 I recommend using Dynamic to link the view options of both graphics to the same variables. As one of the graphics is rotated, the updated values of the options will be automatically written to the variables which will cause the other graphic to update accordingly. DynamicModule[{viewpoint = ViewPoint /. Options[Graphics3D], viewvertical = ViewVertical /. Options[Graphics3D]}, GraphicsRow[ Show[#, ViewPoint -> Dynamic[viewpoint], ViewVertical -> Dynamic[viewvertical]] & /@ {graph1, graph2}]] Chris Hill Wolfram Research
- References:
- Connecting 3D graphs together
- From: michael.p.croucher@googlemail.com
- Connecting 3D graphs together