Plot: Punktbeschriftung < Mathematica < Mathe-Software < Mathe < Vorhilfe
|
Status: |
(Frage) beantwortet | Datum: | 16:41 Di 20.03.2012 | Autor: | pingi |
Hallo,
ich habe eine Liste von Koordinatenpaaren KOORD, die ich plotte mit:
plot = ListPlot[KOORD, AspectRatio -> Automatic, PlotStyle -> {Green, AbsolutePointSize[12]}]
und will bei den einzelnen Koordinaten den Index der Koodinate in der Liste plotten in der Weise:
dotlabel[i] = Graphics[Text[str[i], {xi, yi}]]
wobei str[i] = ToString[i]
und schließlich mit
Show[plot,FOR[i=1,i <= idim, i++, dotlabel[i]]]
plotten.
So weit so schön. Doch ... wie komme ich an den Index i heran? Oder muss ich via DO-Schleife idim fache Listplots erzeugen, und diese schließlich kombinieren?
Vielen Dank für jeden Tipp.
Harry
Ich habe diese Frage in keinem Forum auf anderen Internetseiten gestellt.
|
|
|
|
Hallo Harry,
Die Funktion MapIndexed tut's (zusammen mit einer anonymen Funktion):
MapIndexed[Text[Style[#2[[1]], 8], #1] &, koord] ist das Wesentliche (siehe Anhang).
Peter
Dateianhänge: Anhang Nr. 1 (Typ: nb) [nicht öffentlich]
|
|
|
|