Plot[Re[(-5/(2I*pi*x)) + (31/(120*pi*pi*x*x)) - ((1/(4*pi*pi*x*x))*(0.7*Exp[20*I*pi*x] + (1/3) * Exp[-12*pi*I*x]))],
{x, -0.7, 0.7}, PlotRange -> Full]
Не совсем передал синтаксис, там pi - как пи записано в математике, ибо есть калькулятор с которого выражение набирается и стрелочка не двусимвольная, а именно символом стрелочки.