Сумма ряда

[baiba_89]

Помогите написать программу, которая вычисляет сумму ряда, с заданной точностью EPS. Сам ряд вот: 3*x^2/4! - 5*x^4/6! + 7*x^6/8! - 9*x^8/10! + ...... +/- (2*i+1)*x^2*i/(2*i+2)! (В знаменателях факториал) И вычисление нужно сверять с контрольной формулой: 1-cos(x)-x*sin(x)/x*x + 1/2 . Я сам скрипт написал, но сумма ряда не сходится с формулой. Помогите исправить ошибку, а то я уже не могу, я все перепробывал, но ничего не получается. Заранее спасибо!!! Вот листинг скрипта:
dim s,x,EPS,p,i,s2
EPS=CDbl(txtEPS.value)
x=CDbl(txtX.Value)
p=(3*x*x)/(1*2*3*4)
s=p
i=1
do while Abs(p)>=EPS
i=i+1
p=(p*x*x*(2*i+3)*((-1)^(i+1)))/((2*i+1)*(2*i+2))
s=s+p
Loop
s2=(1-cos(x)-x*sin(x))/(x*x)+(1/2)

[tyomitch]

Что, это правда что ли ASP?

[baiba_89]

это vbscript