Annäherung an Pi mit Monte carlo, paintbox

[Borgschüler]

tigü ja genau, so soll es aussehen!
tigü, hast du meinen quelltext imn ersten beitrag eins zu eins übernommen?
hmm, dann probier ich mal, den radius mit paintbox width auszudürcken!

EDIT: Ich werd noch wahnsinnig, jetzt hab ich < paintbox1.width und es geht immer noch nicht!


übrigens:

als zum berechnen von pi dachte ich mir

K/Q = 200²Pi/200²

erklärung: Verhältnis der punkte von Kreis und Quadrat(gesamtes) = verhältnis von Viertelkreisgleichung mit festgelegtem radius und fläche von quadrat

und daraus drück ich mir aus:

K/Q mal 4 = Pi

[Borgschüler]

so so schaut das aus bei mir, siehe anhang

[Valle]

Kann es sein dass die Paintbox auf dem Formular einfach zu klein ist?

Liebe Grüße,
Valentin

[DeddyH]

Vielleicht legt sich kurz ein anderes Fenster drüber. Verschieb das Zeichnen doch mal ins OnPaint der PaintBox, da gehört es ja auch hin. Bei mir wird die Grafik auch korrekt dargestellt.

[edit] Meine Änderungen:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure PaintBox1Paint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    FPainting: Boolean;
  public
    { Public-Deklarationen }
  end;

...

procedure TForm1.Button1Click(Sender: TObject);
begin
  paintbox1.Width := 200;
  paintbox1.Height := 200;
  FPainting := not FPainting;
  PaintBox1.Invalidate;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  randomize;
end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  i,x,y : integer;
begin
  if FPainting then
    for i := 1 to 100000 do
      begin
        x:= random(200);
        y:= random(200);
        if (sqrt(x*x+y*y) < 200) then
          paintbox1.canvas.pixels[x,y] := clred
        else
          paintbox1.canvas.pixels[x,y] := clgreen;
      end
  else
    PaintBox1.Canvas.FillRect(Rect(0, 0, PaintBox1.Width, PaintBox1.Height));
end;

[/edit]

[Borgschüler]

Liebe Leute, je nach dem wo die paintbox platziert ist, ist ein anderer teil zu sehn, bzw an einer stelle sieht man wirklich ein perfektes quadrat! aber seht selbst.

Wie kann das bitte sein? geht garnicht in meinen kopf!

ich werde jetzt die pi berechnung durchführen, und dann das ergebnis präsentieren.

[Borgschüler]

OK es klappt, Pi ist zwar relativ ungenau, aber das hat die monte carlo methode so ansich!

Aber kann mir vl jemand erklären, warum ich soviel rumprobieren musste, damit das ganze quadrat zu sehen ist?

Code:

procedure TForm1.Button1Click(Sender: TObject);
var i, count,x,y : integer;
pi : real;
begin
count := 0;
for i := 1 to 100000 do
 begin
  x:= random(200);
  y:= random(200);
   if (sqrt(x*x+y*y) < paintbox1.width) then
      begin
        count := count +1;
        paintbox1.canvas.pixels[x,y] := clred;
      end
      else
        paintbox1.canvas.pixels[x,y] := clgreen;
 end;
 pi := (4*count/100000);
 Label1.caption:= floattostr(pi);

[TiGü]

Zitat von Borgschüler:

Aber kann mir vl jemand erklären, warum ich soviel rumprobieren musste, damit das ganze quadrat zu sehen ist?

Sollen wir jetzt schreiben, dass du es vorher nicht gerafft hast, oder wie?

1. war bei dir wahrscheinlich die Eigenschaften Width und Height (Length gibts nicht!) der Paintbox nicht auf 200 gesetzt (gut in den Screenshots weiter oben zu sehen) und du aber
2. immer konstant auf 200 anstatt wie jetzt auf Width verglichen hast.

Würde übrigens an der Stelle der If-Abfrage das Ergebnis der Wurzel noch per Round() runden, ansonsten werden Gleitkommazahlen mit Integerzahlen
verglichen, was nicht immer gut gehen muss. Der Kompiler castet zwar, aber ich hätte ein sicherers Gefühl.

Ansonsten die anderen Vorschläge mit einarbeiten!

[einbeliebigername]

Hallo,

Zitat von Borgschüler:

Aber kann mir vl jemand erklären, warum ich soviel rumprobieren musste, damit das ganze quadrat zu sehen ist?

Ich habe doch schon geschrieben was vermutlich passiert. Und ansonsten liegt es an der falschen Benutzung der PaintBox. Schreib mal am Ende von Button1Click noch die Zeile paintbox1.Invalidate; (bzw. paintbox1.Repaint; kannst du auch mal ausprobieren) hin. Und dann schreib hier mal was passiert und was du denkst wieso.

Einbeliebigername.

[Borgschüler]

ok wenn ich paintbox1.invalidate oder paintbox1.repaint schreibe, verschwindet das gezeichnete. ich erklär mir das dadurch, dass die paintbox in den urzustand versetzt wird??

auf jedenfall danke leute, für die ganzen vorschläge!

[shmia]

Mal was ganz Grundsätzliches

Eine Paintbox ist eine flüchtige Zeichenfläche.
Sobald eine Paintbox durch ein anderes Fenster überdeckt und wieder aufgedeckt wird,
ist der aufgedeckte Bereich "kaputt".

Will man eine TPainbox für die Ausgabe von Monte Carlo Punkten verwenden
muss man alle bisherigen Punkte in einem Array oder Liste zwischenspeichern.
Wenn dann das OnPaint-Event ausgelöst wird, muss man alle Punkte aus dem Array neu zeichnen.

Die Lösung von DeddyH geht auch in Ordnung; nur bekommt man nach jedem Aufdecken eine
neue Punktewolke.

Will man diesen Aufwand nicht betreiben sollte man TImage für die Ausgabe verwenden.