---
title: "Kontrolní stanice CBM48$^3$"
---

![](images/cbm48_banner.png)

\  

Volačka,soutěžní znak$^1$ | Lokátor | Kóta/začátek přesunu | Od: | Do: | čísla volačky xx$^1$ | poznámka$^2$
--- | --- | --- | --- | --- | --- | ---
exp.Tetřev C1xxK | JO70LR | Ještěd 1012m | [15-10-2021] 18:00 | [16-10-2021] 12:00 | 01-04 | OPAK ?
exp.Tetřev C1xxK | JO70PO | Kozákov 1012m | [16-10-2021] 12:00 | [17-10-2021] 18:00 | 05-08 | OPAK ?
Mates Brno C2xxK | JN79RJ | Čeřínek 761m | [15-10-2021] 18:00 | [17-10-2021] 18:00 | 01-08 | OPAK 65
exp.Kameň S1xxK | KN09LC | Bachureň 1081m | [15-10-2021] 18:00 | [16-10-2021] 8:00 | 01-02 | OPAK ?
exp.Kameň S103P | KN09LC -> KN09JC| Bachureň -> Spišská | [16.10.2021] 08:00 | [16.10.2021] 18:00 | 03 | OPAK ?
exp.Kameň S1xxK | KN09JC | Spišská 1056m | [16-10-2021] 18:00 | [17-10-2021] 8:00 | 04-05 | OPAK ?
exp.Kameň S106P | KN09JC -> KN09HD | Spišská -> Škapová | [17.10.2021] 08:00 | [17.10.2021] 18:00 | 06 | OPAK ?
exp.Kameň S1xxK | KN09HD | Škapová 1232m | [16-10-2021] 18:00 | [17-10-2021] 8:00 | 07-08 | OPAK ?
exp.Bažanti S2xxK | JN99BB | Chmeľová 925m | [15-10-2021] 18:00 | [16-10-2021] 11:00 | 01-03 | OPAK ?
exp.Bažanti S2xxK | JN99BB | Chmeľová 925m | [16-10-2021] 18:00 | [17-10-2021] 18:00 | 04-08 | OPAK ?

* $^1$ xx v soutěžním znaku kontrolní stanice se bude v průběhu závodu měnit po cca 4-6 hodinách, aby soutěžní stanice mohly dělat opakovaná spojení a případně informovala tímto kontrolku o změně své polohy
* $^2$ dosah kontrolek na opakovače dle odhadu organizátora, skutečnost se může lišit
* $^3$ Rozmístění kontrol není konečné, budu se snažit kontroly zafixovat do první poloviny září

```{r, fig.width=9.5, warning=FALSE, echo=FALSE}
library(leaflet)
linedf <- data.frame(
  lat = c(50.7327997,50.5937378,49.0900869,49.1064703,49.1374986,49.3767522,49.0738247),
  lng = c(14.9845264,15.2639053,20.9232239,20.7628178,20.6638583,15.4364769,18.1543200)
)
leaflet() %>%
  addTiles %>% # Add default OpenStreetMap map tiles
    addCircles(linedf$lng[1], linedf$lat[1], weight = 1, radius = 50000, color =  "red",
                    fillColor = "orange", popup = "C1K exp.Tetřev /p Ještěd", fillOpacity=0.5, opacity=1) %>%
    addCircles(linedf$lng[2], linedf$lat[2], weight = 1, radius = 40000, color =  "red",
                    fillColor = "orange", popup = "C1K exp.Tetřev /p Kozákov", fillOpacity=0.5, opacity=1) %>%
    addCircles(linedf$lng[6], linedf$lat[6], weight = 1, radius = 40000, color =  "red",
                    fillColor = "orange", popup = "C2K Mates Brno /p Čeřínek", fillOpacity=0.5, opacity=1) %>%
    addCircles(linedf$lng[4], linedf$lat[4], weight = 1, radius = 40000, color =  "red",
                    fillColor = "orange", popup = "S1K exp.Kameň /p Spišská", fillOpacity=0.5, opacity=1) %>%
    addCircles(linedf$lng[7], linedf$lat[7], weight = 1, radius = 40000, color =  "red",
                    fillColor = "orange", popup = "S2K exp.Bažanti /p Chmeľová", fillOpacity=0.5, opacity=1) %>%
addMarkers(lng=linedf$lng[3], lat=linedf$lat[3], popup="exp.Kameň S1-xxK /p Bachureň_1081m KN09LC [15.10.2021] 18:00 - [16.10.2021] 08:00") %>%
addMarkers(lng=linedf$lng[4], lat=linedf$lat[4], popup="exp.Kameň S1-xxK /p Spišská_1056m KN09JC [16.10.2021] 18:00 - [17.10.2021] 08:00") %>%
addMarkers(lng=linedf$lng[5], lat=linedf$lat[5], popup="exp.Kameň S1-xxK /p Škapová_1232m KN09HD [17.10.2021] 14:00 - [17.10.2021] 18:00") %>%
addPolylines(data=linedf[3:4,], ~lng, ~lat, color = c("red","white"), opacity = c(1,0.1), weight = 2, dashArray = c(5,2)) %>%
addPolylines(data=linedf[4:5,], ~lng, ~lat, color = c("red","white"), opacity = c(1,0.1), weight = 2, dashArray = c(5,2)) %>%
  setView(lng = 17.5, lat = 49.5, zoom = 7)
```

