void LPC_Frame_into_Formant_Frame (LPC_Frame me, Formant_Frame thee, double samplingPeriod, double margin) {
thy intensity = my gain;
if (my nCoefficients == 0) {
return;
}
autoPolynomial p = LPC_Frame_to_Polynomial (me);
autoRoots r = Polynomial_to_Roots (p.peek());
Roots_fixIntoUnitCircle (r.peek());
Roots_into_Formant_Frame (r.peek(), thee, 1 / samplingPeriod, margin);
}
static void burg (double sample [], long nsamp_window, double cof [], int nPoles,
Formant_Frame frame, double nyquistFrequency, double safetyMargin)
{
double a0;
NUMburg (sample, nsamp_window, cof, nPoles, & a0);
/*
* Convert LP coefficients to polynomial.
*/
autoPolynomial polynomial = Polynomial_create (-1, 1, nPoles);
for (int i = 1; i <= nPoles; i ++)
polynomial -> coefficients [i] = - cof [nPoles - i + 1];
polynomial -> coefficients [nPoles + 1] = 1.0;
/*
* Find the roots of the polynomial.
*/
autoRoots roots = Polynomial_to_Roots (polynomial.peek());
Roots_fixIntoUnitCircle (roots.peek());
Melder_assert (frame -> nFormants == 0 && ! frame -> formant);
/*
* First pass: count the formants.
* The roots come in conjugate pairs, so we need only count those above the real axis.
*/
for (int i = roots -> min; i <= roots -> max; i ++) if (roots -> v [i]. im >= 0) {
double f = fabs (atan2 (roots -> v [i].im, roots -> v [i].re)) * nyquistFrequency / NUMpi;
if (f >= safetyMargin && f <= nyquistFrequency - safetyMargin)
frame -> nFormants ++;
}
/*
* Create space for formant data.
*/
if (frame -> nFormants > 0)
frame -> formant = NUMvector <structFormant_Formant> (1, frame -> nFormants);
/*
* Second pass: fill in the formants.
*/
int iformant = 0;
for (int i = roots -> min; i <= roots -> max; i ++) if (roots -> v [i]. im >= 0.0) {
double f = fabs (atan2 (roots -> v [i].im, roots -> v [i].re)) * nyquistFrequency / NUMpi;
if (f >= safetyMargin && f <= nyquistFrequency - safetyMargin) {
Formant_Formant formant = & frame -> formant [++ iformant];
formant -> frequency = f;
formant -> bandwidth = -
log (roots -> v [i].re * roots -> v [i].re + roots -> v [i].im * roots -> v [i].im) * nyquistFrequency / NUMpi;
}
}
Melder_assert (iformant == frame -> nFormants); // may fail if some frequency is NaN
}
