Еще раз со всем разобрался
Задаем нужную точность
Код:
Eps_tek:=StrToFloat(Edit6.text);
После вычисления нового значения экстрполируемой функции сравниваем его с предыдущим и получаем погрешность.
Код:
Eps_pol:=Abs((F_up-F_down)/F_up
Вопрос вот с этой строкой
Код:
Until (eps_tek<eps_pol) or (m+1>n);
Если меняем < на > то программа выключается раньше, но правильно выдалет погрешность.
Если оставляем как есть то опять считает полное число циклов и как то странно рассчитываат погрешность - см график который выдается при исследовательской части.
Последня версия
http://ifolder.ru/6417962
( торчок.нет временно не работает)