Проинтегрировать массив

[DenProx]

Доброго времени суток! Подскажите пожалуйста, как можно проинтегрировать массив, типа:

myarray: array[1..10003] of Integer;

Это массив оцифрованных данных от прибора, необходимо его проинтегрировать. Но как, я пока не знаю ... обычный способ интегрирования, как я понимаю, тут не подходит.

[Аватар]

в цикле суммируй произведение каждого элемента массива на некое число, соответствующее выбранному приращению. Это и есть обычный простейший способ численного интегрирования. Можно не каждую, а среднее значение между двумя соседними, типа метода трапеции если не вру

[DenProx]

Ну вот к примеру, мне нужно такой интеграл запрограммировать, для интегрирования полученного сигнала:

qq.jpg

Где I и U - это два разных массива.

Я нашел вот такой пример интегрирования, методом Симпсона:

type
  TDoubleFunc = function(X: Double): Double;
 
function Integral(A, B, Eps: Double; F: TDoubleFunc): Double;
 
  function InternalCalc(A, B: Double; F: TDoubleFunc; N: Integer): Double;
  var
    x, dx: Double;
    i: Integer;
  begin
    dx := (B - A) / N;
    Result := 0;
    x := A;
    for i := 1 to N do
    begin
      Result := Result + dx * (F(x) + 4 * F(x + dx / 2) + F(x + dx)) / 6;
      x := x + dx;
    end;
  end;
 
var
  N: Integer;
  Prev: Double;
begin
  Result := InternalCalc(A, B, F, 4);
  N := 4;
  repeat
    Prev := Result;
    N := N shl 1;
    Result := InternalCalc(A, B, F, N);
  until (Result = 0) or (Abs((Result - Prev) / Result) < Eps);
end;
 
function F(X: double): double;
begin
  Result := X*X*X;
end;

Как изменить подинтегральную функцию, чтобы можно было выполнить интегрирование массива ?