Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Combining DensityGraphics and Graphics objects' topicStudent Support Forum > General > "Combining DensityGraphics and Graphics objects"

Next Comment >Help | Reply To Topic
Author Comment/Response
Alessandro Sansone
11/24/06 09:50am

Hi everybody,

I need to combine the outputs of ListDensityPlot and Plot. It looks like that the color information of the DensityGraphics object is lost when Show combines the two objects, in fact the output is plotted in gray.

Attached is an illustrative notebook.

I have used the following inputs:

Grap = ListDensityPlot[Transpose[data], MeshRange -> {{0, 1}, {0,
1}}, Mesh ->
False, ColorFunction -> (If[# == (1/1000), RGBColor[1, 0, 0],
If[# == (2/1000), RGBColor[0, 1, 0],
If[# == (3/1000), RGBColor[0, 0, 1],
If[# == (4/1000), RGBColor[0.5, 0.5, 0],
If[# == (5/1000), RGBColor[0.3, 0.6, 0.6],
If[# == (6/1000), RGBColor[0.4, 0.2, 0.4],
If[# == (7/1000), RGBColor[0.3, 0.8, 0],
If[# == (8/1000), RGBColor[1, 0.6, 0],
If[# == 1, RGBColor[1, 1, 0],
RGBColor[#, #, #]]]]]]]]]] &), ColorFunctionScaling -> \
False];


p2 = Plot[Sin[x], {x, 0, 1}, PlotStyle -> RGBColor[1, 0, 0], Frame -> True]

Show[Grap, p1]

Attachment: Notebook.zip, URL: ,

Subject (listing for 'Combining DensityGraphics and Graphics objects')
Author Date Posted
Combining DensityGraphics and Graphics objects Alessandro S... 11/24/06 09:50am
Re: Combining DensityGraphics and Graphics obje... Forum Modera... 01/13/07 10:44am
Next Comment >Help | Reply To Topic