{Derivatives and average routines)
author: Nikolai Shokhirev http://www.shokhirev.com/nikolai.html
created:  2002.06.06
lastmod:  2003.07.16
ŠNikolai V. Shokhirev, 2002-2003 }
unit uAverage;

interface
uses
  uMatTypes, uArrays;

  { two-point derivative: Ain[i+1]-Ain[i])/h }
  procedure deriv2(const Ain, Aout: IVector; h: TFloat = 1.0);
  { tree-point derivative: Ain[i+1]-Ain[i])/h }
  procedure deriv3(const Ain, Aout: IVector; h: TFloat = 1.0);
  { 5-point average. Ain can be equal to Aout }
  procedure Avg5(const Ain, Aout: IVector);
  { 5-point average derivative. Ain can be equal to Aout }
  procedure Avg5d(const Ain, Aout: IVector; h: TFloat = 1.0);
  { 5-point average the second derivative. Ain can be equal to Aout }
  procedure Avg5d2(const Ain, Aout: IVector; h: TFloat = 1.0);

  procedure Sharpen(const Ain, Aout: IVector);

implementation

uses
  math;

end.

Generated by Lore's Source to HTML Converter(http://www.newty.de/lsc/index.html)