# Tema 6
06-5  Propietats de les funcions contínues.
          Aplicacions

kill(all)$

f(x):=exp(-x)-x;        Eq1:f(x)=0;     
solve([Eq01], [x]);

wxplot2d([f(x)], [x,-3,3], [ylabel, ""]  , [style, [lines, 2]],  [gnuplot_preamble, "set grid;"] )$

wxplot2d([f(x)], [x,0,1], [ylabel, ""] , [style, [lines, 2]],   [gnuplot_preamble, "set grid;"] )$

find_root(Eq1, x, 0, 2);

find_root(f(x), x, 0, 2);

g(x):=x^2*sin(1/x);         Eq2:g(x)=0;
find_root(Eq2, x, 0.05, 0.2);

find_root(Eq2, x, 0.1, 0.2);

find_root(Eq2, x, 0.14, 0.2);

wxplot2d([g(x)], [x,0.05,0.2],  [ylabel, ""] , [style, [lines, 2]],   [gnuplot_preamble, "set grid;"] )$