In[]:=
ort="Chicago";beginn=1970;ende=2019;ts=WeatherData[ort,"MaxTemperature",{{beginn,1,1},{ende,12,31},"Year"}];mittel=Mean[ts];max=Max[ts];min=Min[ts];kurve=DateListPlot[ts];pfad=ts["Path"];ts["Values"];werte=QuantityMagnitude[%];zeiten=ts["Times"];Length[zeiten];ts2=Table[{t,werte[[t]]},{t,1,%}];kurve2=ListPlot[ts2,JoinedTrue];LinearModelFit[werte,x,x];lf=Normal[%];lfplot=Plot[lf,{x,1,Length[zeiten]},PlotRange{{1,Length[zeiten]},{Min[werte],Max[werte]}},PlotStyleRed];kurve3=Show[lfplot,kurve2];max2=Max[werte];Position[werte,%];Flatten[%];%[[1]];zeiten[[%]];datummax=DateValue[%,"Year"];maxdatum={datummax,max};Labeled[kurve,{"Jahres-Maximal-Temperatur","°C",ort},{Top,Left,Right}]Labeled[lf,"Linearer Fit:",Left]Labeled[kurve3,"Kurve mit Linearem Fit",Top]Labeled[maxdatum,"Jahr des Absoluten Maximums",Top]
Out[]=
| Jahres-Maximal-Temperatur | |
°C | Chicago |
Out[]=
Linearer Fit: |
Out[]=
Kurve mit Linearem Fit |
Out[]=
Jahr des Absoluten Maximums |