Сумма ряда

Программирование на Active Server Pages и VBScript.
baiba_89
Начинающий
Начинающий
 
Сообщения: 7
Зарегистрирован: 16.10.2006 (Пн) 8:01

Сумма ряда

Сообщение baiba_89 » 21.12.2006 (Чт) 14:33

Помогите написать программу, которая вычисляет сумму ряда, с заданной точностью 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
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 21.12.2006 (Чт) 21:25

Что, это правда что ли ASP? :-?
Изображение

baiba_89
Начинающий
Начинающий
 
Сообщения: 7
Зарегистрирован: 16.10.2006 (Пн) 8:01

это vbscript

Сообщение baiba_89 » 22.12.2006 (Пт) 4:34

это vbscript


Вернуться в ASP и VBScript

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 8

    TopList