k: 2
g(x) = ℯ^(x) - k
h(x) = x^(2)
p_{1}: y = -2
A = Point(xAxis)
p = OrthogonalLine(A, xAxis)
B = Intersect(g, p, (-1, -1.6321205588285577))
wh: y = x
m = OrthogonalLine(B, yAxis)
W = Intersect(wh, m)
u = Vector(B, W)
K = Intersect(wh, p_{1})
n = OrthogonalLine(W, xAxis)
D = Intersect(h, n)
v = Vector(W, D)
q = OrthogonalLine(D, yAxis)
P = Intersect(q, p)
w = Vector(D, P)
v1, b_1, w_1, d, p_2 = Polygon(B, W, D, P)
l = Segment(B, A)
f_{1}(x) = (ℯ^(x) - k)^(2)
a_{y} = Vector(A, P)
b = Vector(A, B)
r: y = k^(2)
Ortslinie1 = Locus(P, A)
f(x) = h(g(x))