f(x) = exp(-1.0 * x)
g(x) = (10.0 * x + 1.0) * exp(-1.0 * x)
A = Point(xAxis)
a = OrthogonalLine(A, xAxis)
B = Intersect(g, a, (5.2, 0.2923779143003209))
C = Intersect(f, a, (5.2, 0.0055165644207607716))
d = Segment(B, C)
P: (x(A), d)
D = Intersect(g, f, (-1.4306568077695068E-13, 0.9999999999987124))
fl, c, d_1, b = Polygon(D, B, C)
Q: (x(A), fl)