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[0] == 5, y[0] == 5, z[0] ==
1}], {x[t], y[t],
z[t]}, {t, 0, 40}];
data = Table[{x[t], y[t], z[t]} /. roess[[1]], {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?
|