Fläche eines Polygons?

[Elspass]

Moin, Moin,

damit ich das Rad nicht noch einmal erfinden muss, gibt es eine Möglichkeit in Delphi von einem Polygon die Fläche zu ermitteln.
Ein Polygon kennt Delphi, jedoch keine Berechnung, oder?
Kennt einer einen offnen Source? Bei dem ich mich bedienen kann?

Gruss Jörg

(Ja, ich bin faul!)

[Luckie]

Offenen Source nicht. Aber es gibt eine recht einfach zu implementierenden Algorithmus von einem Griechen, mir fällt der Name jetzt nicht ein. :gruebel: :?

[Tubos]

Pythagoras!
In rechtwinklige Dreiecke unterteilen!

Ist aber viel einfacher als es sich anhört: mit Vektorrechnung.
Kann es dir im Moment nicht erklären da ich in den Ferien die Schule aus meinem Kopf verdränge.

[axelf98]

Zitat:

Zitat von Tubos

Ist aber viel einfacher als es sich anhört: mit Vektorrechnung.
Kann es dir im Moment nicht erklären da ich in den Ferien die Schule aus meinem Kopf verdränge.

Vektorrechnung mit 15 in der Schule? :shock: Das haben werden wir erst in der 13 im LK Mathe machen! Und dann ist man 18-19...

[flomei]

Entscheidend ist auch um was für Polygone es sich handelt, oder?

MfG Florian :hi:

[Tubos]

Zitat:

Vektorrechnung mit 15 in der Schule? Das haben werden wir erst in der 13 im LK Mathe machen! Und dann ist man 18-19...

vielleicht meinst du eine andere "vektorrechnung" als ich :gruebel:

[dizzy]

Nicht allzu schwer :)

[Elspass]

So einfach mit Pythagoras ist das nicht. Man muss (siehe Bild) eine X Achse ziehen dann den oberen Teil addieren und den unteren Teil subtrahieren.

[Elspass]

Danke für den Link, jedoch ist mir die Berechnung klar. Meine Faulheit das in Source zu giessen steht mir im weg ;- )

[Luckie]

Nein, nein, nein. Nicht Pythagoras. Ich kucke mal eben in meinen Bauing-Unterlagen. Aha, gut, dass ich den Wendehorst aufgehoben habe: Gauss'sche Flächenformel heißt das Zauberwort. ;)

[dizzy]

Oben auf der Seite in meinem Link ist ein Link zu einer C-Funktion. Die ist sehr übersichtlich und einfach -> lässt sich recht komfortabel übersetzen. So viel Eigeninitiative muss schon sein ;)

[Luckie]

Jupp, das ist die Gauss'sche Flächenformel.

[Elspass]

Vielen Dank für die Hilfe!!!

Ich werde mich erstmal an den C Source machen. Wenn das nicht funzt, dann werde ich mich um die Gauss'sche Flächenformel kümmern.
Klar, wenn noch einer mit einem Delphi Source kommt ;- )


Nochmal Danke!

[Luckie]

Der C-Source ist die Gauss'sche Fläschenformel!

[dizzy]

Aber auch nur weil ich C üben wollte und nicht schlafen kann :warn: :

Delphi-Quellcode:

type
  TPointArray = array of TPoint;

.
.
.

function PolyArea(p: TPointArray): Double;
var
  n, i, j: Integer;
  a: Double;
begin
  n := Length(p);
  a := 0;
  for i := 0 to n-1 do
  begin
    j := (i+1) mod n;
    a := a + p[i].x*p[j].y - p[i].y*p[j].x;
  end;
  a := a / 2;
  result := abs(a);
end;

btw: ungetestet!

[Elspass]

Wow vielen Dank,

will keinen ärgern, aber die paar Zeilen habe ich auch schon übersetzt und bin jetzt dabei eine grafische Eingabe zu tippen. Jedoch wird das noch bis morgen dauern. Ich habe um 8 Uhr meinen ersten Kundentermin.

[dizzy]

Zitat:

Zitat von Elspass

will keinen ärgern

Tust du nicht. War ja auch eher zum Zweck des Selbststudiums ;)

Viel Erfolg :thuimb: