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

procedure TForm1.Button1Click(Sender: TObject);
var h,h1,Re,Im: Vector;
begin
      h := Sin(Ramp(256, mvDouble,0,2*Pi*6/256));
      SignalUtils.Hilbert(h);
      h.CplxToReal(Re,Im);
      DrawIt([Re,Im],['Real','Imag'],'Integer frequency');
      h1.SetIt(false,[Re.DotProd(Im)]);
      ViewValues(h1,'Dot product between Re and Im',True);

      h := Sin(Ramp(256, mvDouble,0,2*Pi*6.5/256));
      SignalUtils.Hilbert(h);
      h.CplxToReal(Re,Im);
      DrawIt([Re,Im],['Real','Imag'],'Non-integer frequency');
      h1.SetIt(false,[Re.DotProd(Im)]);
      ViewValues(h1,'Dot product between Re and Im',True);

      h := Sin(Ramp(256, mvDouble,0,2*Pi*6.5/256));
      Re.Copy(h);
      Im.Copy(h);
      KaiserImpulse(h1,[0.95,1],0.01,ftHilbertIII);
      //Or use remez:    RemezImpulse(h1,[0.05,0.95],0.01,ftHilbertIII);
      FirFilter(Im,h1);  //also compensates for integer filter delay (if filter is Odd length (type III))
      DrawIt([Re,Im],['Real ','Imag'],'With FIR filter');
      h1.SetIt(false,[Re.DotProd(Im)]);  //dot product between Re and Im should be zero
      ViewValues(h1,'Dot product between Re and Im',True);
end;

    #include "MtxExpr.hpp"
  #include "MtxVecEdit.hpp"
  #include "MtxVecTee.hpp"
  #include "SignalUtils.hpp"

  void __fastcall TForm1::BitBtn1Click(TObject *Sender)
  {
      sVector h,h1, Re, Im;

      h = Sin(Ramp(256, mvDouble,0,2*PI*6/256));
      Signalutils::Hilbert(h);
      h.CplxToReal(Re,Im);
      DrawIt(OPENARRAY(TVec*,(Re, Im)), OPENARRAY(AnsiString,("Real","Imag")),"Integer frequency");
      h1.SetIt(false,OPENARRAY(double,(Re.DotProd(Im))) );
      ViewValues(h1,"Dot product between Re and Im",True);

      h = Sin(Ramp(256, mvDouble,0,2*PI*6.5/256));
      Signalutils::Hilbert(h);
      h.CplxToReal(Re,Im);
      DrawIt(OPENARRAY(TVec*,(Re,Im)), OPENARRAY(AnsiString,("Real","Imag")),"Non-Integer frequency");
      h1.SetIt(false,OPENARRAY(double,(Re.DotProd(Im))));
      ViewValues(h1,"Dot product between Re and Im",True);

      h = Sin(Ramp(256, mvDouble,0,2*PI*6.5/256));
      Re.Copy(h);
      Im.Copy(h);
      KaiserImpulse(h1,OPENARRAY(double,(0.95,1)),0.01,ftHilbertIII);
      //Or use remez:    RemezImpulse(h1,OPENARRAY(double,(0.05,0.95)),0.01,ftHilbertIII);
      FirFilter(Im,h1);  //also compensates for integer filter delay (if filter is Odd length (type III))
      DrawIt(OPENARRAY(TVec*,(Re,Im)), OPENARRAY(AnsiString,("Real","Imag")),"FIR Filter");
      h1.SetIt(false,OPENARRAY(double,(Re.DotProd(Im))));  //dot product between Re and Im should be zero
      ViewValues(h1,"Dot product between Re and Im",True);
  }