Нахождение конечной суммы ряда

[Su-34]

Ребята помогите пожалуйста, нужна помощь. Дана формула ряда:
формула.jpg
Надо составить программу на Фортране.
У меня есть пример выполнения:
Дается формула S=a1+a2+...+an+...
Путем преобразований (которые я не до конца понимаю) получили:
a(n+1)=-(an*4*x^2)/(2*n+1)*(2n+2)
a1=-(2*x)^2/2=2*x^2

И вот программа:
program lab3
eps=0.0001
print*,'x=?';read*,x
a=2*x**2;n=1
S=a
do
a=-(4*x**2)/(2*n+1)/(2*n+2)*a
if(abs(a)<eps) exit
S=S+a
n=n+1
end do
print*,'S=',S
end

Но как на моём примере получить эти два данных?

[Mandrivnyk]

Алгебра, школьный курс.
пишешь формулу для n и для n-1. Потом делишь первую на вторую. Получаешь коэффициент для следующего члена ряда.