Přepínání objektů

Pro posun na další strany použijte kurzorové šipky

Ⓒ Tomáš Bořil
borilt@gmail.com, 29. 3. 2015

Zadání

  1. Načtěte soubory .TextGrid a .Wav, priklad_data.zip (maminka.wav a maminka.TextGrid).

  2. Změřte v prostřední třetině vokálů [a] nebo [a:] hodnoty formantů F2, vypočtěte průměr ze všech nalezených segmentů (ve 2. vrstvě textgridu).

V kapitole 3. Výpočet formantů jsme počítali hodnotu formantů v prostřední třetině jednoho vybraného intervalu. V kapitole 5. Průchod TextGridem: výpis labelů jsme se naučili automaticky procházet všechny intervaly TextGridu a v kapitole 6. Podmínky zaměřovat analýzu jen na intervaly s určitými labely. Ve stejné kapitole jsme si také ukázali, jak vypočítat výsledný průměr z hodnot vypočtených v jednotlivých intervalech.

Nyní stačí tyto „funkční bloky“ propojit. Časově náročný výpočet objektu Formant stačí provést jednou před for cyklem. Důležité je ve for cyklu vyřešit správné přepínání objektů. Objekt, se kterým chceme provádět operace, musí být nejdříve vybrán příkazem select.

Zkuste tuto úlohu vyřešit samostatně. Na následujících stránkách je řešení. Skript byl vzhledem k délce rozdělen na tři části.

clearinfo

zvukID = Read from file: "D:\AKU\maminka.wav"
textID = Read from file: "D:\AKU\maminka.TextGrid"

select zvukID
formantID = To Formant (burg)... 0 5 5500 0.025 50

select textID
ni = Get number of intervals... 2

f2Suma = 0
pocet = 0

Příprava objektů a proměnných pro počítání průměru.

Poznámka

Pokud bychom chtěli místo načítání souborů vytvořit skript, který předpokládá, že si uživatel soubory načetl sám a označil je v okně Praat Objects, místo těchto příkazů

zvukID = Read from file: "D:\AKU\maminka.wav"
textID = Read from file: "D:\AKU\maminka.TextGrid"

použijeme následující zápis.

zvukID = selected("Sound")
textID = selected("TextGrid")

clearinfo                                          <==

zvukID = Read from file: "D:\AKU\maminka.wav"
textID = Read from file: "D:\AKU\maminka.TextGrid"

select zvukID
formantID = To Formant (burg)... 0 5 5500 0.025 50

select textID
ni = Get number of intervals... 2

f2Suma = 0
pocet = 0

clearinfo

zvukID = Read from file: "D:\AKU\maminka.wav"      <==
textID = Read from file: "D:\AKU\maminka.TextGrid"

select zvukID
formantID = To Formant (burg)... 0 5 5500 0.025 50

select textID
ni = Get number of intervals... 2

f2Suma = 0
pocet = 0

Objekty: zvukID

Načteme zvuk a odkaz uložíme do zvukID, abychom se k němu mohli při pozdějším přepínání objektů kdykoliv zpět vrátit.

clearinfo

zvukID = Read from file: "D:\AKU\maminka.wav"
textID = Read from file: "D:\AKU\maminka.TextGrid" <==

select zvukID
formantID = To Formant (burg)... 0 5 5500 0.025 50

select textID
ni = Get number of intervals... 2

f2Suma = 0
pocet = 0

Objekty: zvukID, textID

To samé s TextGridem. Tučně je znázorněn aktuálně vybraný objekt.

clearinfo

zvukID = Read from file: "D:\AKU\maminka.wav"
textID = Read from file: "D:\AKU\maminka.TextGrid"

select zvukID                                      <==
formantID = To Formant (burg)... 0 5 5500 0.025 50

select textID
ni = Get number of intervals... 2

f2Suma = 0
pocet = 0

Objekty: zvukID, textID

Budeme chtít ze zvuku vytvořit objekt s formanty, přepneme se proto na zvukID.

clearinfo

zvukID = Read from file: "D:\AKU\maminka.wav"
textID = Read from file: "D:\AKU\maminka.TextGrid"

select zvukID
formantID = To Formant (burg)... 0 5 5500 0.025 50 <==

select textID
ni = Get number of intervals... 2

f2Suma = 0
pocet = 0

Objekty: zvukID, textID, formantID

