Откуда расхождение в графиках

float Y(float x)
{
        return (1 + x*x)/2 * atan(x) - x/2;
}
//---------------------------------------------------------------------------
float S(float x)
{
        float sum = 0, cur = -x;
        for (int k = 1; k <= 10; k++)
        {
                cur = -cur*x*x;
                sum += cur/(4*k*k - 1);
        }
        return sum;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::butMakeClick(TObject *Sender)
{
        chart1->Series[0]->Clear();
        chart2->Series[0]->Clear();
        float a = StrToFloat(editA->Text),
                b = StrToFloat(editB->Text),
                h = StrToFloat(editH->Text);
        for (float x = a; x <= b; x += h)
        {
                chart1->Series[0]->AddXY(x, Y(x));
                chart2->Series[0]->AddXY(x, S(x));
        }
}

float Y(float x)
{
        return (1 + x*x)/2 * atan(x) - x/2;
}
//---------------------------------------------------------------------------
float S(float x)
{
        float sum = 0;
        for (int k = 1; k <= 10; k++)
        {
                sum += pow(-1, k+1)*pow(x, 2*k+1)/(4*k*k-1);
        }
        return sum;
}