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]:=

audio = ExampleData[{"Sound", "Apollo13Problem"}, "Audio"]

Out[1]=

La potencia y sonoridad indican cuando algo ha sido enunciado.

In[2]:=

{power, loudness} = AudioLocalMeasurements[audio, {"Power", "Loudness"}, "List"]

Out[2]=

In[3]:=

ListLinePlot[{power, loudness}, PlotRange -> All, PlotLegends -> {"Power", "Loudness"}]

Out[3]=

Calcule algunas estadísticas resumidas para las series temporales de potencia y sonoridad.

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=