f(x) = sqrt(x)
κείμενο1: "f(x)=" + (LaTeX[f]) + ""
ε = 2 (slider from 0.01 to 2, step 0.05)
x_0 = 0 (slider from -5 to 5, step 0.05)
Α: (x_0, f(x_0))
a = OrthogonalLine(Α, xAxis)
b = OrthogonalLine(Α, yAxis)
l = Intersect(b, yAxis)
χ_0 = Intersect(a, xAxis)
c = Segment(Α, χ_0)
d = Segment(Α, l)
e = Integral(f, x_0 - ε, x_0 + ε)
Δ: (x_0 - ε, f(x_0 - ε))
Ε: (x_0 + ε, f(x_0 + ε))
g = OrthogonalLine(Δ, yAxis)
h = OrthogonalLine(Ε, yAxis)
ψ_. = Intersect(g, yAxis)
ψ = Intersect(h, yAxis)
i = Segment(ψ, Ε)
j = Segment(ψ_., Δ)
k = Segment(ψ, ψ_.)
χ: (x_0 - ε, 0)
χ_.: (x_0 + ε, 0)
m = Integral(f, x_0, x_0 + ε)
n = Segment(ψ, Α)
o = Integral(f, x_0 - ε, x_0)
p = Segment(ψ_., Α)