Etape

a

b

y=3

a

b

m

?

milieu m

Modifier le n° de l'étape avec le curseur

début

f(x) = x^(3)
C2 = 2
B2 = 1
D2: (B2 + C2) / 2
C3 = If(f(D2) > 3, D2, C2)
B3 = If(f(D2)  <  3, D2, B2)
D3: (B3 + C3) / 2
C4 = If(f(D3) > 3, D3, C3)
B4 = If(f(D3)  <  3, D3, B3)
D4: (B4 + C4) / 2
B5 = If(f(D4)  <  3, D4, B4)
C5 = If(f(D4) > 3, D4, C4)
D5: (B5 + C5) / 2
B6 = If(f(D5)  <  3, D5, B5)
C6 = If(f(D5) > 3, D5, C5)
D6: (B6 + C6) / 2
C7 = If(f(D6) > 3, D6, C6)
B7 = If(f(D6)  <  3, D6, B6)
D7: (B7 + C7) / 2
C8 = If(f(D7) > 3, D7, C7)
B8 = If(f(D7)  <  3, D7, B7)
D8: (B8 + C8) / 2
B9 = If(f(D8)  <  3, D8, B8)
C9 = If(f(D8) > 3, D8, C8)
D9: (B9 + C9) / 2
B10 = If(f(D9)  <  3, D9, B9)
C10 = If(f(D9) > 3, D9, C9)
D10: (B10 + C10) / 2
C11 = If(f(D10) > 3, D10, C10)
B11 = If(f(D10)  <  3, D10, B10)
D11: (B11 + C11) / 2
C12 = If(f(D11) > 3, D11, C11)
B12 = If(f(D11)  <  3, D11, B11)
D12: (B12 + C12) / 2
B13 = If(f(D12)  <  3, D12, B12)
C13 = If(f(D12) > 3, D12, C12)
D13: (B13 + C13) / 2
B14 = If(f(D13)  <  3, D13, B13)
C14 = If(f(D13) > 3, D13, C13)
D14: (B14 + C14) / 2
C15 = If(f(D14) > 3, D14, C14)
B15 = If(f(D14)  <  3, D14, B14)
D15: (B15 + C15) / 2
C16 = If(f(D15) > 3, D15, C15)
B16 = If(f(D15)  <  3, D15, B15)
D16: (B16 + C16) / 2
C17 = If(f(D16) > 3, D16, C16)
L_2: {C2, C3, C4, C5, C6, C7, C8, C9, C10, C11, C12, C13, C14, C15, C16, C17}
pointsB = Sequence((Element[L_2, k], 0), k, 1, Length[L_2])
Etape = 0 (slider from 0 to 6, step 1)
B17 = If(f(D16)  <  3, D16, B16)
L_1: {B2, B3, B4, B5, B6, B7, B8, B9, B10, B11, B12, B13, B14, B15, B16, B17}
pointsA = Sequence((Element[L_1, k], 0), k, 1, Length[L_1])
A3 = 1
A4 = 2
A5: (2 * A4) - A3
A6: (2 * A5) - A4
A7: (2 * A6) - A5
A8: (2 * A7) - A6
A9: (2 * A8) - A7
A10: (2 * A9) - A8
A11: (2 * A10) - A9
A12: (2 * A11) - A10
A13: (2 * A12) - A11
A14: (2 * A13) - A12
A15: (2 * A14) - A13
A16: (2 * A15) - A14
A17: (2 * A16) - A15
A = Element(pointsA, Etape + 1)
B = Element(pointsB, Etape + 1)
D17: (B17 + C17) / 2
L_3: {D2, D3, D4, D5, D6, D7, D8, D9, D10, D11, D12, D13, D14, D15, D16, D17}
milieu = Sequence((Element[L_3, k], 0), k, 1, Length[L_3])
K = Element(milieu, Etape + 1)
C = Intersect(f, a)
b = OrthogonalLine(C, xAxis)
D = Intersect(b, xAxis)
c = Segment(C, D)
d = OrthogonalLine(K, xAxis)
E = Intersect(f, d, 1)
e = Segment(E, K)
g = Segment(A, B)
h = OrthogonalLine(A, xAxis)
i = OrthogonalLine(B, xAxis)
F = Intersect(f, h)
G = Intersect(f, i)
k = Segment(B, G)
j = Segment(A, F)