Zeitreihen kombinieren 

TimeSeriesThread kann verwendet werden, um Zeitreihen zu addieren, multiplizieren oder anderweitig zu kombinieren.

Subtrahieren Sie zwei Zeitreihen.

In[1]:=

X {buseyOpen, buseyClose} = Table[TimeSeries[ FinancialData["NASDAQ:BUSE", prop, {{2013, 6, 1}, {2014, 6, 1}}]], {prop, {"Open", "Close"}}];

In[2]:=

X diff = TimeSeriesThread[{1, -1}.# &, {buseyClose, buseyOpen}]

Out[2]=

Die gesamte Wolfram-Language Eingabe zeigenEingabe verbergen

In[3]:=

X DateListPlot[diff, Joined -> False, Filling -> Axis, PlotStyle -> PointSize[Tiny], FillingStyle -> {Red, Black}, ImageSize -> 300]

Out[3]=

Erstellen Sie die Zeitreihe des Winkelabstands zwischen dem Mond und der Sonne.

In[4]:=

X dates = DateRange[{2014, 4, 1}, {2014, 6, 1}, {12, "Hour"}]; sunpos = SunPosition[dates, CelestialSystem -> "Equatorial"]; moonpos = MoonPosition[dates, CelestialSystem -> "Equatorial"];

Definieren Sie eine Funktion, um den Winkelabtsand zwischen zwei Objekten auf einer Halbkugel zu berechnen.

In[5]:=

X AngularDistance[{{\[Phi]1_, \[Theta]1_}, {\[Phi]2_, \[Theta]2_}}] := InverseHaversine[ Haversine[\[Phi]1 - \[Phi]2] + Cos[\[Phi]1] Cos[\[Phi]2] Haversine[\[Theta]1 - \[Theta]2]]/Degree

In[6]:=

X angdist = TimeSeriesThread[AngularDistance, {sunpos, moonpos}];

In[7]:=

X DateListPlot[angdist, ImageSize -> 300, FrameLabel -> "degrees"]

Out[7]=