Effacer les traces en bougeant ce curseur

Déplacer M jusqu'à obtenir des solutions

A = (-2, -2)
B = (2, -2)
poly1, a, b, c, d, C, D = Polygon(A, B, 4.0)
M = (-1.3943589543901431, 0.6777718082702904)
e = OrthogonalLine(M, a)
f = OrthogonalLine(M, b)
H = Intersect(e, a)
K = Intersect(f, b)
α = Angle(B, H, M)
β = Angle(M, K, B)
g = Segment(M, K)
h = Segment(M, H)
F: M
k = Line(D, B)
δ = Distance(M, Line[A, C])
n = 0.8 (slider from 0 to 2, step 0.1)
O = (0, 0)
i = Segment(O, H)
j = Segment(O, K)
l = Segment(K, H)
O1: O + 0.1 / Distance[O, H] * Vector[O, H]
O2: O + 0.1 / Distance[O, K] * Vector[O, K]
O3: O1 + Vector[O, O2]
m = Segment(O3, O1)
p = Segment(O3, O2)