Le problème de Napoléon
Author: Yvan Monka - m@ths et tiques 2005

B = (4.1, -2.6666666666666665)
A = (10.1, 2.433333333333333)
C = (12.6, -2.1)
P_1, c, a, b = Polygon(B, A, C)
d = Circle(B, A)
e = Circle(A, B)
M = Intersect(d, e, 2)
f = Segment(A, M)
g = Segment(M, B)
h = Circle(A, C)
k = Circle(C, A)
p = Circle(B, C)
q = Circle(C, B)
P, F_1 = Intersect(h, k)
G_1, N = Intersect(p, q)
i = Segment(A, P)
j = Segment(P, C)
l = Segment(C, N)
m = Segment(N, B)
n = LineBisector(f)
r = LineBisector(c)
s = LineBisector(i)
t = LineBisector(a)
a_1 = LineBisector(b)
b_1 = LineBisector(l)
G = Intersect(n, r)
I = Intersect(s, t)
H = Intersect(b_1, a_1)
Q, f_1, d_1, e_1 = Polygon(G, I, H)