You are here: Symbol Reference > SignalUtils Namespace > Functions > SignalUtils.CplxCepstrumInv Function
DSP Master VCL
ContentsIndex
PreviousUpNext
SignalUtils.CplxCepstrumInv Function

Compute the inverse complex cepstrum.

Pascal
procedure CplxCepstrumInv(const Src: TVec; const Dst: TVec; PhaseLag: double; TargetLength: integer);

Compute inverse complex cepstrum of Src and place the result in Dst. Phase lag is the value returned by CplxCepstrum. TargetLength is the length of the original (not zero padded) signal passed to the CplxCepstrum routine.

Forward and inverse complex cepstrum. 

 

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);
}
Copyright (c) 1999-2025 by Dew Research. All rights reserved.
What do you think about this topic? Send feedback!