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

procedure TForm1.Button1Click(Sender: TObject);
var a,b: Vector;
    k: double;
begin
   a.SetIt(False,[1,2,3,4,3,2,-1,1]);
   k := CplxCepstrum(a,b);
   CplxCepstrumInv(b,a,k,a.Length);
// "a" again becomes the same as on the input a =  [1,2,3,4,3,2,-1,1]
   DrawIt(a);
end;

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

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
    sVector a,b;
    double  k;

    a.SetIt(False,OPENARRAY(double,(1,2,3,4,3,2,-1,1)));
    k = CplxCepstrum(a,b);
    CplxCepstrumInv(b,a,k,a.Length);
  //  "a" again becomes the same as on the input a =  [1,2,3,4,3,2,-1,1]
      DrawIt(a);
}