Проблема с отображением графика в Mathematica 10.2

[4e4akoo]

Доброго времени суток!
Столкнулся с такой проблемой: есть программка Plot[Abs[IntegerPart[x + 0.5] - x] + Abs[IntegerPart[10*x + 0.5] - 10*x]/10, {x, 0, 1}, ImageSize -> {750, 500}] . Функция простая, но в окрестности точки 0.5 график не рисуется. Совсем. Причём если убрать /10 во втором слагаемом, то рисуется, конечно, уже другая функция, но зато на всей области определения [0, 1]. Пробовал запихивать это деление под модуль - результат тот же. Подскажите, пожалуйста, почему такая проблема возникает и как её исправить?

[Pphantom]

Во-первых, код лучше выделять как минимум моноширинным шрифтом:
Plot[Abs[IntegerPart[x + 0.5] - x] + Abs[IntegerPart[10*x + 0.5] - 10*x]/10, {x, 0, 1}, ImageSize -> {750, 500}]

Во-вторых, в 11.1 все рисуется, так что это какая-то локальная проблема данной версии.

[4e4akoo]

Спасибо, попробую на 11.

[4e4akoo]

Скачал 11.2, попробовал: проблема с графиком той функции действительно исчезла. Но теперь проблема появляется при n = 3:
Plot[Abs[IntegerPart[x + 0.5] - x] + Abs[IntegerPart[10*x + 0.5] - 10*x]/10 + Abs[IntegerPart[10^2*x + 0.5] - 10^2*x]/10^2 + Abs[IntegerPart[10^3*x + 0.5] - 10^3*x]/10^3, {x, 0, 1}, ImageSize -> {750, 500}, PlotRange -> {{0, 1}, {0, 0.51}}] . Глобально я хочу построить пример Ван Дер Вардена непрерывной, но нигде не дифференцируемой функции. Приближаю бесконечную сумму, например, 50 членами:
Plot[Sum[Abs[IntegerPart[10^n*x + 0.5] - 10^n*x]/10^n, {n, 0, 50}], {x, 0, 1}] . Но возникает куча мест, где график просто не рисуется. Проблема та же, что и при 3 слагаемых. И непонятно, в чём причина этого. Подскажите, пожалуйста.