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

```{r data generation, echo = FALSE, results = "hide"}
library("exams")
include_supplement('geometrisch_sol.Rmd', recursive=TRUE)
library("exams2moodle")
ed   <- exams:::.exams_get_internal("xexams_dir_exercises")
call <- exams2call()
## DATA GENERATION
stories <- list.files(pattern="geometrisch\\_[0-9]*.Rmd", path=paste0(ed, "/zeitreihe"), full.names = TRUE)
story   <- sample(stories, size=1)
## DATA PRESENTATION
# create here all text representation for the exercises
```

Question
========

```{r, child=paste0(exams:::.exams_get_internal("xexams_dir_exercises"), '/exam.Rmd')}
```

```{r, child=story}
```

Question
========



`r round_de(sc$digits)`.

Solution
=========

Mit den Daten aus der Tabelle ergibt sich $i_G 
= \sqrt[`r length(m)-1`]{\frac{x_{`r t[length(t)]`}}{x_{`r t[1]`}}} 
= \sqrt[`r length(m)-1`]{\frac{`r m[length(t)]`}{`r m[1]`}} = `r sc$fx[1]`$.

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

```{r, child='geometrisch_sol.Rmd'}
```

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