Re: Datenbeschriftung 3D-Plot

["Jens-Peer Kuska" <kuska@XXXXXXX.de>]

Hallo,

was soll die Table[] im die Punkt-Liste ..

Ansonsten

pointlist = {{-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}};

randomName[] :=
 StringJoin @@ FromCharacterCode /@ Table[Random[Integer, {65, 90}], {3}]

und

Show[Graphics3D[
{Point[#], Text[randomName[], # + {0, 0.25, 0}]} & /@ pointlist]]



Gruß

 Jens


----- Original Message ----- 
From: "Philipp Mohl" <philmo@XXXXXXX.de>
To: <demug@XXXXXXX.ch>
Sent: Tuesday, February 01, 2005 4:09 AM
Subject: Datenbeschriftung 3D-Plot


> 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]}];