ξ

f(ξ)

a

b

m

M

f(x) = 0.2 (x + 0.03302801639777253)² - 0.4 (x + 0.03302801639777253) + 1.0330280163977723
P_B = Point(xAxis)
P_D: (x(P_B) + 5, 0)
a = Ray(P_B, P_D)
P_C = Point(a)
c = Integral(f, x(P_B), x(P_C))
h_1: c / Distance[P_B, P_C]
F: (x(P_C), h_1)
D: (x(P_B), h_1)
h = Segment(D, F)
K: (x(P_B), f(x(P_B)))
i = Segment(K, P_B)
G, G_1 = Intersect(f, h)
P, b_1, d_1, (x(d), y(g)), (x(b), y(g)) = Polygon(P_B, P_C, (x(P_C), y(G)), (x(P_B), y(G)))
g = Segment(G, (x(G), 0))
H: (x(G), 0)
A: (x(P_C), f(x(P_C)))
B: (0, y(K))
C: (0, y(A))
d = Segment(C, A)
e = Segment(B, K)