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