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 

f(x) = x^(3) / 18 - x^(2) / 4 + 4
A = Point(f)
B = Point(f)
a = Line(A, B)
b = Tangent(A, f)
c = OrthogonalLine(A, yAxis)
d = OrthogonalLine(B, xAxis)
C = Intersect(d, c)
P, Δy, Δx, c_1 = Polygon(B, C, A)
T2: "TVM = pendiente de la secante = Δy / Δx = " + (Δy / Δx)
T5: "TVI = pendiente de la r. tangente = " + (Slope[b])
D = Midpoint(B, C)
T6: "Δy = " + (y(B) - y(C))
E = Midpoint(C, A)
T7: "Δx = " + (x(C) - x(A))
F: (x(A), 0)
G: (x(B), 0)
e = Segment(A, F)
g = Segment(B, G)
H: (0, y(A))
I: (0, y(B))
h = Segment(I, B)
i = Segment(H, A)