Модуль: Math

Описание
Функция вычисляет статистическую дисперсию равную сумме квадратов разницы между каждым конкретным значением массива Data и средним значением, т.е дисперсия =
(Data[0]-Mean)² + (Data[1]-Mean)² + ... + (Data[n-1]-Mean)²,
где n - количество элементов массива Data,
Mean - среднее арифметическое всех значений массива.

Пример
var
   Mas: array of Double;
   I: Byte;
   V: Extended;
begin
  ...
   SetLength(Mas, 5);
   for i:= 0 to 4 do Mas[i]:= i;
   V:= TotalVariance(Mas);       { V:= 10 }
  ...
end;