ContourPlot[ Sin[x] Cos[5 x] == Sin[a x] Cos[3 x], {a, -2 Pi, 2 Pi}, {x, 0, 10}]