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~[[1]] 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.
>
>