Odkaz na nově vytvořený formantový objekt si rovnou uložíme do formantID, abychom se na něj mohli později také přepínat.

clearinfo

zvukID = Read from file: "D:\AKU\maminka.wav"
textID = Read from file: "D:\AKU\maminka.TextGrid"

select zvukID
formantID = To Formant (burg)... 0 5 5500 0.025 50

select textID                                      <==
ni = Get number of intervals... 2

f2Suma = 0
pocet = 0

Objekty: zvukID, textID, formantID

Chceme zjistit počet intervalů v TextGridu, proto se na něj nejdříve přepneme.

clearinfo

zvukID = Read from file: "D:\AKU\maminka.wav"
textID = Read from file: "D:\AKU\maminka.TextGrid"

select zvukID
formantID = To Formant (burg)... 0 5 5500 0.025 50

select textID
ni = Get number of intervals... 2                  <==

f2Suma = 0
pocet = 0

Objekty: zvukID, textID, formantID

ni: 9

Zjišťujeme počet intervalů 2. vrstvy (segment), výsledek uložíme do proměnné ni (zkratka z number of intervals).

clearinfo

zvukID = Read from file: "D:\AKU\maminka.wav"
textID = Read from file: "D:\AKU\maminka.TextGrid"

select zvukID
formantID = To Formant (burg)... 0 5 5500 0.025 50

select textID
ni = Get number of intervals... 2

f2Suma = 0                                         <==
pocet = 0

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0

Protože je úkolem vypočítat průměrnou hodnotu všech segmentů, vytvoříme si nejdříve proměnnou, do které budeme ukládat celkový součet. Počáteční hodnotu musíme nastavit na 0, abychom k ní později mohli přičítat zjištěná čísla.

clearinfo

zvukID = Read from file: "D:\AKU\maminka.wav"
textID = Read from file: "D:\AKU\maminka.TextGrid"

select zvukID
formantID = To Formant (burg)... 0 5 5500 0.025 50

select textID
ni = Get number of intervals... 2

f2Suma = 0
pocet = 0                                          <==

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0
pocet: 0

A pro průměr potřebujeme nejen celkový součet, ale také počet položek. Proto vytvoříme proměnnou a nastavíme počáteční pocet na 0.

for index from 1 to ni                             <==
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0
pocet: 0
index: 1

for index from 1 to ni
    select textID                                  <==
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0
pocet: 0
index: 1

Nyní by se zdálo zbytečné přepínat na textID, když už byl dříve vybrán. Podívejte se ale na celý vnitřek cyklu – ke konci se kvůli počítání formantů přepínáme na formantID. V dalších průchodech for cyklu již na začátku textID vybrán být nemusí, je to tedy nutné zajistit. €

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index                <==
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0
pocet: 0
index: 1
t1: 0 €

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index                  <==
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0
pocet: 0
index: 1
t1: 0
t2: 0.04

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index        <==

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0
pocet: 0
index: 1
t1: 0
t2: 0.04
lab$: ""

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")               <==
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0
pocet: 0
index: 1
t1: 0
t2: 0.04
lab$: ""

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif                                          <==
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0
pocet: 0
index: 1
t1: 0
t2: 0.04
lab$: ""

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor                                             <==

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0
pocet: 0
index: 1
t1: 0
t2: 0.04
lab$: ""

for index from 1 to ni                             <==
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0
pocet: 0
index: 1 2
t1: 0
t2: 0.04
lab$: ""

for index from 1 to ni
    select textID                                  <==
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0
pocet: 0
index: 1 2
t1: 0
t2: 0.04
lab$: ""

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index                <==
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0
pocet: 0
index: 1 2
t1: 0 0.04
t2: 0.04
lab$: ""

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index                  <==
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0
pocet: 0
index: 1 2
t1: 0 0.04
t2: 0.04 0.09
lab$: ""

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index        <==

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0
pocet: 0
index: 1 2
t1: 0 0.04
t2: 0.04 0.09
lab$: "" "m"

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")               <==
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0
pocet: 0
index: 1 2
t1: 0 0.04
t2: 0.04 0.09
lab$: "" "m"

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif                                          <==
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0
pocet: 0
index: 1 2
t1: 0 0.04
t2: 0.04 0.09
lab$: "" "m"

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor                                             <==

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0
pocet: 0
index: 1 2
t1: 0 0.04
t2: 0.04 0.09
lab$: "" "m"

