RADIO (L"Slope constraints", 1)
RADIOBUTTON (L"no restriction")
RADIOBUTTON (L"1/3 < slope < 3")
RADIOBUTTON (L"1/2 < slope < 2")
RADIOBUTTON (L"2/3 < slope < 3/2")
OK
DO
Cepstrumc c1 = 0, c2 = 0;
LOOP {
iam (Cepstrumc);
(c1 ? c2 : c1) = me;
}
Melder_assert (c1 && c2);
praat_new (Cepstrumc_to_DTW (c1, c2, GET_REAL (L"Cepstral weight"),
GET_REAL (L"Log energy weight"), GET_REAL (L"Regression weight"),
GET_REAL (L"Regression weight log energy"), GET_REAL (L"Window for regression coefficients"),
GET_INTEGER (L"Match begin positions"), GET_INTEGER (L"Match end positions"),
GET_INTEGER (L"Slope constraints")), c1->name, L"_", c2->name);
END
DIRECT (Cepstrumc_to_Matrix)
LOOP {
iam (Cepstrumc);
praat_new (Cepstrumc_to_Matrix (me), my name);
}
END
/******************** Formant ********************************************/
FORM (Formant_to_LPC, L"Formant: To LPC", 0)
POSITIVE (L"Sampling frequency (Hz)", L"16000.0")
RADIO (U"Slope constraints", 1)
RADIOBUTTON (U"no restriction")
RADIOBUTTON (U"1/3 < slope < 3")
RADIOBUTTON (U"1/2 < slope < 2")
RADIOBUTTON (U"2/3 < slope < 3/2")
OK
DO
Cepstrumc c1 = nullptr, c2 = nullptr;
LOOP {
iam (Cepstrumc);
(c1 ? c2 : c1) = me;
}
Melder_assert (c1 && c2);
autoDTW thee = Cepstrumc_to_DTW (c1, c2, GET_REAL (U"Cepstral weight"),
GET_REAL (U"Log energy weight"), GET_REAL (U"Regression weight"),
GET_REAL (U"Regression weight log energy"), GET_REAL (U"Window for regression coefficients"),
GET_INTEGER (U"Match begin positions"), GET_INTEGER (U"Match end positions"),
GET_INTEGER (U"Slope constraints"));
praat_new (thee.transfer(), c1 -> name, U"_", c2 -> name);
END
DIRECT (Cepstrumc_to_Matrix)
LOOP {
iam (Cepstrumc);
autoMatrix thee = Cepstrumc_to_Matrix (me);
praat_new (thee.transfer(), my name);
}
END
/******************** Formant ********************************************/
