Re: False image plot

*To*: mathgroup at smc.vnet.net*Subject*: [mg58374] Re: False image plot*From*: Peter Pein <petsie at dordos.net>*Date*: Tue, 28 Jun 2005 21:57:05 -0400 (EDT)*References*: <d9r528$56u$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

tornado78 schrieb: > 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 > Say you've got In[1]:= x = Range[100]/100; y = 4*x*(1 - x); z = Sin[2*Pi*x]/x; I want to use Hue[] for the colour. So I have to normalize the z-values: In[4]:= col = (z - Min[z])/(Max[z] - Min[z]); And plot it: In[5]:= Show[Graphics[{Hue[#3], Point[{#1, #2}]}]&[Sequence @@ #1]& /@ Transpose[{x, y, col}], PlotLabel -> "Gravity's Rainbow", Background -> DarkSlateBlue]; -- Peter Pein Berlin