In[]:=
ort={36.45,-116,85};​​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"];​​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
{36.45,-116,85}
Out[]=
Linearer Fit:
41.4861-0.000327551x
Out[]=
Kurve mit Linearem Fit
Out[]=
Jahr des Absoluten Maximums
{1983,
47.22
°C
}