MathGroup Archive 2006

[Date Index] [Thread Index] [Author Index]

Search the Archive

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?
| 



  • 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?