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

  procedure TForm1.Button1Click(Sender: TObject);
  var b,c,Response1, Response2: Vector;
  begin
      b := Sin(Ramp(256, mvDouble, 0,2*Pi*6/256));
      c.Copy(b);
      BandFlip(b);
      DrawIt([c,b],['Original signal','Flipped signal']);
      FrequencyResponse(c,nil,Response1,1,True);
      FrequencyResponse(b,nil,Response2,1,True);
      DrawIt([Response1,Response2],['Spectrum: original signal','Spectrum: flipped signal']);
  end;

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

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

      b = Sin(Ramp(256, mvDouble, 0,2.0*PI*6/256));
      c.Copy(b);
      BandFlip(b);
      DrawIt(OPENARRAY(TVec*,(c,b)),OPENARRAY(AnsiString,("Original signal","Flipped signal")));
      FrequencyResponse(c,NULL,Response1,1,true);
      FrequencyResponse(b,NULL,Response2,1,true);
      DrawIt(OPENARRAY(TVec*,(Response1,Response2)),OPENARRAY(AnsiString,("Spectrum: original signal","Spectrum: flipped signal")));
  }