Plot[(∑_(n = 1)^1000) (2/((n) π)) (1 - 
                Cos[(n) π]) Sin[(n) x], {x, -2 π, 
          2  π}, PlotStyle  ->  RGBColor[1, 0, 0]];