Newton-Trägerfunktion
Author: Prof. Dr. Dörte Haftendorn
Date: 06+15 Juli 2013

Ha 06/2013

g(x)=x-\frac{f(x)}{f'(x)}

b = 2.7 (slider from 0 to 4, step 0.01)
f(x) = ℯ^(x) - (b * x)
g_1(x) = f'(x)
g(x) = x - f(x) / f'(x)
h(x) = x
X_0 = Point(xAxis)
T_0: (x(X_0), g(x(X_0)))
W_1: (g(x(X_0)), g(x(X_0)))
T_1: (x(W_1), g(x(W_1)))
W_2: (g(x(T_1)), g(x(T_1)))
T_2: (x(W_2), g(x(W_2)))
W_3: (g(x(T_2)), g(x(T_2)))
x_1 = Segment(X_0, T_0)
d_1 = Segment(T_0, W_1)
e_1 = Segment(W_1, T_1)
d_2 = Segment(T_1, W_2)
e_2 = Segment(W_2, T_2)
d_3 = Segment(T_2, W_3)
X_1: (g(x(X_0)), 0)
Y_0: (x(X_0), f(x(X_0)))
t_1 = Segment(Y_0, X_1)
Y_1: (x(X_1), f(x(X_1)))
X_2: (g(x(X_1)), 0)
t_2 = Segment(Y_1, X_2)
Y_2: (x(X_2), f(x(X_2)))
X_3: (g(x(X_2)), 0)
s_0 = Segment(X_0, Y_0)
s_1 = Segment(X_1, Y_1)
Y_3: (x(X_3), f(x(X_3)))
t_3 = Segment(Y_2, X_3)
s_2 = Segment(X_2, Y_2)
s_3 = Segment(X_3, Y_3)
X_4: (g(x(X_3)), 0)
t_4 = Segment(Y_3, X_4)
T_3: (x(W_3), g(x(W_3)))
W_4: (g(x(T_3)), g(x(T_3)))
e_3 = Segment(W_3, T_3)
d_4 = Segment(T_3, W_4)
A = Intersect(h, g, (1.0359719064945574, 1.0359719064945574))
B = Intersect(f, xAxis, (0.964870588760724, 9.325873406851315E-15))
v = Segment(A, B)
Text1: "f(x)=" + (LaTeX[f]) + ""
X_5: (g(x(X_4)), 0)
X_6: (g(x(X_5)), 0)
Y_4: (x(X_4), f(x(X_4)))
Y_5: (x(X_5), f(x(X_5)))
s_4 = Segment(X_4, Y_4)
s_5 = Segment(X_5, Y_5)
t_5 = Segment(Y_4, X_5)
T_4: (x(W_4), g(x(W_4)))
W_5: (g(x(T_4)), g(x(T_4)))
T_5: (x(W_5), g(x(W_5)))
W: 6 = (g(x(T_5)), g(x(T_5)))
C = (-1.1784260502201345, 2.8112122081758417)
W_6: (g(x(T_5)), g(x(T_5)))
d_5 = Segment(T_4, W_5)
d_6 = Segment(T_5, W_6)
e_4 = Segment(W_4, T_4)
e_5 = Segment(W_5, T_5)
x_6 = Segment(X_6, W_6)
d1, y_0, i, x_0 = Polygon(X_1, X_0, Y_0)
d2, y_1, x_2, j = Polygon(X_2, X_1, Y_1)
d3, x_5, x_4, y_4 = Polygon(X_4, Y_4, X_5)
d4, k, l, y_5 = Polygon(X_5, Y_5, X_6)