| И в библиотеке бывают рекламные паузы. |
С помощью процедуры суммируется n слагаемых рядов Фурье:
Вычисление значений cos(rw) и sin(rw) производится на основании рекурентных соотношений:
t0=0; t1=1; tr=sin(rw)/sin(w)=2 cos(wtr-1)- tr-2 (r > 1); sin(rw)=tr sin(w); cos(rw)=tr+1 - trcos(w).
Из этих выражений получим
Функция находит сумму ряда
с помощью преобразования Эйлера. Суммирование производится до тех пор, пока t1 раз подряд абсолютные значение слагаемых преобразованного ряда будут меньше чем e, где е - погрешность суммирования.