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

  procedure TForm1.Button1Click(Sender: TObject);
  var b,c,Response1, Response2: Vector;
  begin
      Tone(b, 256,6/256,0,1);
      b := b + 4; //generate 6 periods within 256 samples, Phase = 0, Amplt = 1
      c.Copy(b);
      RemoveDC(b);
      DrawIt([c,b],['Original signal','Signal without DC']);
      FrequencyResponse(c,nil,Response1,1,True);
      FrequencyResponse(b,nil,Response2,1,True);
      DrawIt([Response1, Response2],['Spectrum: original signal','Spectrum: signal without DC']);
  end;

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

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

      b = Sin(Ramp(256, mvDouble, 0,2*PI*6/256)) + 4;
      c.Copy(b);
      RemoveDC(b);
      DrawIt(OPENARRAY(TVec*,(c,b)),OPENARRAY(AnsiString,("Original signal","Signal without DC")));
      FrequencyResponse(c,NULL,Response1,1,true);
      FrequencyResponse(b,NULL,Response2,1,true);
      DrawIt(OPENARRAY(TVec*,(Response1,Response2)),OPENARRAY(AnsiString,("Spectrum: original signal","Spectrum: without DC")));
  }