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