Plot[abs[log[x]],{x,0,10}