Propriétés des séries temporelles audio

ExampleData contient le célèbre enregistrement de l'équipage d'Apollo 13 signalant l'explosion du réservoir d'oxygène au centre de contrôle de la mission à Houston le 13 avril 1970.

In[1]:=

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

Out[1]=

La puissance et l'intensité indiquent le moment où quelque chose a été dit.

In[2]:=

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

Out[2]=

In[3]:=

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

Out[3]=

Calculez des statistiques sommaires pour les séries temporelles de puissance et d'intensité sonore.

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=