Wolfram 언어™

금융 트렌드 청취

1990년부터 지금까지의 금융 데이터를 가져옵니다.

In[1]:=

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

데이터를 리샘플링하여 평탄화합니다.

In[2]:=

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

가격을 주파수로 변환하는 함수를 정의합니다.

In[3]:=

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

두 시계열에 의해 제어된 음성을 생성합니다.

In[4]:=

res = .8 Mean[{AudioGenerator[{"Sin", midiToFreq[.5 resampledMSFT + 40]}], AudioGenerator[{"Triangle", midiToFreq[.5 resampledAAPL + 40]}]}]

Out[4]=

In[5]:=

Spectrogram[res, 4096, 4096, PlotRange -> {All, {0, 4000}}, ImageSize -> 300]

Out[5]=