| 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: , |
|
