B = (-1, 0)
g = Circle(B, 1)
C = Point(xAxis)
A = Point(g)
α = Angle(C, B, A)
D = Rotate(B, -α, C)
β = Angle(D, C, B)
poly1, a_1, b, c, e = Polygon(A, B, C, D)
T1: "L'aire du polygone est " + poly1
d = OrthogonalLine(B, e)
H = Intersect(d, e)
γ = Angle(H, B, A)
M: (γ, poly1)
f(x) = (1 + sin(x)) cos(x)
r = 0.5233333333333333
loc1 = Locus(M, A)
loc2 = Locus(M, A)