Q

P

Δy

Δx

base = Segment((0, 0), (11, 0))
X = Point(base)
A3: (11, 5)
A1: (0, 1)
A2 = (3.48, 4.22)
f(x) = If[0 ≤ x ≤ 11, Polynomial[{A1, A2, A3}]]
P: (x(X), f(x(X)))
a = Segment(X, P)
c = Tangent(P, f)
B3: (x(A3), y(A1))
polígono1, b3, a1, a3 = Polygon(A1, A3, B3)
d = Line(P, b3)
A = Intersect(a, a3)
B = Intersect(a, b3)
b = Segment(A, B)
g = Segment(A1, A)
Pvalormedio: P - (0, b)
h(x) = f(x) - ((4 / 11 * (x - 11)) + f(11))
h'(x) = h'(x)