Category: **Math**

Title: **Determine the circum-center of a 2D triangle**

Date added: **15.03.2006**

Hits: **9135**
**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;**