Escalera

Lugar geométrico del punto medio de una 
escalera cuando resbala sobre el suelo.

¿Qué lugar saldrá, si en lugar del punto medio 
se toma M según otra proporción 

longitud de la escalera 5 cm.

A = (5, 5)
B = Point(Circle[A, 5])
a = Segment(A, B)
P = Point(xAxis)
c = Circle(P, a)
D, E = Intersect(c, yAxis)
b = Segment(P, E)
M = Midpoint(b)
lugar1 = Locus(M, P)
Q = Midpoint(M, P)
lugar2 = Locus(Q, P)
C = (3.38, 4.28)
F = (9.48, 4.22)
G = (9.52, 1.92)
H = (3.42, 1.9)
polígono1, c_1, f, g, h = Polygon(C, F, G, H)
I = Point(yAxis)
J = Point(yAxis)
K = Point(xAxis)
L = Point(xAxis)
d = Segment(I, J)
e = Segment(K, L)