# Exercici 08.3

kill(all)$

f(x):=x^2 - 18*log(x) ;

f(1);       f(%e), numer;

wxplot2d([f(x)], [x, 1, %e])$

find_root(f(x), x, 1, %e);