```{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(5, 10, 20), size=k, replace=TRUE)
g <- sample(5:15, length(x), replace=TRUE)
wm <- sample(c(10, 15, 20, 25, 30, 35, 40), 1)
w  <- 100*wm
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, 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}
```

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. 
Wenn Sie die durchschnittliche Grabungsgeschwindigkeit zugrunde legen, wie viel Stunden benötigt Edmond Dantes wenn der Fluchttunnel `r wm` m sein lang muss?

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