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

```{r,  echo = FALSE, results = "hide"}
library('exams')
library('exams.forge')
instruction <- NULL
include_supplement('fluggesellschaft.num', recursive=TRUE)

mean    <- sample(60:90, 1)
sd      <- sample(2:6, 1)
border  <- sample(seq((mean-3*sd), (mean+3*sd), by=0.1), 1)
zborder <- (border-mean)/sd
# n passengers pro airplane
n       <- sample(seq(10, 50, by=10), 1)
mean    <- n*mean
sd      <- n*sd
border  <- n*border
d       <- distribution("norm", mean=mean, sd=sd)
ptype   <- "point"
lsg     <- 0
sc <- num_result(lsg, 4)
```

Question
=======

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

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

Die Zufallsvariable $X$ "Gesamtgewicht der Passagiere eines voll besetzen Flugzeugs" sei normalverteilt mit den Parametern $\mu= `r sprintf("%.0f", mean)`$ kg und $\sigma^2=`r sprintf("%.0f", sd^2)`$ $kg^2$. Bestimmen Sie die Wahrscheinlichkeit dafür, dass das Gesamtgewicht der Fluggäste eines voll besetzten Flugzeugs **genau** `r border` kg ist.

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

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