Проблема помогите пожалуйста с решением.

[c3lond]

На картинке задача. Вроде бы все сделал, но при вычислении данные не совпадают. Подскажите в чем проблема пожалуйста.

Вот код :

Module Module1

    Sub Main()
        Const L = 1
        Dim xn, xk, dx As Double
        Dim n, f, sum As Double
        Dim eps As Double
        Console.WriteLine("Enter Xn: ")
        xn = Double.Parse(Console.ReadLine())
        Console.WriteLine("Enter Xk: ")
        xk = Double.Parse(Console.ReadLine())
        Console.WriteLine("Enter dx: ")
        dx = Double.Parse(Console.ReadLine())
        eps = Math.Pow(10, -4)
        Console.WriteLine("{vbNewLine}x{vbTab}f(x)")
        For index = xn To xk Step dx
            n = 1
            sum = 0
            Do While (1 / n < eps)
                sum = sum + ((Math.Pow(-1, n + 1) / n) * Math.Sin(n * Math.PI * index / L))
                n = n + 1
            Loop
            f = (3 / (5 * Math.PI)) * sum
            Console.WriteLine("{0:0.00}" + vbTab + "{1}", index, f)
            Console.ReadLine()
        Next
    End Sub

End Module

А вот само задание :