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);
    Bartlett(H);  //window the sinc impulse response
    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 TForm1::BitBtn1Click(TObject *Sender)
{
    sVector h,Response,FreqFr;

    h.Length = 100;
    FirImpulse(h,OPENARRAY(double,(40)),0,ftLowpass,wtRectangular,1,200);
    Bartlett(h);  //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);
}