Plot[(Exp[x]-Floor[Exp[x]])Exp[-x/2]Cos[14x], {x, 0, 5}]