Re: Farbcodierung der 4ten dimension

[Patrick Scheibe <patrick@XXXXXXX.de>]

Moin,

aber das kannst du doch relativ einfach selber machen, indem du aus
jedem Datenpunkt {x,y,z,t} die Form {Hue[t],Point[{x,y,z}]} machst.

data = Array[{x, x, x, x} /. x :> Random[] &, 50];
Graphics3D[{PointSize[0.05], #}] &[{Hue[#[[4]]], 
    Point[Drop[#, 1]]} & /@ data]

Cheers
Patrick

On Tue, 2008-08-19 at 13:28 +0100, Christian M. Sperber wrote:
> Hi Mathematica,
> 
> ich habe die folgende Liste {{X1, Y1, Z1, T1}, {X2, Y2, Z2, T2}, ... , 
> {Xn, Yn, Zn, Tn}}. Ich wuerde gerne die Elemente der Liste als Punkte in 
> einem xyz-Koordinatensystem plotten und den Wert T als Farbe des Punktes 
> darstellen.
> 
> Die Punkte kann ich mit ListPointPlot3D darstellen aber wie bekomme ich 
> die Farbcodierung? Ich habe etliche Sachen mit ColorDataFunction und 
> ColorFunctionScaling ausprobiert nichts kann ich zum Laufen bringen.
> 
> Vielen Dank,
> Christian
> 
> 
>