tournesom

A1: 1
A2: 1
A = Point(yAxis)
B = Point(xAxis)
C = (1, 1)
D = Point(yAxis)
A3: A2 + A1
E = Point(xAxis)
F = (2, 1)
q2, a_1, e, f, d_1 = Polygon(A, E, F, D)
A4: A3 + A2
G = Point(xAxis)
H = (3, 2)
I = Point(yAxis)
q3, a_2, g, h, i = Polygon(A, G, H, I)
A5: A4 + A3
J = Point(xAxis)
K = (5, 3)
L = Point(yAxis)
q4, a_3, j, k, l = Polygon(A, J, K, L)
A6: A5 + A4
M = (8, 0)
N = (8, 5)
O = Point(yAxis)
q5, a_4, m, n, o = Polygon(A, M, N, O)
A7: A6 + A5
P = Point(xAxis)
Q = (13, 8)
R = Point(yAxis)
q6, a_5, p, q, r = Polygon(A, P, Q, R)
A8: A7 + A6
S = Point(xAxis)
T = (21, 13)
U = Point(yAxis)
q7, a_6, s, t, u = Polygon(A, S, T, U)
V = (0, 0)
W = (21, 0)
B2: A2 / A1
B3: A3 / A2
B4: A4 / A3
B5: A5 / A4
B6: A6 / A5
B7: A7 / A6
B8: A8 / A7
A9: A8 + A7
B9: A9 / A8
A10: A9 + A8
B10: A10 / A9
A11: A10 + A9
B11: A11 / A10
A12: A11 + A10
B12: A12 / A11
A13: A12 + A11
B13: A13 / A12
A14: A13 + A12
B14: A14 / A13
A15: A14 + A13
B15: A15 / A14
A16: A15 + A14
B16: A16 / A15
A17: A16 + A15
B17: A17 / A16
A18: A17 + A16
B18: A18 / A17
A19: A18 + A17
B19: A19 / A18
A20: A19 + A18
B20: A20 / A19
c = 3 (slider from 1 to 5, step 0.1)
Z = Point(xAxis)
A_1: (c, 0)
poly1, a, b, d, f_1, g_1, B_1, C_1, D_1 = Polygon(Z, A_1, 5)
poly2, z_1, b_1, d_2, a_7, c_1 = Polygon(Z, B_1, D_1, A_1, C_1)
v: a_7
w: v / c
E_1 = (-1.08, -0.6)
F_1 = (4.16, -0.54)
G_1 = (-0.5407573734236573, -1.4536594358015045)
H_1 = (21.718636461060782, -1.7071831855319763)
texte1: "côté = " + (LaTeX[c]) + "
diagonale = " + (LaTeX[v]) + "
$\frac{diagonale}{côté}=" + (LaTeX[w]) + "$"