Скачать: CL | DM;

Ряд Тэйлора   Найти похожие ветки 

← →
Lip   (2007-12-16 20:22) [0]

Написал программы для вычисления cos, а ответ неверный.
Посмотрите, пожалуйста, в чем ошибка!
 Readln(x, eps);
 c := x;
 y := x;
 n := 1;
 while (abs(c) > eps)  do
 begin
   c := -c * (sqr(x) / ((2 * n + 1) * (2 * n + 2)));
   y := y + c;
   inc(n);
   if n > max then break;
 end;

 writeln(y:0:3, " ", cos(x):0:3, " ", n);
 Readln;

   c := -c * (sqr(x) / ((2 * n + 1) * (2 * n + 2))); - здесь вычисляется новый член ряда, который потом прибавляется к cумме.
В итоге мой ряд не сходится с функцией cos.

Где ошибка?

---

← →
Zeqfreed ©   (2007-12-16 20:27) [1]

http://en.wikipedia.org/wiki/Cosine#Series_definitions

Твой код с данным рядом вообще никак не соотносится.

---

← →
palva ©   (2007-12-16 20:32) [2]

c := 1;
y := 1;
n := 0;

---

← →
Lip   (2007-12-16 20:37) [3]

> Твой код с данным рядом вообще никак не соотносится.


Это ссылка на тригонометрические функции никак не соотносится с вычислениям ряда

---

← →
Lip   (2007-12-16 20:40) [4]

> c := 1;y := 1;n := 0;


Изменил - высчитывает неверно!

---

← →
Zeqfreed ©   (2007-12-16 20:43) [5]

> Lip   (16.12.07 20:40) [4]

Странно. У меня верно.
Насчет того, что не соотносится, я погорячился. Виноват :)

---

← →
Lip   (2007-12-16 20:50) [6]

> Странно. У меня верно.


Все работает! Это я ошибся!

Всем большое спасибо!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.017 c