       Re: ListPlot3d and ListDensityPlot

• To: mathgroup at smc.vnet.net
• Subject: [mg131109] Re: ListPlot3d and ListDensityPlot
• From: J Jesus Rico-Melgoza <ricomelgozajjesus at gmail.com>
• Date: Wed, 12 Jun 2013 05:37:12 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• Delivered-to: l-mathgroup@wolfram.com
• Delivered-to: mathgroup-outx@smc.vnet.net
• Delivered-to: mathgroup-newsendx@smc.vnet.net
• References: <ko9io1\$kd9\$1@smc.vnet.net>

Thanks
I have done the following:

Imag2 = ListPlot3D[Table[Sin[.2 x] Sin[.2 y], {x, -20, 20}, {y, -20, 20}]]
Imag1 = ListDensityPlot[
Table[Sin[.2 x] Sin[.2 y], {x, -20, 20}, {y, -20, 20}], Frame -> None]
plane = Table[-2, {i, 40}, {j, 40}];
ListPlot3D[{Table[Sin[.2 x] Sin[.2 y], {x, -20, 20}, {y, -20, 20}], plane},
BoxRatios -> 1, Mesh -> None, BoxRatios -> 1, Mesh -> None,
TextureCoordinateFunction -> ({#1, #2} &), TextureCoordinateScaling ->
True,
PlotStyle -> Texture[Imag1]]

I have to draw a plane a then color it using the image generated by the
LineDensityPlot.

The result is not very nice though!

Jesus

2013/6/11 debguy <johnandsara2 at cox.net>

> Mathematica's Show[ g1, g2 ] combines graphics.  GraphicsArray is
> another way.  There are various ways to plot density graphics.
>
> ListPlot3D[Table[Sin[.2x] Sin[.2y], {x, -20, 20}, {y, -20, 20}]]
>
> ListDensityPlot[Table[Sin[.2x] Sin[.2y], {x, -20, 20}, {y, -20, 20}]]
>
> Show[Graphics[Raster[
>       Table[Sin[.2x] Sin[.2y], {x, -20, 20}, {y, -20, 20}]]]]
>
> ~DensityGraphics~[] is a simple data list and plotted "specially"
> but it is not very special - it's not a spline function to have to be
> compatible with or something.
>
>

• Prev by Date: Re: a trivial task?
• Next by Date: problems with NDSolve
• Previous by thread: Re: ListPlot3d and ListDensityPlot
• Next by thread: System Modeler and Mathematica 9