음성의 시계열 특성
ExampleData는 1970년 4월 13일 아폴로 13호의 승무원이 휴스턴의 우주 비행 관제 센터에 산소 탱크의 폭발을 알리는 유명한 녹음을 포함하고 있습니다.
In[1]:=
audio = ExampleData[{"Sound", "Apollo13Problem"}, "Audio"]Out[1]=
power와 loudness는 무언가 말한것을 표시합니다.
In[2]:=
{power, loudness} =
AudioLocalMeasurements[audio, {"Power", "Loudness"}, "List"]Out[2]=
In[3]:=
ListLinePlot[{power, loudness}, PlotRange -> All,
PlotLegends -> {"Power", "Loudness"}]Out[3]=
Power와 Loudness의 시계열에 대한 통계 요약을 계산합니다.
In[4]:=
summary[ts_] := {Min[ts], Mean[ts], Median[ts], Max[ts]};WienerFilter를 사용하여 신호를 정돈합니다.
In[5]:=
TableForm[{summary[power], summary[loudness]},
TableHeadings -> {{"Power", "Loudness"}, {"Min", "Mean", "Median",
"Max"}}]Out[5]//TableForm=
