Re: FullGraphics of Graphics3D
- To: mathgroup at smc.vnet.net
- Subject: [mg97755] Re: FullGraphics of Graphics3D
- From: replicatorzed at gmail.com
- Date: Fri, 20 Mar 2009 02:42:35 -0500 (EST)
- References: <gnqo3n$c9e$1@smc.vnet.net> <go0j8j$n4h$1@smc.vnet.net>
Dear David,
I should elaborate my point a bit more (although I must mention that
I've found a way to solve the problem, so from now on this is merely
for the satisfaction of the curious mind):
I have two 3D graphics, and I want to position them in 3D space such
that they (meaning the surface, the bounding box, the axes, labels,
etc. for EACH, separately) are next to each other, like two houses in
a street. See attached code for a similar result obtained by
superimposing 3DGraphics in 2D. Now it is a rather complicated matter
to finetune spacing and size parameters in a GraphicsGrid, that's why
positioning them in 3D would be more handy: both graphics would retain
their own bounding box, and other extras, although they would be
positioned in a new coordinate system, rather independent of their
inner coordinate systems.
If the whole thing is still too obscure please see the code below, or
prompt me to give a more clear description.
SetOptions[Plot3D, Mesh -> False, BoxRatios -> 1,
ViewPoint -> {-15, -18, 20}, ImageSize -> {1, 1.33}*360,
PlotRange -> {{-2, 2}, {-2, 2}, {-1, 1}}];
g1 = Plot3D[Sin[x + y^2], {x, -2, 2}, {y, -2, 2},
PlotStyle -> {Opacity[.5], Green}];
g2 = Plot3D[Cos[x + y^2], {x, -2, 2}, {y, -2, 2},
PlotStyle -> {Opacity[.5], Purple}];
GraphicsGrid[
{{Null, g2}, {g1, Null}},
Spacings -> {{{0, -164.16`}}, {{0, -376.7058`}}},
ImageSize -> {555.84`, 583.0541999999999`}]
An other method is to combine the two plots by Show, and shift one of
them along the y axis (i.e. change the coordinates of each point of
the plot), but this is 1. a lousy method, and 2. won't allow two
bounding boxes and two sets of axes for the two plots.
Istvan