Основы применения вычислительной техники и программирование. Беспалов В.В. - 73 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

C
0
(n+1) + C
1
Σ
x
i
+
C
2
Σ
x
i
2
+...+ C
m
Σ
x
i
m
= Σ y
i
;
;
(9.4)
ля определения коэффициентов С
i
и, следовательно, искомой за-
висим
(n+1) Σ
x
i
Σ x
i
2
... Σ
x
i
m
Σ y
i
C
0
Σ x
i
+
C
1
Σ x
i
2
+
C
2
Σ
x
i
3
+...+ C
m
Σx
i
m+1
= Σ y
i
x
i
............................................................................................
C
0
Σ x
i
m
+
C
1
Σ x
i
m+1
+
C
2
Σ x
i
m+2
+...+ C
m
Σ x
i
2m
=
Σ
y
i
x
i
.
Д
ости (9.2) необходимо вычислить суммы и решить систему урав-
нений (9.4). Матрица системы (9.4) называется матрицей Грама и явля-
ется симметричной и положительно определенной. Эти полезные свой-
ства используются при ее решении:
Σ x
i
Σ x
i
2
Σ x
i
3
... Σ x
i
m+1
Σ y
i
x
i
(9.5)
............................................................................. ................ ...
Σ x
i
m
Σ x
i
m+1
Σ x
i
m+2
... Σ x
i
2m
Σ y
i
x
i
m
Нетрудно видеть, что для формирования расширенной матрицы
Грама
9.1. Процедура заполнения расширенной матрицы Грама
рама
на язы
dure gram(n,m:integer;var a:tr);
(9.5) достаточно вычислить только элементы первой строки и
двух последних столбцов, остальные элементы не являются «ориги-
нальными» и заполняются с помощью циклического присвоения.
Реализация процедуры заполнения расширенной матрицы Г
ке Паскаль может выглядеть так:
function ct(x:real;n:integer):real;
{Функция возведения Х в целую степень n}
var i:integer;s:real;
begin
s:=1;
for i:=1 to n do s:=s*x;
ct:=s;
end;
ocepr
var i,j:integer; p,q,r,s:real;
begin
for j:=0 to m do
begin
s:=0; r:=s; q:=s;
for i:=0 to n do
begin
74

Страницы