Re: density plot

*To*: mathgroup at smc.vnet.net*Subject*: [mg39675] Re: density plot*From*: BobHanlon at aol.com*Date*: Sat, 1 Mar 2003 02:48:29 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

In a message dated 2/28/03 9:02:27 AM, hsu at charter.net writes: > I have a list of data with coordinates and intensity value, such as > > {{0.0028989,0.332549,1.75},{0.334769,0.395588,2.},{0.469562,0.0831043, > > 3.},{0.693715,0.672036,4.},{0.0111101,0.227195,1.75},{0.974097,0.623733, > > 3.75},{0.905734,0.980701,4.},{0.766471,0.0168064,3.},{0.543011,0.512028, > 3.25},{0.472721,0.573379,3.5}} > > I want to be able to listplot the first 2 elements of each row as the > coordinate on R^2, and the third as color of the coordinate. I used > scatterplot3d and the result was not ideal. I wrote my own function to get > the colors to work, but I figure there is probably some builtin function > that has better options and color scheme than the one I'm doing. Is any > such one out there. > data={{0.0028989,0.332549,1.75},{0.334769,0.395588,2.}, {0.469562,0.0831043,3.},{0.693715,0.672036,4.}, {0.0111101,0.227195,1.75},{0.974097,0.623733,3.75}, {0.905734,0.980701,4.},{0.766471,0.0168064,3.}, {0.543011,0.512028,3.25},{0.472721,0.573379,3.5}}; minz = Min[dataz = (Last /@ data)]; delz = Max[dataz]-minz; minHue = .35; maxHue = 1; Show[Graphics3D[{AbsolutePointSize[6], {Hue[minHue+(maxHue-minHue)*(#[[3]]-minz)/delz], Point[#]}& /@ data}], Axes -> True]; Show[Graphics[{AbsolutePointSize[6], {Hue[minHue+(maxHue-minHue)*(#[[3]]-minz)/delz], Point[Take[#,2]]}& /@ data}], Frame -> True, AspectRatio->1]; Bob Hanlon

**Follow-Ups**:**Re: Re: density plot***From:*Dr Bob <drbob@bigfoot.com>