edición general
  1. f[x_]:=Sqrt[(1-(Abs[x]-1)2)]
    g[x_]:=ArcCos [(1-Abs[x])]-Pi
    Plot[{f[x],g[x]},{x,-Pi,Pi}]
  1. @crafton no me gusta la forma de esta función :-S

menéame