Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

[Date Index] [Thread Index] [Author Index]

Search the Archive

How to combine 3D Graphics?

  • To: mathgroup at smc.vnet.net
  • Subject: [mg126444] How to combine 3D Graphics?
  • From: Jee Lou <ywdr1987 at gmail.com>
  • Date: Fri, 11 May 2012 00:12:29 -0400 (EDT)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.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? 



  • Prev by Date: Condition Generation in Integrate
  • Next by Date: Re: Problem Importing web site in Mathematica: How to by pass pages asking for login credentials
  • Previous by thread: Re: Condition Generation in Integrate
  • Next by thread: Re: How to combine 3D Graphics?