On peut déplacer O vers la gauche pour dissocier 
figure géométrique et courbe

Cliquer ici pour afficher le graphique

Déplacer le point M à la souris.

Ch1 - TP1

O = Point(xAxis)
A: O + (6.0, 0.0)
B: O + (0.0, -1.0 * 6.0)
poly1, a, o, b = Polygon(O, B, A)
M = Point(b)
c = Circle(B, Segment[O, M])
N = Intersect(c, a, 1.0)
poly2, n, o_1, m = Polygon(O, M, N)
d = Segment(O, M)
e = Segment(B, N)
f = Segment(O, N)
g = Segment(N, M)
texte1: "x = " + (Distance[O, M])
C = Midpoint(O, M)
S: (d, poly2)
lieu1 = Locus(S, M)
h = OrthogonalLine(S, xAxis)
i = OrthogonalLine(S, yAxis)
D = Intersect(h, xAxis)
E = Intersect(i, yAxis)
E': E + (-1.0 * 1.0, 0.0)
j = Segment(S, D)
k = Segment(S, E)
texte2: "aire OMN =" + poly2
G = (-1, 50)
H = (-1, -50)
I = (-35, -50)
poly3, f_1, g_1, h_1, i_1 = Polygon(F, G, H, I)
l = Segment(A, B)
J = Point(g_1)
K = Point(xAxis)
u = Vector(J, K)
L = Point(yAxis)
P = Point(yAxis)
v = Vector(L, P)
L_1 = Sequence((k, 0.0), k, 1.0, 6.0)
L_2 = Sequence((0.0, k), k, 1.0, 5.0)
p = false
texte3: "x = " + (Distance[O, M])