```{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("Grabungsgeschwindigkeit (in cm/h)", "Strecke (in cm)")
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}
```

Der Edmond Dantes gräbt im Chateau d’If täglich an seinem Fluchttunnel. Je nach Tagesform, Wandmaterial und Abstände bei den Runden der Gefängniswärter ist er unterschiedlich schnell. Berechnen Sie seine durchschnittliche Grabungsgeschwindigkeit.

```{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()`
