u(x) = (36 * x)
p(x) = If[0 ≤ x ≤ 240, u(x)]
k(x) = (0.1 * x^(2)) + (10 * x) + 850
f(x) = If[0 ≤ x ≤ 150, k(x)]
A: (150, 4600)
B = (239.95215311004787, 8445.724217844729)
g(x) = p(x) - f(x)
a: k(150)
k2(x) = (40 * x) - 1400
h(x) = If[150 < x ≤ 240, k2(x)]
q: g(x)
r(x) = If[150 < x ≤ 240, u(x) - k2(x)]
C = Extremum(q, 60, 150)
D = Point(xAxis)
i = Segment(C, D)
E = Point(f)
F = Point(p)
j = Segment(E, F)