Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Теория программирования > Алгоритмы
Перезагрузить страницу Интерполяция сплайна. Паскаль
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Ленка
Guest
 
Сообщений: n/a
По умолчанию Интерполяция сплайна. Паскаль - 27.04.2004, 23:14

Народ! Помогите, кто чем может! Очень нужна программа по интерполяции кубическим сплайном на Паскале. Хотя бы блок-схема! Спасибо за любую информацию!
Ответить с цитированием
  (#2 (permalink)) Старый
mulan
Guest
 
Сообщений: n/a
По умолчанию 06.11.2006, 14:16

Код:
Uses crt;
type massiv=array[1..20] of real;
const x:array[0..10] of real=(0,1,2,3,4,5,6,7,8,9,10);
      y:array[0..10] of real=(9.9,8.5,6.2,4.4,6.5,6.9,7.4,8.3,8.6,9.1,9.8);
var
a,b,c,d,h,k,l,r,s:massiv;
i,n:integer;
begin
Clrscr;
write('n='); read(n);
for i:=2 to n-1 do begin
k[1]:=0;l[1]:=0;
h[i-1]:=x[i-1]-x[i-2]; h[i]:=x[i]-x[i-1];
s[i]:=2*(h[i]+h[i-1]);
r[i]:=3*((y[i]-y[i-1])/h[i]-(y[i-1]-y[i-2])/h[i-1]);
k[i]:=(r[i]-h[i-1]*k[i-1])/(s[i]-h[i-1]*l[i-1]);
l[i]:=h[i]/(s[i]-h[i-1]*l[i-1]);
writeln('k[',i,']=',k[i]:2,' l[',i,']=',l[i]:2);
end;
for i:=n-2 downto 2 do begin
c[n-1]:=k[n-1];
c[i]:=k[i]-l[i]*c[i+1];
end;
for i:=1 to n-1 do begin
h[i]:=x[i]-x[i-1];
a[i]:=y[i-1];
b[i]:=(y[i]-y[i-1])/h[i]-h[i]*(2*c[i]+c[i+1])/3;
d[i]:=(c[i+1]-c[i])/3*h[i];
writeln('a[',i,']=',a[i]:2,' b[',i,']=',b[i]:2,' c[',i,']=',c[i]:2,' d[',i,']=',d[i]:2);
end;
readkey;
end.
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
паскаль и турбо паскаль Евгения Б. Вопросы начинающих программистов 2 15.07.2012 23:18
Интерполяция параболическими сплайнами Я_один_такой Алгоритмы 0 01.12.2010 20:30
Экспоненциальная интерполяция Mvssjn Алгоритмы 0 01.02.2008 22:12
Редукция сплайна / кратчайший путь с ограничениями по весу ShadrinEV Алгоритмы 2 07.06.2006 02:00
Кубическая интерполяция написание программы Дениска1800 Вопросы начинающих программистов 4 14.04.2006 22:48
Квадратичная интерполяция где найти листинг Darzen Алгоритмы 5 11.04.2006 18:34
Алгоритм сплайна в OpenGL K. Denis Программирование графики 0 26.05.2005 03:24
Интерполяция как сделать сглаживание графика Anonymous Алгоритмы 14 23.04.2005 21:10
Интерполяция функции сплайнами Anonymous Алгоритмы 4 26.12.2004 22:01
Сплайн интерполяция где найти исходник Anonymous Алгоритмы 4 03.07.2004 22:38
Интерполяция цвета по трём компонентам Anonymous Программирование графики 2 03.02.2004 16:47
Интерполяция как ее сделать Vladimir the Red Sunny Алгоритмы 13 17.09.2003 00:31



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов