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. > >