Задачка на фортране, где тут мб ошибка?

Question

[Антон]

Решаю задачу на фортране, уже все перепробовал, но ответ не сходится. Скоро дедлайн уже, прошу хотя бы подсказать в чем ошибка.
Вывести на экран таблицу значений функции Y (правый столбец с арктангенсом) и ее разложения в ряд S(x), из параметров этого варианта n=120, интервал [a,b]=[0.1,1] шаг h=0.1. Суть в том, что разложение S и функция У при равном Х должны совпадать.
Вот ссылка на код

Answer 1

[jcmvbkbc]

s=0
    p=1
    do i=1, n
        p=p*((x**(2*i+1))/(4*(i**2)-1))
        s=s+p
    end do

ошибка в вычислении p: во-первых не нужно умножать очередное значение на предыдущее, а во-вторых ряд в задании знакопеременный, а у тебя -- нет.
Поправленный код.

Comments

[Антон]

Умножение р - это уже экспериментирование было, когда все перепробовал. Как уже написал выше, моя ошибка была в том, что забыл -1 в скобки. Но в любом случае спасибо за помощь)

Answer 2

[15432]

Зачем вы p меняете на каждом шаге? Напишите точно как на формуле в скриншоте:
p=((-1)**(i+1))*((x**(2*i+1))/(4*(i**2)-1))

Comments

[Антон]

Писал так тоже, оказывается забыл -1 в скобки взять, не думал, что из-за этого будет результат отличаться.
Спасибо за помощь.