Как внести иннерционность в измерение? Опции

[hwdev]

Есть измерительная система, измеряемый параметр имеет свойство "дрожать" около динамически меняющейся средней точки. Т.е. например значение параметра начинает нарастать, но нарастание это происходит "шаг вперед и 2 назад, потом наоборот". Или остановится около какого-то значения и давай болтаться.

Я хочу внести инерционность с некой регулируемой постоянной времени, чтобы настроить, как мне нужно. Дайте, пожалуйста, ссылку на теорию с примерами или сюда напишите готовый код.

Спасибо!

[Dog Pawlowa]

или сюда напишите готовый код.

Паскаль устроит?

Код

Function TempQuick(mVolt,K:integer):integer;

var LI:longint;
    Temp1:integer;
begin
//рассчитали
  Temp1:=....

//положили в буфер
  TempBuf[TempBufIndex]:=Temp1;

//изменили индекс
  Inc(TempBufIndex);
  If TempBufIndex>TempBufSize then
    begin
      TempBufIndex:=1;
      TempBufReady:=True;
    end;
//сложили буфер
  LI:=0;
  If TempBufReady then  EndIndex:=tempBufSize
                  else  EndIndex:=TempBufIndex-1;
  FOr MyBufIndex:=1 to EndIndex DO  LI:=LI + TempBuf[MyBufIndex];
  If LI<0 then LI:=0;
//поделили на количество элементов
  LI:=LI div EndIndex;
//вернули
  TempQuick:=Integer(LI);
end;