ВУЗ:
Составители:
Рубрика:
p:=ct(x[i],j); s:=s+p;
r:=r+p*y[i];
q:=q+p*ct(x[i],m);
end;
a[0,j]:=s; a[j,m+1]:=r; a[j,m]:=q;
for i:=1 to m do
– расширенная матрица Грама, – исходные
лее можно переходить к решению этой системы уравнений. Для
решен
иенты С
0
, С
1
,
..., С
m
2
x
2
+...+C
m
x
m
.
Для проверки н в найденную функ-
цию и
значений полинома:
0 to m do s:=s+c[i]*ct(x,i);
9.2. Алгоритм решения задачи
Весь алгоритм едующим образом.
чек;
точки. Смотрите примеры 7.1 и 7.2.
end;
for j:=0 to m-1 do a[i,j]:=a[i-1,j+1];
0]:=n+1; a[0,
end;
где a[i,j] x[i],y[i]
точки,
n – число исходных точек, m – степень полинома.
аД
ия систем уравнений с матрицей Грама разработаны методы син-
гулярного разложения. Если же
m < 5, то такие системы можно решать
и более простым методом исключения Гаусса (см. выше).
После решения системы мы нашли искомые коэффиц
аппроксимирующей функции
f(x)=C
0
+
C
1
x
+
C
ужно подставить данные
x[i]
сравнить значения с заданными
y[i], а также вычислить отно-
сительную погрешность для этих точек.
Можно составить функцию
F1 для вычисления
func
var i:integer; s:real;
tion F1(x:real; m:integer):real;
begi
s:=0;
n
for i:=
F1:=s;
end;
решения задачи будет выглядеть сл
1.
Ввод исходных данных:
•
n – число заданных то
•
m – степень полинома;
•
x[i],y[i] – заданные
2.
Формирование расширенной матрицы Грама a[m,m+1].
3.
Решение системы нормальных уравнений.
75
Страницы
- « первая
- ‹ предыдущая
- …
- 72
- 73
- 74
- 75
- 76
- …
- следующая ›
- последняя »