for index from 1 to ni                             <==
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0
pocet: 0
index: 1 2 3
t1: 0 0.04
t2: 0.04 0.09
lab$: "" "m"

for index from 1 to ni
    select textID                                  <==
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0
pocet: 0
index: 1 2 3
t1: 0 0.04
t2: 0.04 0.09
lab$: "" "m"

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index                <==
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0
pocet: 0
index: 1 2 3
t1: 0 0.04 0.09
t2: 0.04 0.09
lab$: "" "m"

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index                  <==
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0
pocet: 0
index: 1 2 3
t1: 0 0.04 0.09
t2: 0.04 0.09 0.16
lab$: "" "m"

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index        <==

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0
pocet: 0
index: 1 2 3
t1: 0 0.04 0.09
t2: 0.04 0.09 0.16
lab$: "" "m" "a"

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")               <==
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0
pocet: 0
index: 1 2 3
t1: 0 0.04 0.09
t2: 0.04 0.09 0.16
lab$: "" "m" "a"

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1                           <==
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0
pocet: 0
index: 1 2 3
t1: 0 0.04 0.09
t2: 0.04 0.09 0.16
lab$: "" "m" "a"
trvani: 0.07

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3                     <==
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0
pocet: 0
index: 1 2 3
t1: 0 0.04 0.09
t2: 0.04 0.09 0.16
lab$: "" "m" "a"
trvani: 0.07
tStart: 0.11

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3                       <==

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0
pocet: 0
index: 1 2 3
t1: 0 0.04 0.09
t2: 0.04 0.09 0.16
lab$: "" "m" "a"
trvani: 0.07
tStart: 0.11
tEnd: 0.14

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID                           <==
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0
pocet: 0
index: 1 2 3
t1: 0 0.04 0.09
t2: 0.04 0.09 0.16
lab$: "" "m" "a"
trvani: 0.07
tStart: 0.11
tEnd: 0.14

Potřebujeme zjistit hodnotu formantu, přepínáme se na formantID.

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz       <==

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0
pocet: 0
index: 1 2 3
t1: 0 0.04 0.09
t2: 0.04 0.09 0.16
lab$: "" "m" "a"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2                       <==
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0
index: 1 2 3
t1: 0 0.04 0.09
t2: 0.04 0.09 0.16
lab$: "" "m" "a"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1                          <==
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3
t1: 0 0.04 0.09
t2: 0.04 0.09 0.16
lab$: "" "m" "a"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif                                          <==
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3
t1: 0 0.04 0.09
t2: 0.04 0.09 0.16
lab$: "" "m" "a"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor                                             <==

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3
t1: 0 0.04 0.09
t2: 0.04 0.09 0.16
lab$: "" "m" "a"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni                             <==
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4
t1: 0 0.04 0.09
t2: 0.04 0.09 0.16
lab$: "" "m" "a"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID                                  <==
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4
t1: 0 0.04 0.09
t2: 0.04 0.09 0.16
lab$: "" "m" "a"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

