uses MtxExpr, Math387, MtxVec, SignalUtils, MtxVecTee, MtxVecEdit,OptimalFir;

  procedure TForm1.Button1Click(Sender: TObject);
  var b,c: Vector;
  begin
      b.Size(300);

      b.SetSubRange(0,150);
      b.Ramp(0,1);
      b.SetSubRange(150,150);
      b.Ramp(150,-1);            //creates a triangle

      b.SetFullRange;
      MedianFilter(b,c,9);
      MedianFilter(b,9); //Alternative (in-place)
      if not b.Equal(c) then ERaise('Not equal');
  end;

  #include "MtxExpr.hpp"
  #include "MtxVecEdit.hpp"
  #include "MtxVecTee.hpp"
  #include "SignalUtils.hpp"
  #include "OptimalFir.hpp"
  #include <string.h>

  void __fastcall TForm1::BitBtn1Click(TObject *Sender)
  {
      sVector b,c;

      b.Size(300);
       //creates a triangle:
      b(0,149).Ramp(0,1);
      b(150,299).Ramp(150,-1);
      DrawIt(b);

      MedianFilter(b,c,9);
      MedianFilter(b,9); //Alternative (in-place)
      if (!(b.Equal(c))) throw "Not equal";
  }