www.vorkurse.de
Ein Projekt von vorhilfe.de
Die Online-Kurse der Vorhilfe

E-Learning leicht gemacht.
Hallo Gast! [ einloggen | registrieren ]
Startseite · Mitglieder · Teams · Forum · Wissen · Kurse · Impressum
Forenbaum
^ Forenbaum
Status Mathe-Vorkurse
  Status Organisatorisches
  Status Schule
    Status Wiederholung Algebra
    Status Einführung Analysis
    Status Einführung Analytisc
    Status VK 21: Mathematik 6.
    Status VK 37: Kurvendiskussionen
    Status VK Abivorbereitungen
  Status Universität
    Status Lerngruppe LinAlg
    Status VK 13 Analysis I FH
    Status Algebra 2006
    Status VK 22: Algebra 2007
    Status GruMiHH 06
    Status VK 58: Algebra 1
    Status VK 59: Lineare Algebra
    Status VK 60: Analysis
    Status Wahrscheinlichkeitst

Gezeigt werden alle Foren bis zur Tiefe 2

Navigation
 Startseite...
 Neuerdings beta neu
 Forum...
 vorwissen...
 vorkurse...
 Werkzeuge...
 Nachhilfevermittlung beta...
 Online-Spiele beta
 Suchen
 Verein...
 Impressum
Das Projekt
Server und Internetanbindung werden durch Spenden finanziert.
Organisiert wird das Projekt von unserem Koordinatorenteam.
Hunderte Mitglieder helfen ehrenamtlich in unseren moderierten Foren.
Anbieter der Seite ist der gemeinnützige Verein "Vorhilfe.de e.V.".
Partnerseiten
Weitere Fächer:

Open Source FunktionenplotterFunkyPlot: Kostenloser und quelloffener Funktionenplotter für Linux und andere Betriebssysteme
Forum "Mathematica" - Plot: Punktbeschriftung
Plot: Punktbeschriftung < Mathematica < Mathe-Software < Mathe < Vorhilfe
Ansicht: [ geschachtelt ] | ^ Forum "Mathematica"  | ^^ Alle Foren  | ^ Forenbaum  | Materialien

Plot: Punktbeschriftung: Frage (beantwortet)
Status: (Frage) beantwortet Status 
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.
        
Bezug
Plot: Punktbeschriftung: Antwort
Status: (Antwort) fertig Status 
Datum: 15:55 Do 22.03.2012
Autor: Peter_Pein

Hallo Harry,

Die Funktion MapIndexed tut's (zusammen mit einer anonymen Funktion):

MapIndexed[Text[Style[#2[[1]], 8], #1] &, koord] ist das Wesentliche (siehe [a]Anhang).

Peter


Dateianhänge:
Anhang Nr. 1 (Typ: nb) [nicht öffentlich]
Bezug
Ansicht: [ geschachtelt ] | ^ Forum "Mathematica"  | ^^ Alle Foren  | ^ Forenbaum  | Materialien


^ Seitenanfang ^
www.vorkurse.de
[ Startseite | Mitglieder | Teams | Forum | Wissen | Kurse | Impressum ]