Re: density plot

*To*: mathgroup at smc.vnet.net*Subject*: [mg39689] Re: density plot*From*: peter weijnitz <pewei at algonet.se>*Date*: Sat, 1 Mar 2003 22:05:07 -0500 (EST)*References*: <b3nb3a$2pu$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Assume your original data is called da, Show[Graphics[{PointSize[0.02`], da /. {a_, b_, c_} -> {GrayLevel[Abs[Sin[c]]], Point[{a, b}]}}], Frame -> True] could be something to tailor to your needs, instead of my GrayLevel[Abs[Sin[c]]] function, swich to some function that converts your intensity data to some color using e.g. GrayLevel , Hue or RGBColor.