a

x_0

x

M_h

m_h

J_a(x)

y=f(t)

Text

J_a(x)-J_a(x_0)

Obj

h = 2 (slider from 0 to 2, step 0.1)
B = Point(xAxis)
A: (x(B) + h, 0)
f(x) = 1 / 9 * ((x - 3.2800000000000002)^(3) - 6 * (x - 3.2800000000000002)) + 3.22
u = Ray(B, A)
f_{abl} = Derivative(f)
S = Intersect(f_{abl}, u)
h1 = If(x(S) < x(A), x(S), x(A))
a = Point(xAxis)
J_a = Integral(f, x(a), x(B))
Min: (0, Min[Min[f(x(B)), f(x(A))], f(h1)])
c = OrthogonalLine(Min, yAxis)
Max: (0, Max[f(x(B)), f(x(A))])
e = OrthogonalLine(Max, yAxis)
g = Integral(f, x(B), x(A))
h2: x(B)
C = Point(f)
b = false
BO: (x(B), y(Max))
AO: (x(A), y(Max))
AU: (x(A), y(Min))
BU: (x(B), y(Min))
poly1, bu, b_1, a_1, au = Polygon(BU, B, A, AU)
poly2, bo, b_2, a_2, ao = Polygon(BO, B, A, AO)
d = false