Example #1
0
DIRECT (GaussianMixture_getNumberOfComponents)
	GaussianMixture me = (structGaussianMixture *)ONLY_OBJECT;
	Melder_information2 (Melder_integer (my numberOfComponents), L" (= number of components)");
END

DIRECT (GaussianMixture_getDimensionOfComponent)
	GaussianMixture me = (structGaussianMixture *)ONLY_OBJECT;
	Melder_information2 (Melder_integer (my dimension), L" (= dimension of component)");
END

FORM (GaussianMixture_getProbabilityAtPosition, L"GaussianMixture: Get probability at position", 0)
	SENTENCE (L"Position", L"100.0 300.0")
	OK
DO
	wchar_t *position = GET_STRING (L"Position");
	double p = GaussianMixture_getProbabilityAtPosition_string ((structGaussianMixture *)ONLY_OBJECT, position);
	Melder_information3 (Melder_double (p), L" (= probability at position ", position);
END

FORM (GaussianMixture_splitComponent, L"GaussianMixture: Split component", L"GaussianMixture: Split component...")
	NATURAL (L"Component", L"1")
	OK
DO
	if (! GaussianMixture_splitComponent ((structGaussianMixture *)ONLY (classGaussianMixture), GET_INTEGER (L"Component"))) return 0;
END

FORM (GaussianMixture_and_PCA_drawMarginalPdf, L"GaussianMixture & PCA: Draw pdf function", L"GaussianMixture: Draw marginal pdf...")
	INTEGER (L"X-dimension", L"1")
	REAL (L"left Horizontal range", L"0.0")
	REAL (L"right Horizontal range", L"0.0")
	REAL (L"left Vertical range", L"0.0")
Example #2
0
		long result = my numberOfComponents;
	INTEGER_ONE_END (U"(= number of components)")
}

DIRECT (INTEGER_GaussianMixture_getDimensionOfComponent) {
	INTEGER_ONE (GaussianMixture)
		long result = my dimension;
	INTEGER_ONE_END (U"(= dimension of component)")
}

FORM (REAL_GaussianMixture_getProbabilityAtPosition, U"GaussianMixture: Get probability at position", nullptr) {
	SENTENCEVAR (position_string, U"Position", U"100.0 300.0")
	OK
DO
	NUMBER_ONE (GaussianMixture)
		double result = GaussianMixture_getProbabilityAtPosition_string (me, position_string);
	NUMBER_ONE_END (U" (= probability at position ", position_string, U")")
}

FORM (MODIFY_GaussianMixture_splitComponent, U"GaussianMixture: Split component", U"GaussianMixture: Split component...") {
	NATURALVAR (component, U"Component", U"1")
	OK
DO
	MODIFY_EACH (GaussianMixture)
		GaussianMixture_splitComponent (me, component);
	MODIFY_EACH_END
}

FORM (GRAPHICS_GaussianMixture_and_PCA_drawMarginalPdf, U"GaussianMixture & PCA: Draw pdf function", U"GaussianMixture: Draw marginal pdf...") {
	INTEGERVAR (xDimension, U"X-dimension", U"1")
	REALVAR (xmin, U"left Horizontal range", U"0.0")