Finden Sie eine Formel für Temperaturschwankungen

Laden Sie die Temperaturwerte der letzten 10 Jahre für Rom.

In[1]:=

wd = WeatherData["Rome", "Temperature", {{2006, 1, 1}, {2016, 1, 1}, "Month"}]

Out[1]=

Ermitteln Sie eine einfache Formel für diese Zeitreihe.

In[2]:=

fit = FindFormula[wd, x]

Out[2]=

Vergleichen Sie die Formel und die Daten.

In[3]:=

Show[Plot[fit, {x, 3.5*10^9 , 3.71*10^9}, PlotStyle -> Lighter[Red, .5], PlotLegends -> {"Formula"}, Frame -> True, FrameLabel -> {"Absolute Time", "Temperature"}], ListPlot[wd, PlotLegends -> {"Data"}]]

Out[3]=