       Re: ScatterPlot3D with One More Dimension?

• To: mathgroup at smc.vnet.net
• Subject: [mg65157] Re: ScatterPlot3D with One More Dimension?
• From: "Jens-Peer Kuska" <kuska at informatik.uni-leipzig.de>
• Date: Wed, 15 Mar 2006 23:59:31 -0500 (EST)
• Organization: Uni Leipzig
• References: <dv903u\$nj7\$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

```Hi,

first let make some data

lrhs = {-y[t] - z[t], x[t] + a*y[t], b +
z[t]*(x[t] - c)};
rhs = {x'[t], y'[t], z'[t]};
deqn = Thread[rhs == lrhs];
param = {a -> 1/5, b -> 1/5, c -> 57/10};
roess = NDSolve[
Join[deqn /. param, {x == 5, y == 5, z ==
1}], {x[t], y[t],
z[t]}, {t, 0, 40}];
data = Table[{x[t], y[t], z[t]} /. roess[], {t,
0, 40, 0.01}];

and finaly color the lines with the
Sqrt[lrhs.lrhs]/80

Show[Graphics3D[
(Line /@ Transpose[{Most[data], Rest[data]}])/.
Line[pnts_] :>
{Hue[Sqrt[lrhs.lrhs]/80 /. Thread[{x[t],
y[t], z[t]} -> Mean[pnts]] /. param],
Line[pnts]}, PlotRange -> All]]

Regards
Jens

"Matt Thompson" <thompsma at jilau1.colorado.edu>
schrieb im Newsbeitrag
news:dv903u\$nj7\$1 at smc.vnet.net...
| Folks, I'm wondering if it's possible to add a
dimension to a ScatterPlot3D in the form of color?
I have a Perl script that generates a list of
{x,y,z} for a SP3D from a molecular dynamics
trajectory, and it does work, but the plot is just
mono.
|
| Rather, I'd like to change the color of certain
points depending on the state the trajectory is on
at that time.  That is, a sort of RGBColor[1,0,0]
for some points, then back to [0,0,0] for others,
&c.
|
| Is this possible, or should I start exploring
IDL, et al?
|

```

• Prev by Date: Re: Finding a shorter form for coplanar point in 3D space
• Next by Date: Re: Errors at discontinuities
• Previous by thread: Re: ScatterPlot3D with One More Dimension?
• Next by thread: Re: ScatterPlot3D with One More Dimension?