<!--- Filename should be: topic_story_anwserformat.Rmd --->
<!--- vm_poExp_8_1a.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  <- range(sample(3:20, 2))
#  border  <- c(sample(2:5, 1), sample(2:10, 1))
  if (exp(-border[1]*60/sec)>1e-3) break
}
d       <- distribution("exp", rate=rate)
ptype   <- "conditional"
lsg     <- exp(-border[1]*60/sec)
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.  Betrachten Sie die exponentialverteilte Zufallsvariable `r rvt`. Sie warten bereits `r border[2]` Minuten auf den nächsten Wähler. Wie groß ist die Wahrscheinlichkeit dafür, dass der nächste Wähler in mehr als `r border[1]` Minuten kommt?

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

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