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 ********************************************/