R = (-2.28, 4.66)
S = (2.44, 5.86)
r = Segment(R, S)
C = (4.16, 0.46)
c = Circle(C, r)
A = Point(c)
B = Point(c)
P = Point(c)
M = Midpoint(A, P)
N = Midpoint(P, B)
a = Line(A, N)
b = Line(B, M)
G = Intersect(b, a)
luogo1 = Locus(G, P)
d = LineBisector(A, B)
P2, P1 = Intersect(c, d)
poli1, b_1, a_1, p = Polygon(A, P, B)