SumX2MY2(X: Array; Y: Array): Double;
X. Массив вещественных чисел;
Y. Массив вещественных чисел.
Метод SumX2MY2 возвращает сумму разностей квадратов соответствующих значений в двух массивах.
Массивы X и Y должны быть одинаковой размерности.
Функция корректно работает как с одномерными, так и с двумерными массивами.
Для выполнения примера добавьте ссылку на системную сборку MathFin.
Sub UserProc;
Var
r: Double;
X: Array[7] Of Double;
Y: Array[7] Of Double;
Begin
X[0] := 2; Y[0] := 6;
X[1] := 3; Y[0] := 5;
X[2] := 9; Y[0] := 11;
X[3] := 1; Y[0] := 7;
X[4] := 8; Y[0] := 6;
X[5] := 7; Y[0] := 4;
X[6] := 5; Y[0] := 4;
r := Math.SumX2MY2(X, Y);
Debug.WriteLine(r);
End Sub UserProc;
В результате выполнения примера в окно консоли будет выведена сумма разностей квадратов, равная «217».
См. также: