Plot[Sin[5 x] + 0.01Sin[5000 x] +0.01Sin[3000 x], {x, -3, 3}]