Применение временных рядов в работе с аудиo
База данных ExampleData содержит знаменитую запись экипажа Apollo 13, где члены экипажа сообщают о взрыве кислородного бака в центр управления полетами в Хьюстоне 13 апреля 1970 года.
In[1]:=
audio = ExampleData[{"Sound", "Apollo13Problem"}, "Audio"]Out[1]=
Индикаторы интенсивности и громкость показывают временные промежутки, которые содержат речевой сигнал.
In[2]:=
{power, loudness} =
AudioLocalMeasurements[audio, {"Power", "Loudness"}, "List"]Out[2]=
In[3]:=
ListLinePlot[{power, loudness}, PlotRange -> All,
PlotLegends -> {"Power", "Loudness"}]Out[3]=
Рассчитаем статистические данные для временных рядов интенсивности и громкости, отображенных на графике.
In[4]:=
summary[ts_] := {Min[ts], Mean[ts], Median[ts], Max[ts]};In[5]:=
TableForm[{summary[power], summary[loudness]},
TableHeadings -> {{"Power", "Loudness"}, {"Min", "Mean", "Median",
"Max"}}]Out[5]//TableForm=
