Plot[Sin[x+0.4Sin[x]],{x,0,10}]