Der “Wendekasten” 
hat für jedes k 
die Breite 2.

Rechts $9 oben hin

P = (-5.366410317557566, 2.12937945773577)
a: -Infinity
k = 2 (slider from 0 to 5, step 0.1)
f(x) = (ℯ^(x) - k)^(2)
asy: y = k^(2)
f'(x) = f'(x)
f''(x) = f''(x)
Q = Intersect(f'', xAxis, (0, 0))
d = OrthogonalLine(Q, xAxis)
W = Intersect(f, d, (0, 1))
e = Tangent(W, f)
S_{1} = Intersect(e, asy)
T = Intersect(e, xAxis)
g = OrthogonalLine(S_{1}, xAxis)
A = Intersect(g, xAxis)
h, i, j, l, m, n, p, q, r, s, B, C, D, E, F, G, H, I, J, K, L, M, N = Affe(xAxis, yAxis, A, T, S_{1})
WKasten, a_1, t, b, s_1 = Polygon(A, T, B, S_{1})
S = Intersect(f, asy, (1.3862943598421662, 4))
Int_{links} = IntegralBetween(k^(2), f, -100, ln((2 * k)))
asy
c = IntegralBetween(asy, f, ln(k), ln((2 * k)))
c_{2} = 0

Tool: Affe
x-Achse,y-Achse,A,B,D
Input: xAxis, yAxis, A, B, D
Output: t, s, r, q, p, n, m, l, c, b, C, E, F, G, H, I, J, K, L, M, N, O, P

g = Line(A, xAxis)
h = Line(A, yAxis)
i = Line(B, h)
j = Line(D, g)
C = Intersect(j, i)
E = Midpoint(D, C)
F = Midpoint(D, E)
G = Midpoint(E, C)
H = Midpoint(A, B)
I = Midpoint(A, H)
J = Midpoint(H, B)
K = Midpoint(A, D)
L = Midpoint(A, K)
M = Midpoint(K, D)
N = Midpoint(B, C)
O = Midpoint(B, N)
P = Midpoint(N, C)
l = Segment(A, B)
m = Segment(L, O)
n = Segment(K, N)
p = Segment(M, P)
q = Segment(D, C)
r = Segment(A, D)
s = Segment(I, F)
t = Segment(H, E)
b = Segment(J, G)
c = Segment(B, C)