Idea gráfica de derivada a una función en un punto

Mueve los puntos A y B y observa

Para modificar el valor de cada parámetro, 

desliza los puntos verdes o bien pulsa + o - tras 

seleccionar el parámetro en la ventana de la izquierda 

a = Point(xAxis)
f(x) = -(x - 2)³ / 50 + (x - 2)² / 6 + 4
A: (x(a), f(x(a)))
l = OrthogonalLine(A, yAxis)
B = Intersect(f, l, 3)
b: (x(B), 0)
c_1 = Segment(a, b)
c = Point(c_1)
C: (x(c), f(x(c)))
d = Segment(A, B)
e = Tangent(C, f)
g = Segment(A, a)
h = Segment(C, c)
D = Intersect(e, g)
i = Segment(B, b)
E = Intersect(e, i)
k = Segment(D, E)
F = Intersect(l, i)
T5: "f ' (c) = f ' (" + (x(c)) + ") = " + (f'(x(c)))
dis: abs(sgn(f'(x(c))))
T7: "f'(c) = " + (f'(x(c)))
Intersect(xAxis, c_1)
j = Ray(a, A)
m = Ray(b, B)
G = Intersect(j, e)
H = Intersect(m, e)
n = Segment(G, H)