# Ejercicio 08.2

kill(all)$

'f1(x):=x^4+2*x^2-x-1;

'(x^4+2*x^2-x-1)=0;

'limit(f1(x), x, inf)=limit(f1(x), x, inf);

'limit(f1(x), x, minf)=limit(f1(x), x, minf);

'f1(0)=f1(0);

'f1(1)=f1(1);

'f1(2)=f1(2);

'f1(-1)=f1(-1);

find_root(f1, x, 0, 1);

wxplot2d([f1], [x,-5,5])$

wxplot2d([f1], [x,-1,0])$

find_root(f1, x, -1, 0);

wxplot2d([f1], [x,-1,2])$

find_root(f1, x, 0.5, 1.5);