<!--- Filename should be: topic_story_anwserformat.Rmd --->

```{r,  echo = FALSE, results = "hide"}
include_supplement('stetige_gleich.num', recursive=TRUE)
library("exams")
library("exams.forge")
instruction <- NULL
library("extraDistr")
repeat{
  param <- range(sample(12:72, size=2))
  if (diff(param)>3) break
}
d      <- distribution("unif", min=param[1], max=param[2])
border <- range(sample((param[1]+1):(param[2]-1), size=2))
ptype  <- "interval"
lsg    <- prob(d, border[1], border[2])
sc      <- num_result(lsg, 4)
```

Question
=======

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

<!--- Exercise text is in story file --->

Die Lebensdauer einer Maschine sei eine über dem Zeitintervall $[`r param[1]`;  `r param[2]`]$ Tage gleichverteilte stetige Zufallsvariable. Berechnen Sie die Wahrscheinlichkeit, dass die Lebensdauer zwischen `r border[1]` und `r border[2]` Tagen liegt?

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

Meta-information
================
extype: num
exsolution: `r round2(lsg,4)`
extol: 0.001
exname: `r if(exists("story")) story else knitr::current_input()`
