In[]:=
beginn={2020,6,1};ende={2020,7,20};ts=WeatherData[{67.55,133.38},"MaxTemperature",{beginn,ende,"Day"}];mittel=Mean[ts];max=Max[ts];min=Min[ts];kurve=DateListPlot[ts];Column[{Labeled[Framed[kurve],{"C°","Maximal-Temperatur","Werchojansk"},{Left,Top,Right}],Labeled[Framed[max],"Absolutes Maximum",Top],Labeled[Framed[mittel],"Mittelwert aller Maximal-Temperaturen",Top],Labeled[Framed[min],"Absolutes Minimum",Top]}]
Out[]=
7
Null
| ||||||
| ||||||
| ||||||
|