% Este programa calcula los ceros de una ecuación no lineal 
% graficando la intersección de la curva en intervalos cada 
% vez más pequeños. De esta manera se obtiene una buena aproximación.

clear, clf
x=0.0:0.0001:2;
y=x.*sin(x.^(-1))-0.2*exp(-x);
plot(x,y);
xlabel('x');
ylabel('x.*sin(x.^(-1))-0.2*exp(-x)'),grid
input('La grafica de la ecuacion no lineal esta en el editor.')