скрипт praat получить список высот для определенного слова - PullRequest
0 голосов
/ 26 сентября 2018

Я пытаюсь написать сценарий для Praat, и мне трудно это делать.

Я хочу получить результат для определенного слова в предложении (и звуке), например: Поскольку в данный момент вы не пользуетесь своей машиной, могу ли я одолжить ее?

Мне нужен список основного тона для слова "момент".Если я выберу слово «момент» и выберу список высоты тона в меню высоты тона, то он даст мне время и f0 для каждой 0,01 секунды (открыть и звук, и текстовую сетку).

Я искал и пыталсяСценарий этого, но пока не удалось.

Не могли бы вы помочь мне с этим?


Я изменил верхний вопрос.

предложение: Поскольку вы сейчас не пользуетесь своим автомобилем, могу ли я позаимствовать его? (У меня есть mp3-файл, текстовая сетка с 2 уровнями для этого предложения, уровень 1 - этослово и уровень 2 - телефон)

Вот мой сценарий.Я хочу иметь f0 max и min для последней слоговой части слова «момент», но удалось получить только f0 max и min для всего интервала 10 («момент» на уровне 1).

У меня также есть телефонный уровень для слова «момент» (в уровне 2), который является следующим:

телефонный уровень для слова «момент» - M OW M AH NT

=> и я хочу, чтобы [M AH NT] f0 max и f0 min, исключая [M OW], который является первой слоговой частью.

Ниже приведен сценарий, который у меня есть.


form Get F0 Min-Max
    sentence Directory ./
    word Base_file_name 
    comment The name of result file
    text textfile F0_list.txt
endform

# Create a header row for the result file:
header$ = "Filename TextGridLabel startTime endTime minTime f0min maxTime f0max'newline$'"
fileappend "'textfile$'" 'header$'

#Read all files in a folder
Create Strings as file list... mp3list 'directory$'/'base_file_name$'*.mp3
Create Strings as file list... gridlist 'directory$'/'base_file_name$'*.TextGrid
n = Get number of strings

for i to n
clearinfo
#We first extract pitch tiers
    select Strings mp3list
    filename$ = Get string... i
    Read from file... 'directory$'/'filename$'
    soundname$ = selected$ ("Sound")
    To Pitch... 0.01 75 600
    output$ = "'soundname$'.Pitch"
    # Write to binary file... 'output$'

# Read grid files and extract the selected intervals in them
    select Strings gridlist
    gridname$ = Get string... i
    Read from file... 'directory$'/'gridname$'
    int=Get number of intervals... 1

# Calculates F0 max, and F0 min (I need interval 10 to be analyzed for the word "moment" so have the 1 10 for the label) 
    select TextGrid 'soundname$'
    label$ = Get label of interval... 1 10 
    if label$ <> ""
        startTime = Get starting point... 1 10
        endTime = Get end point... 1 10 
        select Pitch 'soundname$'
        f0max = Get maximum... startTime endTime Hertz Parabolic
        maxTime = Get time of maximum... startTime endTime Hertz Parabolic
        f0min = Get minimum... startTime endTime Hertz Parabolic
        minTime = Get time of minimum... startTime endTime Hertz Parabolic
        resultline$ = 

"'soundname$''tab$''label$''tab$''syllableTime''tab$''endTime''tab$''minTime''tab$''f0min''tab$''maxTime''tab$''f0max'"
        fileappend "'textfile$'" 'resultline$'
    endif

fileappend "'textfile$'" 'newline$'

endfor

# clean up

select all
Remove

Не могли бы вы помочь мне с этим?Спасибо огромное.

1 Ответ

0 голосов
/ 19 ноября 2018

Не могли бы вы добавить новый уровень, чтобы выделить только ту часть, которая вас интересует?Есть ли еще какие-нибудь предложения в ваших данных?

# define your variables
phoneTier = 2
newTier = 3
name$ = "syllable"
regexFirst$ = "M"
regexLast$ = "T"

# use this to add a new tier in each text grid
select TextGrid 'soundname$'
Insert interval tier: newTier, name$

# loop through the phones to find the start time of the syllable
# put this in the for loop that loops through each textgrid
phoneInt = Get number of intervals... phoneTier
for i from 1 to phoneInt-3
    label$ = Get label of interval... i phoneTier
    labelNext$ = Get label of interval... i+3 phoneTier
    if index_regex(label$, regexFirst$) & index_regex(labelNext$, regexLast$)
        start = Get starting point... i phoneTier
        end = Get end point... i+3 phoneTier
        Insert boundary... newTier start
        Insert boundary... newTier end
        syllableInterval = Get low interval at time: newTier, end
        Set interval text... newTier syllableInterval "syllable"
    endif
endfor

, затем измерьте интервалы, которые вы только что создали.

...