Wolfram Language

Audio de calcul

Écoutez les tendances financières

Importez des données financières de 1990 jusqu'à présent.

In[1]:=
Click for copyable input
msft = TimeSeriesRescale[ TimeSeries@ FinancialData["MSFT", {"Jan. 1, 1990", DateString[Now]}], {0, 10}]; aapl = TimeSeriesRescale[ TimeSeries@ FinancialData["AAPL", {"Jan. 1, 1990", DateString[Now]}], {0, 10}];

Ré-échantillonnez et lissez les données.

In[2]:=
Click for copyable input
resampledMSFT = TimeSeriesResample[Round[MovingAverage[msft, 60]], 1/8]; resampledAAPL = TimeSeriesResample[Round[MovingAverage[aapl, 60]], 1/8]; ListLinePlot[{resampledMSFT, resampledAAPL}, PlotStyle -> {Automatic, Automatic, PointSize[Large]}, PlotLegends -> {"MSFT", "AAPL"}]
Out[2]=

Définissez une fonction pour convertir le prix à la fréquence.

In[3]:=
Click for copyable input
midiToFreq[m_] := Clip[2^((m - 69)/12)*440., {0, 22050}];

Générez de l' audio contrôlé par deux séries temporelles.

In[4]:=
Click for copyable input
res = .8 Mean[{AudioGenerator[{"Sin", midiToFreq[.5 resampledMSFT + 40]}], AudioGenerator[{"Triangle", midiToFreq[.5 resampledAAPL + 40]}]}]
Out[4]=
In[5]:=
Click for copyable input
Spectrogram[res, 4096, 4096, PlotRange -> {All, {0, 4000}}, ImageSize -> 300]
Out[5]=

Exemples connexes

de en es ja ko pt-br ru zh