Přepínáme zpět na textID.

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index                <==
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4
t1: 0 0.04 0.09 0.16
t2: 0.04 0.09 0.16
lab$: "" "m" "a"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index                  <==
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4
t1: 0 0.04 0.09 0.16
t2: 0.04 0.09 0.16 0.22
lab$: "" "m" "a"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index        <==

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4
t1: 0 0.04 0.09 0.16
t2: 0.04 0.09 0.16 0.22
lab$: "" "m" "a" "m"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")               <==
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4
t1: 0 0.04 0.09 0.16
t2: 0.04 0.09 0.16 0.22
lab$: "" "m" "a" "m"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1                           
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif                                          <==
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4
t1: 0 0.04 0.09 0.16
t2: 0.04 0.09 0.16 0.22
lab$: "" "m" "a" "m"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1                           
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor                                             <==

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4
t1: 0 0.04 0.09 0.16
t2: 0.04 0.09 0.16 0.22
lab$: "" "m" "a" "m"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni                             <==
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1                           
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5
t1: 0 0.04 0.09 0.16
t2: 0.04 0.09 0.16 0.22
lab$: "" "m" "a" "m"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID                                  <==
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1                           
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5
t1: 0 0.04 0.09 0.16
t2: 0.04 0.09 0.16 0.22
lab$: "" "m" "a" "m"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index                <==
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1                           
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5
t1: 0 0.04 0.09 0.16 0.22
t2: 0.04 0.09 0.16 0.22
lab$: "" "m" "a" "m"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index                  <==
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1                           
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5
t1: 0 0.04 0.09 0.16 0.22
t2: 0.04 0.09 0.16 0.22 0.28
lab$: "" "m" "a" "m"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index        <==

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1                           
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5
t1: 0 0.04 0.09 0.16 0.22
t2: 0.04 0.09 0.16 0.22 0.28
lab$: "" "m" "a" "m" "i"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")               <==
        trvani = t2 - t1                           
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5
t1: 0 0.04 0.09 0.16 0.22
t2: 0.04 0.09 0.16 0.22 0.28
lab$: "" "m" "a" "m" "i"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1                           
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif                                          <==
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5
t1: 0 0.04 0.09 0.16 0.22
t2: 0.04 0.09 0.16 0.22 0.28
lab$: "" "m" "a" "m" "i"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor                                             <==

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5
t1: 0 0.04 0.09 0.16 0.22
t2: 0.04 0.09 0.16 0.22 0.28
lab$: "" "m" "a" "m" "i"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni                             <==
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5 6
t1: 0 0.04 0.09 0.16 0.22
t2: 0.04 0.09 0.16 0.22 0.28
lab$: "" "m" "a" "m" "i"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID                                  <==
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5 6
t1: 0 0.04 0.09 0.16 0.22
t2: 0.04 0.09 0.16 0.22 0.28
lab$: "" "m" "a" "m" "i"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index                <==
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5 6
t1: 0 0.04 0.09 0.16 0.22 0.28
t2: 0.04 0.09 0.16 0.22 0.28
lab$: "" "m" "a" "m" "i"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index                  <==
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5 6
t1: 0 0.04 0.09 0.16 0.22 0.28
t2: 0.04 0.09 0.16 0.22 0.28 0.38
lab$: "" "m" "a" "m" "i"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index        <==

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5 6
t1: 0 0.04 0.09 0.16 0.22 0.28
t2: 0.04 0.09 0.16 0.22 0.28 0.38
lab$: "" "m" "a" "m" "i" "n"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")               <==
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5 6
t1: 0 0.04 0.09 0.16 0.22 0.28
t2: 0.04 0.09 0.16 0.22 0.28 0.38
lab$: "" "m" "a" "m" "i" "n"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif                                          <==
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5 6
t1: 0 0.04 0.09 0.16 0.22 0.28
t2: 0.04 0.09 0.16 0.22 0.28 0.38
lab$: "" "m" "a" "m" "i" "n"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor                                             <==

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5 6
t1: 0 0.04 0.09 0.16 0.22 0.28
t2: 0.04 0.09 0.16 0.22 0.28 0.38
lab$: "" "m" "a" "m" "i" "n"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni                             <==
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5 6 7
t1: 0 0.04 0.09 0.16 0.22 0.28
t2: 0.04 0.09 0.16 0.22 0.28 0.38
lab$: "" "m" "a" "m" "i" "n"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID                                  <==
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5 6 7
t1: 0 0.04 0.09 0.16 0.22 0.28
t2: 0.04 0.09 0.16 0.22 0.28 0.38
lab$: "" "m" "a" "m" "i" "n"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index                <==
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5 6 7
t1: 0 0.04 0.09 0.16 0.22 0.28 0.38
t2: 0.04 0.09 0.16 0.22 0.28 0.38
lab$: "" "m" "a" "m" "i" "n"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index                  <==
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5 6 7
t1: 0 0.04 0.09 0.16 0.22 0.28 0.38
t2: 0.09 0.16 0.22 0.28 0.38 0.44
lab$: "" "m" "a" "m" "i" "n"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index        <==

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5 6 7
t1: 0 0.04 0.09 0.16 0.22 0.28 0.38
t2: 0.09 0.16 0.22 0.28 0.38 0.44
lab$: "" "m" "a" "m" "i" "n" "k"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")               <==
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5 6 7
t1: 0 0.04 0.09 0.16 0.22 0.28 0.38
t2: 0.09 0.16 0.22 0.28 0.38 0.44
lab$: "" "m" "a" "m" "i" "n" "k"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif                                          <==
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5 6 7
t1: 0 0.04 0.09 0.16 0.22 0.28 0.38
t2: 0.09 0.16 0.22 0.28 0.38 0.44
lab$: "" "m" "a" "m" "i" "n" "k"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor                                             <==

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5 6 7
t1: 0 0.04 0.09 0.16 0.22 0.28 0.38
t2: 0.09 0.16 0.22 0.28 0.38 0.44
lab$: "" "m" "a" "m" "i" "n" "k"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni                             <==
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5 6 7 8
t1: 0 0.04 0.09 0.16 0.22 0.28 0.38
t2: 0.09 0.16 0.22 0.28 0.38 0.44
lab$: "" "m" "a" "m" "i" "n" "k"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID                                  <==
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5 6 7 8
t1: 0 0.04 0.09 0.16 0.22 0.28 0.38
t2: 0.09 0.16 0.22 0.28 0.38 0.44
lab$: "" "m" "a" "m" "i" "n" "k"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index                <==
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5 6 7 8
t1: 0.09 0.16 0.22 0.28 0.38 0.44
t2: 0.09 0.16 0.22 0.28 0.38 0.44
lab$: "" "m" "a" "m" "i" "n" "k"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index                  <==
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5 6 7 8
t1: 0.09 0.16 0.22 0.28 0.38 0.44
t2: 0.16 0.22 0.28 0.38 0.44 0.52
lab$: "" "m" "a" "m" "i" "n" "k"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index        <==

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5 6 7 8
t1: 0.09 0.16 0.22 0.28 0.38 0.44
t2: 0.16 0.22 0.28 0.38 0.44 0.52
lab$: "" "m" "a" "m" "i" "n" "k" "a"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")               <==
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5 6 7 8
t1: 0.09 0.16 0.22 0.28 0.38 0.44
t2: 0.16 0.22 0.28 0.38 0.44 0.52
lab$: "" "m" "a" "m" "i" "n" "k" "a"
trvani: 0.07
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1                           <==
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5 6 7 8
t1: 0.09 0.16 0.22 0.28 0.38 0.44
t2: 0.16 0.22 0.28 0.38 0.44 0.52
lab$: "" "m" "a" "m" "i" "n" "k" "a"
trvani: 0.07 0.08
tStart: 0.11
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3                     <==
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5 6 7 8
t1: 0.09 0.16 0.22 0.28 0.38 0.44
t2: 0.16 0.22 0.28 0.38 0.44 0.52
lab$: "" "m" "a" "m" "i" "n" "k" "a"
trvani: 0.07 0.08
tStart: 0.11 0.46
tEnd: 0.14
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3                       <==

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5 6 7 8
t1: 0.09 0.16 0.22 0.28 0.38 0.44
t2: 0.16 0.22 0.28 0.38 0.44 0.52
lab$: "" "m" "a" "m" "i" "n" "k" "a"
trvani: 0.07 0.08
tStart: 0.11 0.46
tEnd: 0.14 0.50
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID                           <==
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5 6 7 8
t1: 0.09 0.16 0.22 0.28 0.38 0.44
t2: 0.16 0.22 0.28 0.38 0.44 0.52
lab$: "" "m" "a" "m" "i" "n" "k" "a"
trvani: 0.07 0.08
tStart: 0.11 0.46
tEnd: 0.14 0.50
f2: 1403.9

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz       <==

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9
pocet: 0 1
index: 1 2 3 4 5 6 7 8
t1: 0.09 0.16 0.22 0.28 0.38 0.44
t2: 0.16 0.22 0.28 0.38 0.44 0.52
lab$: "" "m" "a" "m" "i" "n" "k" "a"
trvani: 0.07 0.08
tStart: 0.11 0.46
tEnd: 0.14 0.50
f2: 1403.9 1821.2

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2                       <==
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9 3225.1
pocet: 0 1
index: 1 2 3 4 5 6 7 8
t1: 0.09 0.16 0.22 0.28 0.38 0.44
t2: 0.16 0.22 0.28 0.38 0.44 0.52
lab$: "" "m" "a" "m" "i" "n" "k" "a"
trvani: 0.07 0.08
tStart: 0.11 0.46
tEnd: 0.14 0.50
f2: 1403.9 1821.2

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1                          <==
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9 3225.1
pocet: 0 1 2
index: 1 2 3 4 5 6 7 8
t1: 0.09 0.16 0.22 0.28 0.38 0.44
t2: 0.16 0.22 0.28 0.38 0.44 0.52
lab$: "" "m" "a" "m" "i" "n" "k" "a"
trvani: 0.07 0.08
tStart: 0.11 0.46
tEnd: 0.14 0.50
f2: 1403.9 1821.2

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif                                          <==
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9 3225.1
pocet: 0 1 2
index: 1 2 3 4 5 6 7 8
t1: 0.09 0.16 0.22 0.28 0.38 0.44
t2: 0.16 0.22 0.28 0.38 0.44 0.52
lab$: "" "m" "a" "m" "i" "n" "k" "a"
trvani: 0.07 0.08
tStart: 0.11 0.46
tEnd: 0.14 0.50
f2: 1403.9 1821.2

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor                                             <==

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9 3225.1
pocet: 0 1 2
index: 1 2 3 4 5 6 7 8
t1: 0.09 0.16 0.22 0.28 0.38 0.44
t2: 0.16 0.22 0.28 0.38 0.44 0.52
lab$: "" "m" "a" "m" "i" "n" "k" "a"
trvani: 0.07 0.08
tStart: 0.11 0.46
tEnd: 0.14 0.50
f2: 1403.9 1821.2

