∆x

0

x

1

0

1

y

x+∆x

y+∆y

∆y

∆x

j = 1 (slider from 0 to 2, step 0.05)
f(x) = x^(2) - 3
A = (-2, 0)
a = OrthogonalLine(A, xAxis)
E = Point(a)
C = Point(a)
in: y(E) / y(C)
L = Point({in + j, f(in + j)})
out: f(in)
G = Point({in, out})
b = OrthogonalLine(A, a)
B = Point(b)
c = OrthogonalLine(B, b)
d = OrthogonalLine(C, a)
D = Intersect(c, d)
F = Point({x(B), (out * y(D))})
e = Segment(E, F)
J = Point({x(E), y(E) + (y(C) * j)})
K = Point({x(B), (y(D) * f(in + j))})
k = Segment(J, K)
u = Vector(E, J)
v = Vector(F, K)
text1: "∆x = " + j + ""
l: y(L) - y(G)
text2: "∆y = " + l + ""
H = Point({x(L), y(G)})
w = Vector(H, L)
z = Vector(G, H)
h: l / j
text3: "∆y / ∆x = " + h + ""