Re: Datenbeschriftung 3D-Plot

[Klamser@XXXXXXX.de (klamser)]

Hallo

unter

http://home.earthlink.net/~djmp/Mathematica.html

ist das

"The DrawGraphics Paradigm"

zu finden.

Gruß

Peter



Philipp Mohl schrieb:

> Hallo:
>
> leider komme ich an dieser Stelle nicht weiter und würde mich über Hilfe
> sehr freuen:
>
> ich möchte eine Punktwolke mit 23 einträgen im 3-dimensionalen Raum mit
> Hilfe von Mathematica darstellen.
> Das Problem, das ich damit habe ist: Ich möchte jeden einzelnen Punkt ein
> "label" geben (z.b. "ger", "fra" etc.).
>
> Mein bisheriges Vorgehen war folgendes:
>
> Needs["Graphics`Graphics3D`"]
>
> pointlist = Table[{{-0.9, -1.25, -0.02 }, {-0.72, -0.37, 0.43}, {-0.18, \
> -1.32, -0.71}, {-0.08, -0.36, 0.46}, {0.17, 0.08, 1.33}, {1.10, 0.11,
>          1.68}, {-0.79, -0.40, -1.21}, {
>        0.46, 2.16, 0.53}, {0.50, 0.10, -0.95}, {-0.76, -1.13, -0.22},
> {1.02,
>          0.39, -0.14}, {
>        1.02, 0.55, -0.46}, {-0.90, -0.84, -0.52}, {-0.96, -0.65, -1.12}, {
>          1.09, 0.37, 2.08}, {-1.33, -0.44, -0.92}, {-0.81, -0.03,
>        0.35}, {-0.54,
>          0.16, -0.79}, {1.21, 2.38, 1.50}, {1.21, 0.52, 1.25},
> {0.58, -0.04, \
> -0.39}, {1.13, 1.50, 0.88}, {-2.61, -1.48, -1.46}}];
>
> pointgraph = ScatterPlot3D[pointlist];
>
> pointgraph = ScatterPlot3D[pointlist, PlotStyle -> {RGBColor[1, 0, 0], \
> PointSize[.03]}];
>
>
>
>
>
>
>
>