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