Teager-Kaiser energy operator

psi[n] = x[n]^2 - x[n-1] * x[n+1]; sensitive to instantaneous amplitude AND frequency.

Usage

morie_dsp_teager_energy(x)

Arguments

x

Numeric vector.

Value

Numeric vector, length(x); ends are zero.

References

Rangayyan & Krishnan (2015), Ch. 4, sec. 4.5; Kaiser (1990).

Examples

morie_dsp_teager_energy(c(1, 2, 3, 4, 5))
#> [1] 0 1 1 1 0