Re: False image plot
- To: mathgroup at smc.vnet.net
- Subject: [mg58332] Re: [mg58328] False image plot
- From: "Jaccard Florian" <Florian.Jaccard at he-arc.ch>
- Date: Tue, 28 Jun 2005 21:56:33 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Hello !
I would do something like that :
data = Table[Random[Integer, {0, 10}], {10}, {3}];
max = Max[Last[Transpose[data]]];
min = Min[Last[Transpose[data]]];
data2 = data /. {x_, y_, z_} -> {PointSize[0.02],
Hue[0.7*(z/max)], Point[{x, y}]};
<< "Graphics`Legend`"
dessin = Show[Graphics[data2], Axes -> True,
DisplayFunction -> Identity, ImageSize -> 500];
ShowLegend[dessin, {Hue[0.7*#1] & , 15, ToString[min],
ToString[max], LegendShadow -> None, LegendPosition ->
{1.2, -0.78}, LegendSize -> {0.4, 1.4},
LegendLabel -> "third value"}];
Regards
F.Jaccard
-----Message d'origine-----
De : tornado78 [mailto:tornado78 at hotmail.com]
Envoyé : mardi, 28. juin 2005 11:14
À : mathgroup at smc.vnet.net
Objet : [mg58328] False image plot
Ok here is another one i need help on
How do you get mathematica to take three lists of numbers, plot one as x, one as y and the third not as a 3rd dimension but as a color value of some sort for example blue for low values, red and yellow for high values of the third set of numbers
thanks