Plot[{Sin[x - 2*PI/3] - Sin[x], Sin[x + 2*PI/3] - Sin [x]}, {x, -6.5, 6.5}]