Mesure de l'angle en radian

AIRE

ANGLE

A = (-2.96, 4.24)
B = Point(Circle[A, 2.0])
c = Circle(A, B)
a = 0.314 (slider from 0 to 1.571, step 0.0010)
B' = Rotate(B, a, A)
α = Angle(B, A, B')
b = Segment(A, B)
d = Segment(A, B')
e = Line(B', b)
f = OrthogonalLine(B', e)
C = Intersect(c, f, 2.0)
g = OrthogonalLine(C, f)
D = Intersect(c, g, 2.0)
h = OrthogonalLine(D, g)
E = Intersect(h, e)
poly1, e_1, b', c_1, d_1 = Polygon(E, B', C, D)
Textepoly1: "Aire " + (Name[E]) + (Name[B']) + (Name[C]) + (Name[D]) + " = " + poly1
F: (a, poly1)