Re: How to combine 3D Graphics?
- To: mathgroup at smc.vnet.net
- Subject: [mg126467] Re: How to combine 3D Graphics?
- From: "djmpark" <djmpark at comcast.net>
- Date: Sat, 12 May 2012 04:56:15 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- References: <18312799.4531.1336710717412.JavaMail.root@m06>
This is easy using the RaiseTo3D function in the Presentations Application.
Here is the transparent surface with a density plot at the z = -1 plane. I
used a more distinctive coloring function for the density plot.
<< Presentations`
Draw3DItems[
{(* Draw the transparent surface *)
{Opacity[0.5, Orange],
Draw3D[Sin[x + y], {x, 0, Pi}, {y, 0, Pi}, Mesh -> False]},
(* Draw the density plot and raise it to 3D *)
DensityDraw[Sin[x + y], {x, 0, Pi}, {y, 0, Pi},
PlotPoints -> 40,
ColorFunction -> ColorData["DarkRainbow"]] // RaiseTo3D[-1 &]},
NeutralLighting[0, 0.2, 0.5],
NiceRotation,
Axes -> True,
ImageSize -> 300]
In the following we put a transparent contour plot on the surface and a
density plot at z = -1.
Draw3DItems[
{(* Draw a contour plot and raise it to the surface *)
{Opacity[0.8],
ContourDraw[Sin[x + y], {x, 0, Pi}, {y, 0, Pi},
PlotPoints -> 40,
ColorFunction -> ColorData["DarkRainbow"]] //
RaiseTo3D[Sin[#1 + #2] &]},
(* Draw a density plot and raise it to the z = -1 surface *)
DensityDraw[Sin[x + y], {x, 0, Pi}, {y, 0, Pi},
PlotPoints -> 40,
ColorFunction -> ColorData["DarkRainbow"]] // RaiseTo3D[-1 &]},
NeutralLighting[0, 0.2, 0.5],
NiceRotation,
Axes -> True,
ImageSize -> 300]
Just draw one thing after another.
David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark/index.html
From: Jee Lou [mailto:ywdr1987 at gmail.com]
I have tried to combine a translucent 3D-plot graph with its density plot by
using Show. But it doesn't work. Here's my code:
g1=Plot3D[Sin[x + y], {x, 0, Pi}, {y, 0, Pi}, Mesh ->
False,PlotStyle->Opacity[.5]]; g2=DensityPlot[Sin[x + y], {x, 0, Pi}, {y, 0,
Pi}, Frame -> False]; g3=Plot3D[-1, {x, 0, Pi}, {y, 0, Pi}, Mesh ->
None,TextureCoordinateFunction -> ({#1, #2} &), PlotStyle ->
Directive[Texture[g2]]]; Show[g1,g3] It turns out that the density graph
disappears T_T.
How can I make it right?