Здравствуйте!Помогите, пожалуйста, разобраться в коде программы на Delphi. Я еще новичек и не очень хорошо понял принцип работы с массивами. Если кому не трудно, напишите пожалуйста объяснение к каждой строке.
Код:
d:real; //d=|R|определитель матрицы R
r: array of array of real; //корреляционная матрица R=х*х(транспонированая)
x: array of array of real; //матрица стандартизированных векторов
//нахождение корреляционной матрицы R
for t:=0 to m-1 do
for i:=0 to m-1 do
if t<>j then
for j:=0 to n-1 do begin
r[t, i]:=r[t, i]+x[j, t]*x[j, i];
StringGrid5.Cells[i, t]:=floattostr(r[t, i]);
end;
//нахождение определителя матрицы R
for t:=0 to m-1 do
for i:=t+1 to m-1 do begin
a:=r[i, t];
for j:=t to m-1 do
r[i, j]:=r[i,j]-a*(r[t, j]/r[t, t]);
end;
d:=1;
for i:=0 to m-1 do
d:=d*r[i, i];
Admin: Пользуемся тегами!