Binomialverteilung -> Graphen

[mo_greene]

Hallo,

ich habe mir ein kleines Tool gebastelt, welches eine beliebige Binomialverteilung ausgeben kann. Nun möchte ich das Programm noch ein wenig erweitern, indem man die errechneten Werte als Graphen oder Säulendiagramm ausgeben lassen kann.

Wie mache ich das am besten?

Danke

[Corpsman]

Ich mach so was ja immer selbst.

Es gibt aber was das heist TChartFX ist standard mäßig drin in Delphi ( 5 Pro ) damit geht sowas glaubig auch ...

[Codewalker]

Oder TJvChart aus den JEDIs

[mo_greene]

Zitat von Corpsman:

Ich mach so was ja immer selbst.

Wie denn?

[Luckie]

In dem er die Säulen selber zeichnen mit den entsprechenden Zeichenroutinen von TCanvas.

[mo_greene]

Zitat von Luckie:

In dem er die Säulen selber zeichnen mit den entsprechenden Zeichenroutinen von TCanvas.

Das heißt jeden einzelnen Strich einzeln? Also jeweils die Koordinatenachsen und dann die Punkte für die Säulen im Diagramm?

[mkinzler]

Zitat:

Das heißt jeden einzelnen Strich einzeln? Also jeweils die Koordinatenachsen und dann die Punkte für die Säulen im Diagramm?

Ein fundamentales Merkmal des Selbermachen ist nun mal, dass man es selber machen muss.

[mo_greene]

Also für ein "stinknormales" Koordinatensystem würde es dann so aussehen?

Delphi-Quellcode:

procedure TForm1.Zeichnen;
begin
  Image.Canvas.Pen.color := clblack;
  Image.Canvas.MoveTo(10, 180);  //  Abzisse zeichnen
  Image.Canvas.LineTo(240, 180); //  Abzisse zeichnen
  Image.Canvas.MoveTo(20,10);    // Ordinate zeichnen
  Image.Canvas.LineTo(20,190);   // Ordinate zeichnen
  Image.Canvas.MoveTo(235,175);  // Achsenpfeile Abzisse
  Image.Canvas.LineTo(240,180);  // Achsenpfeile Abzisse
  Image.Canvas.MoveTo(235,185);  // Achsenpfeile Abzisse
  Image.Canvas.LineTo(240,180);  // Achsenpfeile Abzisse
  Image.Canvas.MoveTo(15,15);
  Image.Canvas.LineTo(20,10);
  Image.Canvas.MoveTo(25,15);
  Image.Canvas.LineTo(20,10);
  Image.Canvas.TextOut(30,5,'y');
  Image.Canvas.TextOut(240,185,'x');

end;

Wie es aussieht, könnt ihr im Attachment sehen.

Ist das vom Prinzip her so richtig oder zu umständlich?

Danke!

[mkinzler]

Wenn du es selbermachen willst, ist das der Weg. Aber was spricht gegen TChart/TJvChart ?

[Medium]

An und für sich goldrichtig. Du kannst bestenfalls 2 Dinge noch optimieren bzw. erweitern:

1) Manche MovTo() kannst du durch geschickte Zeichenreihenfolge sparen, da LineTo() auch den Zeichencursor verschiebt, und du ja zum Teil zusammenhängende Linienstücke hast.

2) Für eine Version die mehr Freiraum bietet, würde ich die Koordinaten nicht fest eingeben, sondern von der Größe des Bildes abhängig machen in dem du zeichnest.