uses MtxExpr, Math387, MtxVec, SignalUtils, MtxVecTee;

procedure TForm1.Button1Click(Sender: TObject);
var h,Response,FreqFr: Vector;
begin
    h.Size(100);
    FirImpulse(h,[40],0,ftLowpass,wtRectangular,1,200);
    Blackman(H,0.1,wmSymmetric);
    FrequencyResponse(h,nil,Response,8);
    FreqFr.Size(Response.Length);
    FreqFr.Ramp(0,200*0.5/Response.Length);
    DrawIt(FreqFr, Response);
end;

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

  void __fastcall TForm41::BitBtn1Click(TObject *Sender)
  {
      sVector h,Response,FreqFr;

      h.Length = 100;
      FirImpulse(h,OPENARRAY(double,(40)),0,ftLowpass,wtRectangular,1,200);
      Blackman(h,0.1,wmSymmetric);  //window the sinc impulse response
      FrequencyResponse(h,NULL,Response,8);

      FreqFr = Ramp(Response.Length, mvDouble, 0,200*0.5/Response.Length);
      DrawIt(FreqFr, Response,"",false);
  }