<!--- 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)>5) break
}
d      <- distribution("unif", min=param[1], max=param[2])
center <- round(rtriang(1, param[1]+2, param[2]-2))
#center <- sample((param[1]+2):(param[2]-2), size=1)
dist   <- sample(1:min(abs(param-center)), size=1)
border <- center+c(-dist, dist)
ptype  <- "interval"
lsg    <- prob(d, border[1], border[2])
sc    <- num_result(lsg, 4, tolmult = 1)
```

Question
=======

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

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

Eine Zufallsvariable $X$ sei $`r toLatex(d)`$ verteilt. Berechnen Sie die Wahrscheinlichkeit $P(|X-`r center`| < `r dist`)$.

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