grafica de un recta tangente en un punto.
Hola jntn:
Acabo de ver tu pregunta, te comento que hace tiempo hice un programa que muestra la tangente a cualquier curva polinomial en un punto de la misma, es una animación con fines didácticos así es de que si te interesa sólo la curva y su tangente omite las instrucciones desde el comentario que dice "finalmente, mostremos la animación" hasta el "end" del "while" .
%animación de la tangente a una curva polinomial
%en un punto dado de la curva.
%en nuestro caso el polinomio es p(x)=x^3-4 y el punto
%es el correspondiente a x=x1
clf
x1=a
p=[1 0 0 -4]
y1=polyval(p,x1)
%ahora obtengamos su derivada y evaluemosla en x=x1.
%
dp=polyder(p)
m=polyval(dp,x1)
%finalmente, mostramos la animación.
x=-x1-1:.1:x1+1;
a1=min(x),b1=max(x),c=polyval(p,a1),d=polyval(p,b1)
y=[]
for j=1:length(x)
y(j)=polyval(p,x(j));
end
t=(1/2)*atan(m),s=tan(t),k=2;
while abs(s-m)>0.01
ys=s*x+y1-x1*s;
hold on, grid
plot(x,ys,'g',x,y,'b',x1,y1,'xr'),grid,title('animación de la tangente a una curva')
hold on, grid, axis([a1 b1 c d])
pause
t=t+(1/2^k)*atan(m);
s=tan(t)
k=k+1
grid
end
grid
plot(x,ys,'m')
grid
clc
Saludos