Fläche eines Polygons?

[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: