dNdx electron

Clear[q, etotal,M]
q=(3.141/137);
p[M_]=M/0.000510;
etotal[M_,x_]=q*x^1.5*Log[p[M]*(1-x)]*(x^2-2*x+2)/x;

Plot[etotal[5000,x],{x,0.0001,1.03},PlotRange->All]