```{r, echo=FALSE}
include_supplement("hmittel2.num", recursive=TRUE)
# required variables:
#  harmon 
#  sc <- num_result(...)
#  sc2 <- num_result(...)
library("exams.forge")
instruction <- NULL
k <- sample(4:7, 1)
x <- sample(c(2, 5, 10), size=k, replace=TRUE)
g <- sample(10:20, length(x), replace=TRUE)
w <- sample(c(30, 35, 40, 45, 50, 55, 60), 1)
m <- cbind(x, g)
colnames(m) <- c("Wandergeschwindigkeit (in km/h)", "Wanderstrecke (in km)")
rownames(m) <- 1:length(x)
lsg    <- sum(g)/sum(g/x)
hxy <- html_matrix_sk (m, fmt=c("%.0f", "%.1f"), title="Tag")
sc     <- num_result (lsg, digits = 2, tolmult = 2)
sc2    <- num_result (w/sc$x, digits = 1, tolmult = 2)
harmon <- TRUE
```

Question
========

```{r, error=TRUE, child=instruction}
```

Hape Kerkeling wandert auf dem Jakobsweg nach Santiago de Compostela. Je nach Lust und Laune läuft er mal länger oder kürzer. Wie viele Stunden benötigt Hape Kerkeling wenn das aktuelle Teilstück des Jakobswegs `r w` km lang ist und Sie seine Durchschnittsgeschwindigkeit zugrunde legen?

```{r, echo=FALSE, results='asis'}
cat(toHTMLorLatex(hxy))
```


```{r, child="hmittel2.num"}
```

Meta-information
================
extype: num
exsolution: `r sc$fx[1]`
extol: `r sc$tolerance`
exname: `r if(exists("story")) story else knitr::current_input()`
