Propiedades de series temporales de audio
ExampleData contiene las famosas grabaciones de la tripulación de Apolo 13 reportando la explosión del tanque de oxígeno al control de misión en Houston el 13 de abril de 1970.
In[1]:=
![Click for copyable input](assets.es/audio-time-series-properties/In_73.png)
audio = ExampleData[{"Sound", "Apollo13Problem"}, "Audio"]
La potencia y sonoridad indican cuando algo ha sido enunciado.
In[2]:=
![Click for copyable input](assets.es/audio-time-series-properties/In_74.png)
{power, loudness} =
AudioLocalMeasurements[audio, {"Power", "Loudness"}, "List"]
Out[2]=
![](assets.es/audio-time-series-properties/O_38.png)
In[3]:=
![Click for copyable input](assets.es/audio-time-series-properties/In_75.png)
ListLinePlot[{power, loudness}, PlotRange -> All,
PlotLegends -> {"Power", "Loudness"}]
Out[3]=
![](assets.es/audio-time-series-properties/O_39.png)
Calcule algunas estadísticas resumidas para las series temporales de potencia y sonoridad.
In[4]:=
![Click for copyable input](assets.es/audio-time-series-properties/In_76.png)
summary[ts_] := {Min[ts], Mean[ts], Median[ts], Max[ts]};
In[5]:=
![Click for copyable input](assets.es/audio-time-series-properties/In_77.png)
TableForm[{summary[power], summary[loudness]},
TableHeadings -> {{"Power", "Loudness"}, {"Min", "Mean", "Median",
"Max"}}]
Out[5]//TableForm=
![](assets.es/audio-time-series-properties/O_40.png)