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 

Mueve el punto P

f(x) = (x - 4)^(2) / 6 + 3
P = Point(f)
b = Tangent(P, f)
c = OrthogonalLine(P, yAxis)
T5: "f'(P)=  " + (Slope[b]) + " > 0  : f es creciente en x = " + (x(P))
a = 3
d = Circle(P, a)
B, C = Intersect(d, b)
e = Segment(B, C)
T2: "f'(P)= 0  : f tiene un posible máximo o mínimo en x = " + (x(P))
T6: "f'(P)=  " + (Slope[b]) + " < 0  : f es decreciente en x = " + (x(P))
g = Segment(P, (x(P), 0))