Propriedades de séries temporais de áudio
ExampleData contém a famosa gravação dos tripulantes da Apollo 13 relatando a explosão do tanque de oxigênio para o controle da missão em Houston em 13 de abril de 1970.
In[1]:=
![Click for copyable input](assets.pt-br/audio-time-series-properties/In_73.png)
audio = ExampleData[{"Sound", "Apollo13Problem"}, "Audio"]
A potência e a intensidade indicam quando algo foi falado.
In[2]:=
![Click for copyable input](assets.pt-br/audio-time-series-properties/In_74.png)
{power, loudness} =
AudioLocalMeasurements[audio, {"Power", "Loudness"}, "List"]
Out[2]=
![](assets.pt-br/audio-time-series-properties/O_38.png)
In[3]:=
![Click for copyable input](assets.pt-br/audio-time-series-properties/In_75.png)
ListLinePlot[{power, loudness}, PlotRange -> All,
PlotLegends -> {"Power", "Loudness"}]
Out[3]=
![](assets.pt-br/audio-time-series-properties/O_39.png)
Calcule algumas estatísticas para as séries temporais de potência e intensidade.
In[4]:=
![Click for copyable input](assets.pt-br/audio-time-series-properties/In_76.png)
summary[ts_] := {Min[ts], Mean[ts], Median[ts], Max[ts]};
In[5]:=
![Click for copyable input](assets.pt-br/audio-time-series-properties/In_77.png)
TableForm[{summary[power], summary[loudness]},
TableHeadings -> {{"Power", "Loudness"}, {"Min", "Mean", "Median",
"Max"}}]
Out[5]//TableForm=
![](assets.pt-br/audio-time-series-properties/O_40.png)