for index from 1 to ni                             <==
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9 3225.1
pocet: 0 1 2
index: 1 2 3 4 5 6 7 8 9
t1: 0.09 0.16 0.22 0.28 0.38 0.44
t2: 0.16 0.22 0.28 0.38 0.44 0.52
lab$: "" "m" "a" "m" "i" "n" "k" "a"
trvani: 0.07 0.08
tStart: 0.11 0.46
tEnd: 0.14 0.50
f2: 1403.9 1821.2

for index from 1 to ni
    select textID                                  <==
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9 3225.1
pocet: 0 1 2
index: 1 2 3 4 5 6 7 8 9
t1: 0.09 0.16 0.22 0.28 0.38 0.44
t2: 0.16 0.22 0.28 0.38 0.44 0.52
lab$: "" "m" "a" "m" "i" "n" "k" "a"
trvani: 0.07 0.08
tStart: 0.11 0.46
tEnd: 0.14 0.50
f2: 1403.9 1821.2

Přepnutí na textID.

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index                <==
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9 3225.1
pocet: 0 1 2
index: 1 2 3 4 5 6 7 8 9
t1: 0.16 0.22 0.28 0.38 0.44 0.52
t2: 0.16 0.22 0.28 0.38 0.44 0.52
lab$: "" "m" "a" "m" "i" "n" "k" "a"
trvani: 0.07 0.08
tStart: 0.11 0.46
tEnd: 0.14 0.50
f2: 1403.9 1821.2

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index                  <==
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9 3225.1
pocet: 0 1 2
index: 1 2 3 4 5 6 7 8 9
t1: 0.16 0.22 0.28 0.38 0.44 0.52
t2: 0.22 0.28 0.38 0.44 0.52 0.55
lab$: "" "m" "a" "m" "i" "n" "k" "a"
trvani: 0.07 0.08
tStart: 0.11 0.46
tEnd: 0.14 0.50
f2: 1403.9 1821.2

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index        <==

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9 3225.1
pocet: 0 1 2
index: 1 2 3 4 5 6 7 8 9
t1: 0.16 0.22 0.28 0.38 0.44 0.52
t2: 0.22 0.28 0.38 0.44 0.52 0.55
lab$: "m" "a" "m" "i" "n" "k" "a" ""
trvani: 0.07 0.08
tStart: 0.11 0.46
tEnd: 0.14 0.50
f2: 1403.9 1821.2

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")               <==
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9 3225.1
pocet: 0 1 2
index: 1 2 3 4 5 6 7 8 9
t1: 0.16 0.22 0.28 0.38 0.44 0.52
t2: 0.22 0.28 0.38 0.44 0.52 0.55
lab$: "m" "a" "m" "i" "n" "k" "a" ""
trvani: 0.07 0.08
tStart: 0.11 0.46
tEnd: 0.14 0.50
f2: 1403.9 1821.2

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif                                          <==
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9 3225.1
pocet: 0 1 2
index: 1 2 3 4 5 6 7 8 9
t1: 0.16 0.22 0.28 0.38 0.44 0.52
t2: 0.22 0.28 0.38 0.44 0.52 0.55
lab$: "m" "a" "m" "i" "n" "k" "a" ""
trvani: 0.07 0.08
tStart: 0.11 0.46
tEnd: 0.14 0.50
f2: 1403.9 1821.2

for index from 1 to ni
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor                                             <==

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9 3225.1
pocet: 0 1 2
index: 1 2 3 4 5 6 7 8 9
t1: 0.16 0.22 0.28 0.38 0.44 0.52
t2: 0.22 0.28 0.38 0.44 0.52 0.55
lab$: "m" "a" "m" "i" "n" "k" "a" ""
trvani: 0.07 0.08
tStart: 0.11 0.46
tEnd: 0.14 0.50
f2: 1403.9 1821.2

for index from 1 to ni                             <==
    select textID
    t1 = Get start point... 2 index
    t2 = Get end point... 2 index
    lab$ = Get label of interval... 2 index

    if (lab$ = "a") or (lab$ = "a:")
        trvani = t2 - t1
        tStart = t1 + trvani/3
        tEnd = t2 - trvani/3

        select formantID
        f2 = Get mean... 2 tStart tEnd Hertz

        f2Suma = f2Suma + f2
        pocet = pocet + 1
    endif
endfor

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9 3225.1
pocet: 0 1 2
index: 1 2 3 4 5 6 7 8 9 10
t1: 0.16 0.22 0.28 0.38 0.44 0.52
t2: 0.22 0.28 0.38 0.44 0.52 0.55
lab$: "m" "a" "m" "i" "n" "k" "a" ""
trvani: 0.07 0.08
tStart: 0.11 0.46
tEnd: 0.14 0.50
f2: 1403.9 1821.2

