RECTAS SECANTES A UNA FUNCIÓN

MOOC. UPV. Derivadas. Recta tangente, 17/28. UPV. Santiago Moll López. Segunda parte.

Mantenemos un punto fijo (Subscript[x, 0]) = 3 y variamos x en el intervalo [0, 2.99] para ver las diferentes rectas secantes a la izquierda de (Subscript[x, 0])

f[x_]=1/3 x^3 - 3/2 x^2 + 2x + 1;

Manipulate[
Show[Plot[{f[x], (f[c]-f[3])/(c-3)*x-(3*f[c]-c*f[3])/(c-3)},{x,-2,5},PlotRange->{0,6}],
Graphics[{Thick, Point[{{c,f[c]}, {3,5/2}}]}]], {c,0,2.99,0.01}]

Mantenemos un punto fijo (Subscript[x, 0]) = 3 y variamos x en el intervalo [4, 2.99] para ver las diferentes rectas secantes a la derecha de (Subscript[x, 0])

Manipulate[
Show[Plot[{f[x], (f[c]-f[3])/(c-3)*x-(3*f[c]-c*f[3])/(c-3)},{x,-2,5},PlotRange->{0,6}],
Graphics[{Thick, Point[{{c,f[c]}, {3,5/2}}]}]], {c,4,2.99,-0.01}]