Déplacer le curseur (ou lancer l'animation)

A = (-6, 0)
B = (6, 0)
n = 4 (slider from 0 to 20, step 1)
A1 = 0
A2 = 1
A3 = 2
A4: 2.0 * A3 - A2
A5: 2.0 * A4 - A3
A6: 2.0 * A5 - A4
A7: 2.0 * A6 - A5
A8: 2.0 * A7 - A6
A9: 2.0 * A8 - A7
A10: 2.0 * A9 - A8
A11: 2.0 * A10 - A9
A12: 2.0 * A11 - A10
A13: 2.0 * A12 - A11
A14: 2.0 * A13 - A12
A15: 2.0 * A14 - A13
A16: 2.0 * A15 - A14
B1 = 0
B2 = If(IsInteger[A1 / 2.0], (B1 - 6.0) / 2.0, (B1 + 6.0) / 2.0)
B3 = If(IsInteger[A2 / 2.0], (B2 - 6.0) / 2.0, (B2 + 6.0) / 2.0)
B4 = If(IsInteger[A3 / 2.0], (B3 - 6.0) / 2.0, (B3 + 6.0) / 2.0)
B5 = If(IsInteger[A4 / 2.0], (B4 - 6.0) / 2.0, (B4 + 6.0) / 2.0)
B6 = If(IsInteger[A5 / 2.0], (B5 - 6.0) / 2.0, (B5 + 6.0) / 2.0)
B7 = If(IsInteger[A6 / 2.0], (B6 - 6.0) / 2.0, (B6 + 6.0) / 2.0)
B8 = If(IsInteger[A7 / 2.0], (B7 - 6.0) / 2.0, (B7 + 6.0) / 2.0)
B9 = If(IsInteger[A8 / 2.0], (B8 - 6.0) / 2.0, (B8 + 6.0) / 2.0)
B10 = If(IsInteger[A9 / 2.0], (B9 - 6.0) / 2.0, (B9 + 6.0) / 2.0)
B11 = If(IsInteger[A10 / 2.0], (B10 - 6.0) / 2.0, (B10 + 6.0) / 2.0)
B12 = If(IsInteger[A11 / 2.0], (B11 - 6.0) / 2.0, (B11 + 6.0) / 2.0)
B13 = If(IsInteger[A12 / 2.0], (B12 - 6.0) / 2.0, (B12 + 6.0) / 2.0)
B14 = If(IsInteger[A13 / 2.0], (B13 - 6.0) / 2.0, (B13 + 6.0) / 2.0)
B15 = If(IsInteger[A14 / 2.0], (B14 - 6.0) / 2.0, (B14 + 6.0) / 2.0)
B16 = If(IsInteger[A15 / 2.0], (B15 - 6.0) / 2.0, (B15 + 6.0) / 2.0)
A17: 2.0 * A16 - A15
B17 = If(IsInteger[A16 / 2.0], (B16 - 6.0) / 2.0, (B16 + 6.0) / 2.0)
A18: 2.0 * A17 - A16
B18 = If(IsInteger[A17 / 2.0], (B17 - 6.0) / 2.0, (B17 + 6.0) / 2.0)
A19: 2.0 * A18 - A17
B19 = If(IsInteger[A18 / 2.0], (B18 - 6.0) / 2.0, (B18 + 6.0) / 2.0)
A20: 2.0 * A19 - A18
B20 = If(IsInteger[A19 / 2.0], (B19 - 6.0) / 2.0, (B19 + 6.0) / 2.0)
A21: 2.0 * A20 - A19
B21 = If(IsInteger[A20 / 2.0], (B20 - 6.0) / 2.0, (B20 + 6.0) / 2.0)
A22: 2.0 * A21 - A20
B22 = If(IsInteger[A21 / 2.0], (B21 - 6.0) / 2.0, (B21 + 6.0) / 2.0)
A23: 2.0 * A22 - A21
B23 = If(IsInteger[A22 / 2.0], (B22 - 6.0) / 2.0, (B22 + 6.0) / 2.0)
A24: 2.0 * A23 - A22
B24 = If(IsInteger[A23 / 2.0], (B23 - 6.0) / 2.0, (B23 + 6.0) / 2.0)
A25: 2.0 * A24 - A23
B25 = If(IsInteger[A24 / 2.0], (B24 - 6.0) / 2.0, (B24 + 6.0) / 2.0)
A26: 2.0 * A25 - A24
B26 = If(IsInteger[A25 / 2.0], (B25 - 6.0) / 2.0, (B25 + 6.0) / 2.0)
L_1: {B1, B2, B3, B4, B5, B6, B7, B8, B9, B10, B11, B12, B13, B14, B15, B16, B17, B18, B19, B20, B21, B22, B23, B24, B25, B26}
I: (Element[L_1, n + 1.0], 0.0)
texte1: Element[L_1, n + 1.0] + ""