Plot[Arccos[Abs[x]- 1],{x,-2,2}]