WOLFRAM NOTEBOOK

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
Maximal-Temperatur
C°
Werchojansk
Absolutes Maximum
34.78
°C
Mittelwert aller Maximal-Temperaturen
24.3448
°C
Absolutes Minimum
5
°C
Wolfram Cloud

You are using a browser not supported by the Wolfram Cloud

Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.


I understand and wish to continue anyway »

You are using a browser not supported by the Wolfram Cloud. Supported browsers include recent versions of Chrome, Edge, Firefox and Safari.