% Poniższe polecania (10-15) sprawdzają działanie funkcji create, addStation i addValue, wszystkie mapy wyglądają zgodnie z oczekiwaniami

10> P = pollution:createMonitor().
#{}
11> P1 = pollution:addStation("Aleja Slowackiego", {50.2345, 18.3445}, P).
#{{station,"Aleja Slowackiego",{50.2345,18.3445}} => #{}}
12> P2 = pollution:addValue({50.2345, 18.3445}, calendar:local_time(), "PM10", 59, P1).
#{{station,"Aleja Slowackiego",{50.2345,18.3445}} =>
      #{{measurement,{{2020,4,7},{0,5,18}},"PM10"} => 59}}
13> P3 = pollution:addValue("Aleja Slowackiego", calendar:local_time(), "PM2,5", 113, P2).
#{{station,"Aleja Slowackiego",{50.2345,18.3445}} =>
      #{{measurement,{{2020,4,7},{0,5,18}},"PM10"} => 59,
        {measurement,{{2020,4,7},{0,5,20}},"PM2,5"} => 113}}
14> P4 = pollution:addStation("Muzeum Narodowe", {54.37, 23.84}, P3).
#{{station,"Aleja Slowackiego",{50.2345,18.3445}} =>
      #{{measurement,{{2020,4,7},{0,5,18}},"PM10"} => 59,
        {measurement,{{2020,4,7},{0,5,20}},"PM2,5"} => 113},
  {station,"Muzeum Narodowe",{54.37,23.84}} => #{}}
15> P5 = pollution:addValue("Muzeum Narodowe", calendar:local_time(),"PM10", 63, P4).
#{{station,"Aleja Slowackiego",{50.2345,18.3445}} =>
      #{{measurement,{{2020,4,7},{0,5,18}},"PM10"} => 59,
        {measurement,{{2020,4,7},{0,5,20}},"PM2,5"} => 113},
  {station,"Muzeum Narodowe",{54.37,23.84}} =>
      #{{measurement,{{2020,4,7},{0,5,27}},"PM10"} => 63}}

% Polecenia 16 i 17 sprawdzają funkcję removeValue, dodajemy, a następnie usuwamy ewidentnie błędną wartość

16> P6 = pollution:addValue("Muzeum Narodowe", calendar:local_time(), "PM10", 13400, P5).
#{{station,"Aleja Slowackiego",{50.2345,18.3445}} =>
      #{{measurement,{{2020,4,7},{0,5,18}},"PM10"} => 59,
        {measurement,{{2020,4,7},{0,5,20}},"PM2,5"} => 113},
  {station,"Muzeum Narodowe",{54.37,23.84}} =>
      #{{measurement,{{2020,4,7},{0,5,27}},"PM10"} => 63,
        {measurement,{{2020,4,7},{0,5,30}},"PM10"} => 13400}}
17> P7 = pollution:removeValue("Muzeum Narodowe", {{2020, 4, 7}, {0, 5, 30}}, "PM10", P6).
#{{station,"Aleja Slowackiego",{50.2345,18.3445}} =>
      #{{measurement,{{2020,4,7},{0,5,18}},"PM10"} => 59,
        {measurement,{{2020,4,7},{0,5,20}},"PM2,5"} => 113},
  {station,"Muzeum Narodowe",{54.37,23.84}} =>
      #{{measurement,{{2020,4,7},{0,5,27}},"PM10"} => 63}}

% Polecenie 18 ma za zadanie wyciagnac warotosc "59" pomiaru z Alei Slowackiego

18> pollution:getOneValue("Aleja Slowackiego", {{2020, 4, 7}, {0, 5, 18}}, "PM10", P7).
59

% Polecania 19 i 20 badaja dzialanie funkcji getStationMean - najpierw dodajemy jeszcze jeden pomiar PM2,5 a nastepnie liczymy srednia. Spodziewamy się otrzymać wynik 117

19> P8 = pollution:addValue("Aleja Slowackiego", calendar:local_time(), "PM2,5", 121, P7).
#{{station,"Aleja Slowackiego",{50.2345,18.3445}} =>
      #{{measurement,{{2020,4,7},{0,5,18}},"PM10"} => 59,
        {measurement,{{2020,4,7},{0,5,20}},"PM2,5"} => 113,
        {measurement,{{2020,4,7},{0,8,14}},"PM2,5"} => 121},
  {station,"Muzeum Narodowe",{54.37,23.84}} =>
      #{{measurement,{{2020,4,7},{0,5,27}},"PM10"} => 63}}
20> pollution:getStationMean("Aleja Slowackiego", "PM2,5", P8).
117.0

% Polecenie 21 bada dzialanie funkcji getDailyMean, chcemy policzyc srednia wartosc PM10 7 kwietnia ze wszystkich stacji. Spodziewamy sie wyniku 61

21> pollution:getDailyMean({2020, 4, 7}, "PM10", P8).
61.0

% Polecenie 22 bada dzialanie 1-szej funkcji niespodzianki: funkcja ma zwrocic najwieksza wartosc PM10 wraz ze stacja, a ktorej ten pomiar zostal zmierzony. Oczekujemy wartosci 63 z Muzeum Narodowego

22> pollution:getMaxPollution("PM10", P8).
{{station,"Muzeum Narodowe",{54.37,23.84}},63}

% Polecenia 23, 25, 26 badaja druga funkcje niespodzianke: srednia wartosc danego typu z zadanego obszaru, w tym wypadku: PM10 z obszaru ((10,10), (100, 100)). Najpierw dodajemy dodatkowa stacje poza obszarem z jednym pomiarem, aby upewnic sie, ze funkcja go zignoruje. Liczymy, ze otrzymany wynik wyniesie 61

23> P9 = pollution:addStation("Dummy", {1, 1}, P8).
#{{station,"Aleja Slowackiego",{50.2345,18.3445}} =>
      #{{measurement,{{2020,4,7},{0,5,18}},"PM10"} => 59,
        {measurement,{{2020,4,7},{0,5,20}},"PM2,5"} => 113,
        {measurement,{{2020,4,7},{0,8,14}},"PM2,5"} => 121},
  {station,"Dummy",{1,1}} => #{},
  {station,"Muzeum Narodowe",{54.37,23.84}} =>
      #{{measurement,{{2020,4,7},{0,5,27}},"PM10"} => 63}}
25> P10 = pollution:addValue({1,1}, calendar:local_time(), "PM10", 10, P9).
#{{station,"Aleja Slowackiego",{50.2345,18.3445}} =>
      #{{measurement,{{2020,4,7},{0,5,18}},"PM10"} => 59,
        {measurement,{{2020,4,7},{0,5,20}},"PM2,5"} => 113,
        {measurement,{{2020,4,7},{0,8,14}},"PM2,5"} => 121},
  {station,"Dummy",{1,1}} =>
      #{{measurement,{{2020,4,7},{0,12,4}},"PM10"} => 10},
  {station,"Muzeum Narodowe",{54.37,23.84}} =>
      #{{measurement,{{2020,4,7},{0,5,27}},"PM10"} => 63}}
26> pollution:getMeanFromArea("PM10", {{10, 10},{100,100}}, P10).
61.0