procedure CplxCepstrumInv(const Src: TVec; const Dst: TVec; PhaseLag: Double; TargetLength: Integer);
Compute the inverse complex cepstrum.
| # | Name | Type | Description |
|---|---|---|---|
| 1 | Src | TVec | |
| 2 | Dst | TVec | |
| 3 | PhaseLag | Double | scalar |
| 4 | TargetLength | Integer |
Result: stored in self (calling object)
Remarks:
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.
Examples
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;