In[]:=
ort="Kairo";​​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,JoinedTrue];​​LinearModelFit[werte,x,x];​​lf=Normal[%];​​lfplot=Plot[lf,{x,1,Length[zeiten]},PlotRange{{1,Length[zeiten]},{Min[werte],Max[werte]}},PlotStyleRed];​​kurve3=Show[lfplot,kurve2];​​max2=Max[werte];​​Position[werte,%];​​Flatten[%];​​%[[1]];​​zeiten[[%]];​​datummax=DateValue[%,"Year"];​​{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[mittel,"Mittelwert der Jahresmaximaltemperaturen",Top]​​Labeled[max,"Maximalwert der Jahresmaximaltemperaturen",Top]​​Labeled[min,"Minimalwert der Jahresmaximaltemperaturen",Top]​​​​​​
Out[]=
​
Jahres-Maximal-Temperatur
​
°C
Kairo
Out[]=
Linearer Fit:
41.9999+0.0276827x
Out[]=
Kurve mit Linearem Fit
Out[]=
Mittelwert der Jahresmaximaltemperaturen
42.6643
°C
Out[]=
Maximalwert der Jahresmaximaltemperaturen
45.72
°C
Out[]=
Minimalwert der Jahresmaximaltemperaturen
39
°C