plot[ {Re[x^2 - 1 + i (x^2 - 0.5)] = 0}, {Im[x^2 - 1 + i (x^2 - 0.5)] = 0} ] where {x=a+i b} for -2 <= a <= 2, -2 <= b <= 2