Example #1
0
	SENTENCE (L"Centroid", L"0.0 0.0")
	POSITIVE (L"Number of samples", L"100.0")
	OK
DO
	praat_new (CrossCorrelationTable_createSimple (GET_STRING (L"Cross correlations"), GET_STRING (L"Centroid"),
		GET_REAL (L"Number of samples")), GET_STRING (L"Name"));
END

FORM (MixingMatrix_createSimple, L"Create simple MixingMatrix", 0)
	WORD (L"Name", L"mm")
	NATURAL (L"Number of channels", L"2")
	NATURAL (L"Number of components", L"2")
	SENTENCE (L"Mixing coefficients", L"1.0 1.0 1.0 1.0")
	OK
DO
	praat_new (MixingMatrix_createSimple (GET_INTEGER (L"Number of channels"), GET_INTEGER (L"Number of components"),
		GET_STRING (L"Mixing coefficients")), GET_STRING (L"Name"));
END

DIRECT (CrossCorrelationTable_help)
	Melder_help (L"CrossCorrelationTable");
END

DIRECT (CrossCorrelationTable_to_PCA)
	LOOP {
		iam (CrossCorrelationTable);
		praat_new (SSCP_to_PCA (me), my name);
	}
END

FORM (Sound_and_PCA_projectChannels, L"Sound & PCA: To Sound (project channels)", 0)
	NATURAL (L"Number of components", L"10")
Example #2
0
	NATURAL (U"Number of samples", U"100")
	OK
DO
	autoCrossCorrelationTable thee = CrossCorrelationTable_createSimple (GET_STRING (U"Cross correlations"), GET_STRING (U"Centroid"),
		GET_INTEGER (U"Number of samples"));
	praat_new (thee.move(), GET_STRING (U"Name"));
END

FORM (MixingMatrix_createSimple, U"Create simple MixingMatrix", 0)
	WORD (U"Name", U"mm")
	NATURAL (U"Number of channels", U"2")
	NATURAL (U"Number of components", U"2")
	SENTENCE (U"Mixing coefficients", U"1.0 1.0 1.0 1.0")
	OK
DO
	autoMixingMatrix thee = MixingMatrix_createSimple (GET_INTEGER (U"Number of channels"), GET_INTEGER (U"Number of components"),
		GET_STRING (U"Mixing coefficients"));
	praat_new (thee.move(), GET_STRING (U"Name"));
END

DIRECT (CrossCorrelationTable_help)
	Melder_help (U"CrossCorrelationTable");
END

FORM (Sound_and_PCA_principalComponents, U"Sound & PCA: To Sound (principal components)", 0)
	NATURAL (U"Number of components", U"10")
	OK
DO
	Sound me = FIRST (Sound);
	PCA thee = FIRST (PCA);
	autoSound him = Sound_and_PCA_principalComponents (me, thee, GET_INTEGER (U"Number of components"));
	praat_new (him.move(), my name, U"_pc");