f(x_0)

x_0

ε - διάστημα

δ - διάστημα

e = 2.718281828459045
f(x) = 2.0^(x)
x_0 = 1 (slider from -5 to 5, step 0.1)
ε = 0.29 (slider from 0.05 to 0.3, step 0.01)
B: (0.0, f(x_0))
a_1 = Line(B, xAxis)
A = Intersect(f, a_1, (1.00000000000547, 2.0000000000075833))
b = Segment(B, A)
c = OrthogonalLine(A, xAxis)
C = Intersect(c, xAxis)
d = Segment(A, C)
A1: (0.0, f(x_0) - ε)
Α2: (0.0, f(x_0) + ε)
a = Line(A1, xAxis)
g = Line(Α2, xAxis)
D = Intersect(f, a, (0.7739963251291906, 1.7100000000213558))
E = Intersect(f, g, (1.1953475983241582, 2.2900000000030776))
h = Segment(A1, D)
i = Segment(Α2, E)
j = OrthogonalLine(D, xAxis)
k = OrthogonalLine(E, xAxis)
F = Intersect(xAxis, j)
G = Intersect(k, xAxis)
l = Segment(D, F)
m = Segment(E, G)
n = Segment(Α2, A1)
p = Segment(F, G)