to plot 3D data with color independent of the coordinates
data = Table[RandomReal[{0, 10}, 4], {20000}];
Graphics3D[{Hue[Last[#]/10], Point[Take[#, 3]]} & /@ data]
Hue can take 3 parameters . Graphics3D had axes turned off so to change the labels you need to do Axes -> True, AxesLabel -> {Subscript[\[Theta], 1], Subscript[\[Theta], 2],
h}, BaseStyle -> {FontSize -> 15}
source: https://groups.google.com/forum/#!topic/comp.soft-sys.math.mathematica/nJSMEyrvIgg
data = Table[RandomReal[{0, 10}, 4], {20000}];
Graphics3D[{Hue[Last[#]/10], Point[Take[#, 3]]} & /@ data]
Hue can take 3 parameters . Graphics3D had axes turned off so to change the labels you need to do Axes -> True, AxesLabel -> {Subscript[\[Theta], 1], Subscript[\[Theta], 2],
h}, BaseStyle -> {FontSize -> 15}
source: https://groups.google.com/forum/#!topic/comp.soft-sys.math.mathematica/nJSMEyrvIgg
No comments:
Post a Comment