- ...New UUEss... --------------------------------------------------- UUESTUFF -
From : Marina Taranova 2:5063/51.3 9 Feb 98
Subj : Интерполяция по методу Эткена
--------------------------------------------------------------------------------
Привет, Fedya!
В четверг января 29 1998 23:58, Fedya Mosalov написал(а) для Nicolas Strochkov:
>> как нарисовать линию по трем точкам?
NS>> посмотpи yчебник по Численным методам на темы интеpполиpование,
NS>> интеpполиpование сплайнами.
>
> Спасибо, конечно, за совет. Я обязательно посмотpю yчебник. :-)
> Hо нет ли на этy темy каких-либо исходников?
Hу у меня есть прога по интерполированию методом "схема Эткена",
когда-то делала для численных методов, лови:
С уважением, Marina.
---
* Origin: Сегодня все будут учиться плавать. - боцман Borland (2:5063/51.3)
{> Cut here. FileName= READ_ME.TXT }
Это рабочая прога по интерполяции методом "схема Эткена"
Подробности метода смотри в книжках, он основан на вычислении различных
определителей.
Тк прога без коментариев, то немного раз'ясню, где и что.
Прога из задаваемого файла считывает данные: первая строчка пропускается
(это информационная строка), далее в каждой строке узлы интерполяции:
значение x и соответственно f(x), кол-во узлов интерполяции ограничено лишь
размерами доступной памяти(в качестве примера 2_st_x {y=2^x} и fcos {y=cos(x)})
Данные загоняются в динамический массив xx, при помощи
function x(n,i:byte):real; можно вытащить любой из них
n-index (0..nn - глобальная переменная, определяемая при окончании
считывания файла),i=0/1 <=> x/y ) }
В проге сам метод это function l (n1,n2:byte;xx:real):real;
{название из одной буквы для простоты} это рекурсивная функция, значение
структурированного определителя от n1 до n2 индекса, xx - точка в которой
вычисляется значение интерполяционного многочлена.
Все остальное, это примочки, если нужно будет что-то об'яснить, ждем
Marina.
|