Interpretación geométrica de la Derivada
Author: José Luis Álvarez
Date: 31-10-06

Se trata de analizar como varía la tasa de variación media de la función f entre x (punto A) y x+h (punto B) cuando la amplitud del intervalo (h) tiende a cero.

Observa el significado de la TVM: es la pendiente de la recta secante AB (azul)
Cambia el valor de h y observa lo que ocurre cuando se acerca a cero.

h

Amplitud h del intervalo

B

A

C

+

-

No puede calcularse la TVM:
  la amplitud del intervalo 
   debe ser distinta de 0.

d = 3.9000000000000017
H = Point(xAxis)
c = -0.8999999999999992
b = -0.4999999999999998
a = 0.12000000000000001
h = 0.91 (slider from -2 to 2, step 0.02)
f(x) = (0.3 * (x - 0.32)^(3)) - (1.9 * (x - 0.32)^(2)) + (2.5 * (x - 0.32)) + 1.44
B: (x(H) + h, f(x(H) + h))
m: f'(x(H))
e: y = (m * x) - (m * x(H)) + f(x(H))
A: (x(H), f(x(H)))
g = Line(A, B)
i = OrthogonalLine(B, yAxis)
j = OrthogonalLine(A, i)
k = OrthogonalLine(A, yAxis)
l = OrthogonalLine(B, xAxis)
C = Intersect(j, xAxis)
D = Intersect(l, xAxis)
E = Intersect(k, yAxis)
F = Intersect(i, yAxis)
n = Segment(E, A)
q = Segment(A, C)
r = Segment(B, D)
s = Segment(B, F)
G = Intersect(k, l)
t = Segment(A, G)
a_1 = Segment(G, B)
o: (y(B) - y(G)) / (x(G) - x(A))
α = If(Angle[G, A, B]  <  90, Angle[G, A, B], 90 - Angle[G, A, B])
m_1 = If(h > 0, a_1 / h, m)
p: y = (m * x) - (m * x(H)) + f(x(H))
b_1: y = (m * x) - (m * x(H)) + f(x(H))
T1: "TVM \space  f[x,x+h]= \frac{ AC }{AB }=\frac{" + (LaTeX[y(B) - y(A)]) + "}{" + (LaTeX[x(B) - x(A)]) + "}"
T4: "x = " + (x(H)) + ""
T5_1: "x + h = " + (x(H)) + " + " + h + " = " + (x(H) + h) + ""
T3: "TVM f[" + (x(H)) + "," + (x(H) + h) + "] = " + (Slope[g]) + ""
texto3: "TVM f[" + (x(H) + h) + ", " + (x(H)) + "] = " + (Slope[g]) + ""
texto6: "TVM \space  f[x-h,x]= \frac{ AC }{AB }=\frac{" + (LaTeX[y(B) - y(A)]) + "}{" + (LaTeX[x(B) - x(A)]) + "}"