3.7 Блок-схема табулювання кубічного сплайну
Рис. 2 Алгоритм формування і табулювання кубічного сплайна
3.8 Процедура табулювання кубiчногосплайна
Procedure Spline(Xe, Ye : Vector; Ne, Ngr : Integer; Var
Xg, Yg : Vector);
Var a, b, c, d : Vec;
h, R : Real;
i, j, L : Integer;
{$I CubSpln.pas}
Begin
CubSpln(Xe, Ye, Ne, a, b, c, d);
L := 1;
h := (bl - al) / Ngr;
Xg[0]:= al;
For i := 0 toNgr - 1 do
Begin
YG[i] := a[L] + b[L] * (Xg[i] - Xe[L])+ c[L] *
Sqr(Xg[i] – Xe[L])/2 + d[L]*Sqr(Xg[i] - Xe[L])*(Xg[i] - Xe[L])/6;
Xg[i + 1] := Xg[i] + h;
If Xg[i] > Xe [L] then L := L + 1
End
END;
Підсумок.
Отже, ми сьогодні вивчили матеріал на тему «Інтерполювання сплайнами». Основні поняття які ви маєте засвоїти з лекції це що таке сплайн, інтерполяційний кубічний сплайн, рівняння для визначення коефіцієнтів кубічного сплайну. Детальніше цей матеріал можете прочитати у книжках рекомендованої літератури.
Відповіді на запитання студентів
Відповіді на питання студентів, що виникли під час лекції.
Заключна частина (коротке повідомлення про тему, що висвітлюватиметься на наступній парі, подяка студентам за увагу).