index mimo rozsah, konec for.

f2Prumer = f2Suma / pocet

printline Průměrné F2 je 'f2Prumer:0' Hz

select formantID
plus zvukID
plus textID
Remove

Objekty: zvukID, textID, formantID

Pokračujeme poslední částí skriptu.

ni: 9
f2Suma: 0 1403.9 3225.1
pocet: 0 1 2
index: 1 2 3 4 5 6 7 8 9
t1: 0.16 0.22 0.28 0.38 0.44 0.52
t2: 0.22 0.28 0.38 0.44 0.52 0.55
lab$: "m" "a" "m" "i" "n" "k" "a" ""
trvani: 0.07 0.08
tStart: 0.11 0.46
tEnd: 0.14 0.50
f2: 1403.9 1821.2

f2Prumer = f2Suma / pocet                          <==

printline Průměrné F2 je 'f2Prumer:0' Hz

select formantID
plus zvukID
plus textID
Remove

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9 3225.1
pocet: 0 1 2
index: 1 2 3 4 5 6 7 8 9
t1: 0.16 0.22 0.28 0.38 0.44 0.52
t2: 0.22 0.28 0.38 0.44 0.52 0.55
lab$: "m" "a" "m" "i" "n" "k" "a" ""
trvani: 0.07 0.08
tStart: 0.11 0.46
tEnd: 0.14 0.50
f2: 1403.9 1821.2
f2Prumer: 1612.55

f2Prumer = f2Suma / pocet

printline Průměrné F2 je 'f2Prumer:0' Hz           <==

select formantID
plus zvukID
plus textID
Remove

Objekty: zvukID, textID, formantID

ni: 9
f2Suma: 0 1403.9 3225.1
pocet: 0 1 2
index: 1 2 3 4 5 6 7 8 9
t1: 0.16 0.22 0.28 0.38 0.44 0.52
t2: 0.22 0.28 0.38 0.44 0.52 0.55
lab$: "m" "a" "m" "i" "n" "k" "a" ""
trvani: 0.07 0.08
tStart: 0.11 0.46
tEnd: 0.14 0.50
f2: 1403.9 1821.2
f2Prumer: 1612.55

f2Prumer = f2Suma / pocet

printline Průměrné F2 je 'f2Prumer:0' Hz

select formantID                                   <==
plus zvukID
plus textID
Remove

Objekty: zvukID, textID, formantID

Závěrečný úklid: vybereme formantID.

