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")
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");