# Ejercicio 06.11

## Apartado a)

kill(all)$

f(x):=sin(x) - x + 1;

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

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

## Apartado b)

kill(all)$

f(x):=x^4 - 3*x^3 + 1;

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

wxplot2d([f(x)], [x, 0, 3])$

allroots( f(x), x);

## Apartado c)

kill(all)$

f(x):=x^3 - 3*x + 1;

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

wxplot2d([f(x)], [x,-2, 2])$

allroots( f(x), x );