$f(x) =$

x_0

konstuieren

$a =$

initialisieren

aktualisieren

a,b \text{ übernehmen}

\downarrow

\downarrow

\uparrow

$b = $

!!

f(x) = (0.1 * x^(4)) + (0.8 * x) - 2
Eingabefeld1 = Textfield(f)
a = 1
X0: (a, 0)
zustand: 0
x0: 1
Eingabefeld2 = Textfield(x0)
n = 0
X = (4.139534883720923, 0)
t = 0 (slider from 0 to 3, step 1)
A: (a, 0)
Text2: "x_{" + (LaTeX[n]) + "}"
Text3: "x_{" + (LaTeX[n + 1]) + "}"
Text5: "x_{" + (LaTeX[n + 1]) + "} \text{ konstruieren}"
Text6: "x_{" + (LaTeX[n + 1]) + "} \text{ übernehmen}"
x1: 2
Eingabefeld3 = Textfield(x1)
b = 2
B: (b, 0)
s = Segment(A, B)
m: (a + b) / 2
M: (m, 0)
A1: (a, f(a))
B1: (b, f(b))
M1: (m, f(m))
i = Segment(A, A1)
j = Segment(B, B1)
k = Segment(M, M1)
s' = If((f(m) * f(a)) > 0, Segment[B, M], If[(f(m) * f(a)) < 0, Segment[A, M], If[f(m) ≟ 0, Segment[B, M], Segment[A, M]]])
C = Midpoint(s')
eingabe = Text("xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx")
ausgabe = Text("xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx")
Text1: "\text{Näherungswert: }x_{" + (LaTeX[n]) + "} = " + (LaTeX[m]) + ""
tA = If(f(a) < 0, "➖", If[f(a) > 0, "➕", "0"])
tB = If(f(b) < 0, "➖", If[f(b) > 0, "➕", "0"])
tM = If(f(m) < 0, "➖", If[f(m) > 0, "➕", "0"])
d: abs(a - m)
PosA: A1 + (d * (-0.3, -0.2))
PosB: B1 + (d * (0.1, 0.1))
PosM = If((f(a) * f(m)) ≥ 0, M1 + (d * (-0.3, -0.2)), M1 + (d * (0.1, 0.1)))