Re: Re: density plot

*To*: mathgroup at smc.vnet.net*Subject*: [mg39694] Re: [mg39675] Re: density plot*From*: Dr Bob <drbob at bigfoot.com>*Date*: Sat, 1 Mar 2003 22:06:03 -0500 (EST)*References*: <200303010748.CAA09884@smc.vnet.net>*Reply-to*: drbob at bigfoot.com*Sender*: owner-wri-mathgroup at wolfram.com

Here's almost the same thing, with a little more separation of the various ideas used: 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}}; dataz = data[[All, 3]]; hue = Interpolation[{{Min@dataz, 0}, {Max@dataz, 1}}, InterpolationOrder -> 1]; point1[p : {_, _, c_}] := {Hue@hue@c, Point@p} pts = point1 /@ data; Show[Graphics3D[{AbsolutePointSize[6], pts}], Axes -> True]; point2[{a_, b_, c_}] := {Hue@hue@c, Point@{a, b}} pts = point2 /@ data; Show[Graphics[{AbsolutePointSize[6], pts}], Frame -> True, AspectRatio -> 1]; Bobby On Sat, 1 Mar 2003 02:48:29 -0500 (EST), <BobHanlon at aol.com> wrote: > > 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 > > > > -- majort at cox-internet.com Bobby R. Treat

**References**:**Re: density plot***From:*BobHanlon@aol.com