Category: Math
Title: Determine the circum-center of a 2D triangle
Date added: 15.03.2006
Hits: 3891


procedure Circumcenter(x1, y1, x2, y2, x3, y3: Double; var Px, Py: Double);
var
  A, C, B, D, E, F, G: Double;
begin
  A := x2 - x1;
  B := y2 - y1;
  C := x3 - x1;
  D := y3 - y1;
  E := A * (x1 + x2) + B * (y1 + y3);
  F := C * (x1 + x2) + D * (y1 + y3);
  G := 2.0 * (A * (y3 - y2) - B * (x3 - x2));
  if G = 0 then
    Exit;
  Px := (D * E - B * F) / G;
  Py := (A * F - C * E) / G;
end;

1. How to get the last day of the current month? (5956 Hits)

2. How to decode a TDate type? (12011 Hits)

3. How to determine The circumcenter of 3 points? (4976 Hits)

4. How to validate an IBAN? (6396 Hits)

5. How to convert Hex codes to Integer? (16121 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.