Ряд Тэйлора

← →
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;

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

> Lip (16.12.07 20:40) [4]

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

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

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

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

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

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