Approximation of a smooth-everywhere, but nowhere-analytic function. Generated using Mathematica: f := Sum] Cosx, {n, 0, 500}]; Plot, {x, -\, \}, PlotRange -> {-0.5, 1}, PlotStyle -> Thick]