Plot[{Sqrt[d^2/2 - 1/4]-1/2, -Sqrt[d^2/2 - 1/4]-1/2},{d,-2,2}]