f(x) = (2 * (x - 2.46)^(5)) - ((5 * (x - 2.46)^(3)) - 1.16)
t = 1.15 (slider from α to β, step 0.05)
α = 1.15 (slider from 1 to 3, step 0.05)
β = 3.636 (slider from 3.2 to 3.7, step 0.05)
A: (α, f(α))
B: (β, f(β))
g(x) = If[α ≤ x ≤ t, f]
Α = Intersect(g, xAxis, (3.1141429010472605, -2.7478019859472624E-15))
a = OrthogonalLine(A, yAxis)
b = OrthogonalLine(A, xAxis)
Β = Intersect(b, xAxis)
Γ = Intersect(a, yAxis)
c = Segment(A, Γ)
d = Segment(A, Β)
A4: f(α)
κείμενο1: "" + A4 + ""
e = OrthogonalLine(B, xAxis)
h = OrthogonalLine(B, e)
Δ = Intersect(xAxis, e)
Ε = Intersect(yAxis, h)
i = Segment(B, Δ)
j = Segment(B, Ε)
A9: f(β)
κείμενο2: "" + A9 + ""