ni: 9
f2Suma: 0 1403.9 3225.1
pocet: 0 1 2
index: 1 2 3 4 5 6 7 8 9
t1: 0.16 0.22 0.28 0.38 0.44 0.52
t2: 0.22 0.28 0.38 0.44 0.52 0.55
lab$: "m" "a" "m" "i" "n" "k" "a" ""
trvani: 0.07 0.08
tStart: 0.11 0.46
tEnd: 0.14 0.50
f2: 1403.9 1821.2
f2Prumer: 1612.55

f2Prumer = f2Suma / pocet

printline Průměrné F2 je 'f2Prumer:0' Hz

select formantID
plus zvukID                                        <==
plus textID
Remove

Objekty: zvukID, textID, formantID

Do označení přidáme zvukID.

ni: 9
f2Suma: 0 1403.9 3225.1
pocet: 0 1 2
index: 1 2 3 4 5 6 7 8 9
t1: 0.16 0.22 0.28 0.38 0.44 0.52
t2: 0.22 0.28 0.38 0.44 0.52 0.55
lab$: "m" "a" "m" "i" "n" "k" "a" ""
trvani: 0.07 0.08
tStart: 0.11 0.46
tEnd: 0.14 0.50
f2: 1403.9 1821.2
f2Prumer: 1612.55

f2Prumer = f2Suma / pocet

printline Průměrné F2 je 'f2Prumer:0' Hz

select formantID
plus zvukID
plus textID                                        <==
Remove

Objekty: zvukID, textID, formantID

Do označení přidáme textID.

ni: 9
f2Suma: 0 1403.9 3225.1
pocet: 0 1 2
index: 1 2 3 4 5 6 7 8 9
t1: 0.16 0.22 0.28 0.38 0.44 0.52
t2: 0.22 0.28 0.38 0.44 0.52 0.55
lab$: "m" "a" "m" "i" "n" "k" "a" ""
trvani: 0.07 0.08
tStart: 0.11 0.46
tEnd: 0.14 0.50
f2: 1403.9 1821.2
f2Prumer: 1612.55

f2Prumer = f2Suma / pocet

printline Průměrné F2 je 'f2Prumer:0' Hz

select formantID
plus zvukID
plus textID
Remove                                             <==

Všechny označené objekty odstraníme z Praat Objects (originální soubory na disku samozřejmě zůstávají).

ni: 9
f2Suma: 0 1403.9 3225.1
pocet: 0 1 2
index: 1 2 3 4 5 6 7 8 9
t1: 0.16 0.22 0.28 0.38 0.44 0.52
t2: 0.22 0.28 0.38 0.44 0.52 0.55
lab$: "m" "a" "m" "i" "n" "k" "a" ""
trvani: 0.07 0.08
tStart: 0.11 0.46
tEnd: 0.14 0.50
f2: 1403.9 1821.2
f2Prumer: 1612.55

f2Prumer = f2Suma / pocet

printline Průměrné F2 je 'f2Prumer:0' Hz

select formantID
plus zvukID
plus textID
Remove

Konec skriptu.

ni: 9
f2Suma: 0 1403.9 3225.1
pocet: 0 1 2
index: 1 2 3 4 5 6 7 8 9
t1: 0.16 0.22 0.28 0.38 0.44 0.52
t2: 0.22 0.28 0.38 0.44 0.52 0.55
lab$: "m" "a" "m" "i" "n" "k" "a" ""
trvani: 0.07 0.08
tStart: 0.11 0.46
tEnd: 0.14 0.50
f2: 1403.9 1821.2
f2Prumer: 1612.55

Otázka na závěr

Skript funguje správně, nicméně mohli jste si všimnout, že by šel částečně zjednodušit, a tím pádem i urychlit.

Neprováděly se některé příkazy zbytečně? Nezjišťovaly se mnohokrát hodnoty, který nebyly k ničemu využity?

Dva řádky uvnitř for cyklu by bylo výhodnější přesunout dovnitř podmínky if, protože jen při jejím splnění má smysl tyto dva řádky provádět.

Které to jsou?

Odpověď následuje na další straně.

Odpověď na závěr

Zjišťování t1 a t2 má smysl jen v případě, že „máme o interval zájem“. Tyto dvě hodnoty potřebujeme jen ve chvíli, kdy chceme počítat průměrný formant v intervalu prostřední třetiny.

Pro samotné procházení TextGridu stačí zjišťovat labely. Pokud nespadá label do našeho zájmu, nemá smysl o intervalu nic dále zjišťovat a můžeme pokračovat rovnou dalším intervalem.

Zpět na hlavní stranu