f(x) =

g(x) =

r = 1.5
f(x) = (0.5 * x)
konkret = false
x_0 = Point(xAxis)
x0: x = x(x_0)
G_0 = Point(x0)
k_g = Circle(G_0, r)
G = Point(k_g)
n = Slope(Segment[G_0, G])
F_0 = Point(x0)
k_f = Circle(F_0, r)
F = Point(k_f)
m = Slope(Segment[F_0, F])
m_{fg}: (m * y(G_0)) + (y(F_0) * n)
K_0: (x(x_0), (y(F_0) * y(G_0)))
g(x) = ((-1) / 32 * x^(3)) + (5 / 16 * x^(2))
k_1(x) = (f(x) * g(x))
Stelle: "x_0 = " + (x(x_0)) + ""
F_2 = Mirror(F, F_0)
G_2 = Mirror(G, G_0)
k_{fg} = Circle(K_0, r)
g_f = If(konkret, (f'(x(x_0)) * (x - x(x_0))) + f(x(x_0)), (m * (x - x(x_0))) + y(F_0))
g_g = If(konkret, (g'(x(x_0)) * (x - x(x_0))) + g(x(x_0)), (n * (x - x(x_0))) + y(G_0))
f_{fg}(x) = (g_f(x) * g_g(x))
g_{fg} = If(konkret, (k_1'(x(x_0)) * (x - x(x_0))) + k_1(x(x_0)), (m_{fg} * (x - x(x_0))) + y(K_0))
K_1 = Intersect(g_{fg}, k_{fg}, 2)
K_2 = Mirror(K_1, K_0)
s = Slope(Segment[K_0, K_1])
F'_0 = Intersect(f, x0)
G'_0 = Intersect(g, x0)
k'_f = Circle(F'_0, r)
k'_g = Circle(G'_0, r)
K'_0: (x(x_0), (y(F'_0) * y(G'_0)))
k'_h = Circle(K'_0, r)
F'_1 = Intersect(g_f, k'_f, 2)
F'_2 = Mirror(F'_1, F'_0)
G'_1 = Intersect(g_g, k'_g, 2)
G'_2 = Mirror(G'_1, G'_0)
K'_1 = Intersect(g_{fg}, k'_h, 2)
d_f = If(konkret, Segment[F'_2, F'_1], Segment[F_2, F])
d_g = If(konkret, Segment[G'_2, G'_1], Segment[G_2, G])
K'_2 = Mirror(K'_1, K'_0)
d_{fg} = If(konkret, Segment[K'_2, K'_1], Segment[K_2, K_1])
m'_f = Slope(Segment[F'_0, F'_1])
m'_g = Slope(Segment[G'_0, G'_1])
m'_h = Slope(Segment[K'_0, K'_1])
Eingabe_f = Textfield(f)
Eingabe_g = Textfield(g)
g'_f(x) = (f'(x(x_0)) * (x - x(x_0))) + f(x(x_0))
Zeige'_{yf}: (x(x_0) - 1.5, y(F'_0))
Zeige'_{yg}: (x(x_0) - 1.5, y(G'_0))
Zeige'_{yh}: (x(x_0) - 1.5, y(K'_0))
Zeige_{yf}: (x(x_0) - 1.5, y(F_0))
Zeige_{yg}: (x(x_0) - 1.5, y(G_0))
Zeige_{yh}: (x(x_0) - 1.5, y(K_0))
yWertF' = Segment((x(x_0) - 1.5, y(F'_0)), (x(x_0) + 0.3, y(F'_0)))
yWertG' = Segment((x(x_0) - 1.5, y(G'_0)), (x(x_0) + 0.3, y(G'_0)))
yWertH' = Segment((x(x_0) - 1.5, y(K'_0)), (x(x_0) + 0.3, y(K'_0)))
yWertF = Segment((x(x_0) - 1.5, y(F_0)), (x(x_0) + 0.3, y(F_0)))
yWertG = Segment((x(x_0) - 1.5, y(G_0)), (x(x_0) + 0.3, y(G_0)))
yWertH = Segment((x(x_0) - 1.5, y(K_0)), (x(x_0) + 0.3, y(K_0)))
yWert'_h: "h(" + (x(x_0)) + ") = " + (k_1(x(x_0))) + ""
yWert_g: "g(" + (x(x_0)) + ") = " + (LaTeX[y(G_0)]) + ""
yWert_f: "f(" + (x(x_0)) + ") = " + (LaTeX[y(F_0)]) + ""
yWert'_g: "g(" + (x(x_0)) + ") = " + (g(x(x_0))) + ""
yWert'_f: "f(" + (x(x_0)) + ") = " + (f(x(x_0))) + ""
E_1 = (-1, 1)
T_1: E_1 + (y(F_0), 0)
h = 1 (slider from 0 to 2, step 0.1)
E_2: T_1 + ((m * h), 0)
T_4: E_1 + (0, y(G_0))
M: T_1 + (0, y(G_0))
T_2: E_2 + (0, y(G_0))
nh: (n * h)
E_4: T_4 + (0, nh)
T_3: M + (0, nh)
E_3: T_2 + (0, nh)
Flaeche1, e_1, t_1, m_1, t_4 = Polygon(E_1, T_1, M, T_4)
Flaeche2, t_2, e_2, t_3, m_2 = Polygon(T_1, E_2, T_2, M)
Flaeche3, m_3, t_5, e_3, t_6 = Polygon(M, T_2, E_3, T_3)
Flaeche4, t_7, m_4, t_8, e_4 = Polygon(T_4, M, T_3, E_4)
Grafik2fvon4: "f(" + (x(x_0)) + ") = " + (y(F_0)) + ""
Hilf = Midpoint(t_4)
Grafik2gvon4: "g(" + (x(x_0)) + ") = " + (y(G_0)) + ""
Grafik2g'von4: "g'(" + (x(x_0)) + ")·h = n·h"
Grafik2f'von4: "f'(" + (x(x_0)) + ")·h = m·h"
yWert_k: "p(" + (x(x_0)) + ") = " + (LaTeX[y(K_0)]) + ""