<!--- Filename should be: topic_story_anwserformat.Rmd --->
<!--- vm_poExp_8_1b.Rnw --->
  
```{r,  echo = FALSE, results = "hide"}
library("exams")
include_supplement('exponential.num', recursive=TRUE)
library("exams.forge")
instruction <- NULL
library("extraDistr")
repeat{
  rateperhour <- sample(10:25, 1)
  rate    <- rateperhour/60
  sec     <- 60/rate
  border  <- sample(3:20, 1)
  d       <- distribution("exp",  rate=rate)
  ptype   <- sample(c("greater", "less", "point"), size=1, prob=c(4,4,2))
  txt     <- switch(ptype, greater="in mehr als", less="in weniger als", point="in **genau**")
  lsg     <- switch(ptype, greater=1-cdf(d, border), less=cdf(d, border), point=0)
  if(lsg>1e-3) break
}
number  <- rateperhour
length  <- 60
lambda  <- rate
rvt     <- rv("T", "Wartezeit in Minuten auf den nächsten Wähler")
sc      <- num_result(lsg, 4)
```

Question
========

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

In ein Wahllokal kommen durchschnittlich `r rateperhour` Wähler pro Stunde.  Berechnen Sie mittels der Zufallsvariablen `r rvt`, dass der nächste Wähler `r txt` `r border` Minuten kommt.

```{r, child='exponential.num'}
```

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