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

MathGroup Archive 2013

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

Search the Archive

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


  • 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