Студопедия
Новини освіти і науки:
МАРК РЕГНЕРУС ДОСЛІДЖЕННЯ: Наскільки відрізняються діти, які виросли в одностатевих союзах


РЕЗОЛЮЦІЯ: Громадського обговорення навчальної програми статевого виховання


ЧОМУ ФОНД ОЛЕНИ ПІНЧУК І МОЗ УКРАЇНИ ПРОПАГУЮТЬ "СЕКСУАЛЬНІ УРОКИ"


ЕКЗИСТЕНЦІЙНО-ПСИХОЛОГІЧНІ ОСНОВИ ПОРУШЕННЯ СТАТЕВОЇ ІДЕНТИЧНОСТІ ПІДЛІТКІВ


Батьківський, громадянський рух в Україні закликає МОН зупинити тотальну сексуалізацію дітей і підлітків


Відкрите звернення Міністру освіти й науки України - Гриневич Лілії Михайлівні


Представництво українського жіноцтва в ООН: низький рівень культури спілкування в соціальних мережах


Гендерна антидискримінаційна експертиза може зробити нас моральними рабами


ЛІВИЙ МАРКСИЗМ У НОВИХ ПІДРУЧНИКАХ ДЛЯ ШКОЛЯРІВ


ВІДКРИТА ЗАЯВА на підтримку позиції Ганни Турчинової та права кожної людини на свободу думки, світогляду та вираження поглядів



Блок схема

 

Рис.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;


Читайте також:

  1. IV. Загальна схема поточного і підсумкового контролю та оцінювання знань студентів
  2. А). Схема с подвижным электродом-инструментом
  3. Баланс та загальна схема грунтоутворення
  4. Блок-схема алгоритму.
  5. Блок-схема виконання курсової роботи
  6. Блок-схема відбору лікарських засобів для
  7. Блок-схема імітаційної моделі керування запасами
  8. Блок-схема Програма
  9. Блок-схема табулювання кубічного сплайну
  10. Види засобів КЗІ залежно від способу їхньої реалізації, їх характеристика. Типова загальна схема шифратору
  11. Геометрична схема й основні частини теодоліта




Переглядів: 821

<== попередня сторінка | наступна сторінка ==>
Інтерполяційний кубічний сплайн | Блок-схема табулювання кубічного сплайну

Не знайшли потрібну інформацію? Скористайтесь пошуком google:

  

© studopedia.com.ua При використанні або копіюванні матеріалів пряме посилання на сайт обов'язкове.


Генерація сторінки за: 0.013 сек.