Homothétie:\;Activité \;d'approche

k = -0.91 (slider from -2 to 2, step 0.01)
I = (1.1218181818181852, 1.08)
A = (-3.1581818181818164, -1)
B = (-2.038181818181816, 3.24)
C = (-0.19818181818181535, 1.32)
poly1, c, a, b = Polygon(A, B, C)
B' = Dilate(B, k, I)
C' = Dilate(C, k, I)
A' = Dilate(A, k, I)
poly1', c', a', b' = Polygon(A', B', C')
d = Distance(I, A)
d' = Distance(I, A')
q_d: d' / d
e = Distance(I, B)
e' = Distance(I, B')
q_e: e' / e
f' = Distance(I, C')
f = Distance(I, C)
q_f: f' / f
texte2: "IA=" + (LaTeX[d]) + "\;\;\;\;\;\;\;IA'= " + (LaTeX[d']) + "\;\;\;\;\;\;\;\;\;\frac{IA'}{IA}=\frac{" + (LaTeX[d']) + "}{" + (LaTeX[d]) + "}=" + (LaTeX[q_d]) + ""
I_1 = (-1.538181818181815, -2.24)
A_1 = (-7.178181818181815, -4.34)
A'_1 = Dilate(A_1, k, I_1)
d_1 = Distance(I_1, A_1)
d'_1 = Distance(I_1, A'_1)
q_1: d'_1 / d_1
texte2_1: "IB=" + (LaTeX[e]) + "\;\;\;\;\;\;\;IB'=" + (LaTeX[e']) + "\;\;\;\;\;\;\;\;\;\frac{IB'}{IB}=\frac{" + (LaTeX[e']) + "}{" + (LaTeX[e]) + "}=" + (LaTeX[q_e]) + ""
I_2 = (6.861818181818186, -3.36)
A_2 = (0.86, -5.12)
A'_2 = Dilate(A_2, k, I_2)
d_2 = Distance(I_2, A_2)
d'_2 = Distance(I_2, A'_2)
q_2: d'_2 / d_2
texte2_2: "IC=" + (LaTeX[f]) + "\;\;\;\;\;\;\;IC'= " + (LaTeX[f']) + "\;\;\;\;\;\;\;\;\;\frac{IC'}{IC}=\frac{" + (LaTeX[f']) + "}{" + (LaTeX[f]) + "}=" + (LaTeX[q_f]) + ""