```{r, echo=FALSE}
include_supplement("hmittel.num", recursive=TRUE)
# required variables:
#  harmon 
#  sc <- num_result(...)
library("exams.forge")
instruction <- NULL
library("knitr")
k <- sample(4:7, 1)
x <- sample(c(5, 10, 20), size=k, replace=TRUE)
g <- sample(5:15, length(x), replace=TRUE)
m <- cbind(x, g)
colnames(m) <- c("Geschwindigkeit (in km/h)", "Strecke (in km)")
rownames(m)  <- 1:length(x)
lsg    <- sum(g)/sum(g/x)
hxy    <- html_matrix_sk(m, title="Tag", fmt=c("%.0f", "%.0f"))
sc     <- num_result (lsg, digits = 2, tolmult = 2)
harmon <- TRUE
```

Question
========

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

Für ein Querfeldeinrennen trainiert ein Student jeden Tag mit dem Fahrrad. Berechnen Sie seine Durchschnittsgeschwindigkeit. 

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

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

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