Déplacer le point M à la souris

Afficher l'aire de MNPQ

Tracer la courbe représentant la fonction A

A = Point(yAxis)
B = Intersect(xAxis, yAxis)
a = Segment(A, B)
C = Point(xAxis)
b = Segment(B, C)
D = (5, 3)
c = Segment(C, D)
d = Segment(D, A)
M = Point(a)
e = Circle(B, Segment[A, M])
N = Intersect(e, b, 1.0)
f = Circle(C, Segment[A, M])
P = Intersect(f, c, 1.0)
g = Circle(D, Segment[A, M])
Q = Intersect(g, d, 1.0)
poly1, m, n, p, q = Polygon(M, N, P, Q)
h = Segment(A, M)
i = Segment(B, N)
j = Segment(C, P)
k = Segment(D, Q)
distanceAM = Distance(A, M)
TexteAM: Name[A] + (Name[M]) + " \, = \, " + distanceAM
Textepoly1: "Aire " + (Name[M]) + (Name[N]) + (Name[P]) + (Name[Q]) + " = " + poly1
l = false
O = (7, 0)
E = (11, 0)
u = Vector(O, E)
F = (7, 9)
v = Vector(O, F)
L_2 = Sequence((x(O), j), j, 1.0, 8.0)
L_1 = Sequence((x(O) + i, 0.0), i, 1.0, 3.0)
K: (x(O), poly1 / 2.0)
H: (x(O) + h, 0.0)
M': (x(H), y(K))
r = Segment(K, M')
s = Segment(M', H)
texte2: poly1 + ""
texte3: h + ""
o = false
lieu1 = Locus(M', M)