plot[cos[x + (-x/4 + (4/3) sin(3x/4) + 1/6 * sin(3x/2))], {x, -8, 8}]