```{r, echo=FALSE}
library("exams")
include_supplement('bedingte_wk.num', recursive=TRUE)
library("exams.forge")
instruction <- NULL
repeat {
  ab      <- sample(2, 1)
  gesucht <- switch(ab, "E|A", "E|!A")
  pa      <- sample(c(6:9)/10, 1)
  pba     <- pa*sample((1:9)/10, 1)
  pba[2]  <- pa-pba
  ev      <- prob_solve(gesucht, "A"=pa, "E^A"=pba[1], "!E^A"=pba[2], getprob=TRUE)
  if (!is.na(ev)) break
}
sc  <- num_result(ev, 4)
```

Question
=======

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

An `r 100*pa`% der Tage eines Semesters hat Chiara abends eine Vorlesung. Deswegen hat sie sich angewöhnt vorher noch einen Espresso zu trinken, wenn es die Zeit zulässt; dies tut sie an `r 100*pba[1]`% der Tage eines Semesters.
Inzwischen trinkt Chiara auch an `r 100*pba[2]`% der Tage eines Semesters einen Espresso und hat keine Abendvorlesung.
Berechnen Sie die Wahrscheinlichkeit, dass Chiara heute einen Espresso getrunken hat, wenn sie `r if(ab) "keine" else "eine"` Abendvorlesung hatte.

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

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