Блок схема
Рис.1. Алгоритм обчислення коефіцієнтів кубічного сплайна
Процедура обчислення коефіцієнтів кубічного сплайна
Процедура обчислення коефiцiєнтiв кубiчного сплайна:
s[i](x)=a[i]+b[i]*(x-Xe[i])+c[i]/2*(x-Xe[i])^2 +d[i]/6*(x-Xe[i])^3
Procedure CubSpln(Xe,Ye: Vector; Ne: Integer; Var a, b,
c, d: Vec);
Type Matrix = Array[1..51,1..51] of Real;
Var h, Y : Vec;
Ma : Matrix;
i, j : Integer;
R, Q : Real;
{$I Progonka.pas}
Begin
Ne := Ne - 1;
{Формування вектора рiзниць h i коефiцiєнтiв a[i] сплайна}
For i := 1 to Ne do
Begin
h[i] := Xe[i] - Xe[i - 1];
a[i] := Ye[i]
End;
{Формування СЛАР з тридіагональною матрицею Ma i вектором правої частини системи Y для обчислення коефiцiєнтiв с[i] сплайна}
For i := 1 toNe - 1 do
For j := 1 toNe - 1 do
If i=j then
Begin
R := h[i]; Q :=h[i + 1];
Ma[i, i] := 2 * (R + Q);
Y[i] := 6*((Ye[i+1]-Ye[i])/Q-(Ye[i]-Ye[i-1])/R)
End Else
Begin
Q := h[i + 1];
Ma[j, i] := 0;
Ma[i + 1, i] := Q;
Ma[i, i + 1] := Q
End;
Progonka(Ma, Y, Ne-1, c); {Розв’язання СЛАР методом прогонки}
c[0] := 0; c[Ne] := 0;
For i:=1 toNe do{Обчислення коефiцiєнтiвd[i] i b[i]}
Begin
R := h[i];
d[i] := (c[i] - c[i-1]) / R;
b[i] := R*c[i]/2 - Sqr(R)*d[i]/6+(Ye[i] - Ye[i-1])/R
End
End;
Читайте також: - IV. Загальна схема поточного і підсумкового контролю та оцінювання знань студентів
- А). Схема с подвижным электродом-инструментом
- Баланс та загальна схема грунтоутворення
- Блок-схема алгоритму.
- Блок-схема виконання курсової роботи
- Блок-схема відбору лікарських засобів для
- Блок-схема імітаційної моделі керування запасами
- Блок-схема Програма
- Блок-схема табулювання кубічного сплайну
- Види засобів КЗІ залежно від способу їхньої реалізації, їх характеристика. Типова загальна схема шифратору
- Геометрична схема й основні частини теодоліта
Не знайшли потрібну інформацію? Скористайтесь пошуком google:
|
|