Echelle contre un mur
Author: Leflon Yves

Une échelle est appuyée sur un mur

Elle glisse sur le sol en restant en contact avec le mur

En vue de profil, voici la situation

On s'interesse à la position du milieu de 
l'échelle, lorsque celle-ci glisse sur le sol.

A = (9, 8)
B = (9, -1)
a = Line(A, B)
C = (16, -1)
b = Line(B, C)
c = Segment(B, C)
D = Point(c)
u = Vector(C, B)
D' = Translate(D, u)
d = Circle(D, D')
E = Intersect(d, a, 1)
e = Segment(D, E)
F = Midpoint(E, D)
G = Point(b)
f = OrthogonalLine(G, b)
g = OrthogonalLine(A, a)
H = Intersect(f, g)
J = (16.7, 1.34)
K = (17.1, 1.74)
L = (21.5, 1.18)
I = Point(Circle[D, 0.2])
h = Segment(D, I)
M = Point(Circle[E, 0.2])
i = Segment(E, M)