R est le rayon du cercle
Déplacer le point M sur [AD]

CTRL+F pour rafraichir l'affichage

R = 2 (slider from 0 to 3, step 0.1)
O = Intersect(xAxis, yAxis)
c = Circle(O, R)
A: (0.0, R)
D: (0.0, -(R))
a = Segment(A, D)
M = Point(a)
b = OrthogonalLine(M, a)
B, C = Intersect(c, b)
poly1, c_1, a_1, b_1 = Polygon(A, B, C)
Textepoly1: "Aire " + (Name[A]) + (Name[B]) + (Name[C]) + " = " + poly1
d = Segment(O, C)
AM = Segment(M, A)
liste1 = Sequence(Segment[(floor(2.0 * R) + 1.0, -(R) + R^(2.0) * j / 20.0), (floor(2.0 * R) + 1.0, -(R) + R^(2.0) * (j + 1.0) / 20.0)], j, 0.0, 30.0)
P: (floor(2.0 * R) + 1.0 + AM, poly1 - R)
liste2 = Sequence(Segment[(floor(2.0 * R) + 1.0 + j, -(R)), (floor(2.0 * R) + 2.0 + j, -(R))], j, 0.0, floor(2.0 * R))
texte2: "AM=" + AM