ContourPlot[y == 2 x Sin[x] Cos[y], {x, -10, 10}, {y, -10, 10}]