-
Notifications
You must be signed in to change notification settings - Fork 0
/
03_Aufgaben.Rmd
95 lines (65 loc) · 3.86 KB
/
03_Aufgaben.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
## Übungsaufgaben {-}
`r naechste("aufgabe", T) # ex1`
a) Führen Sie eine $z$-Transformation der folgenden Verteilung durch:
```{r}
set.seed(2220)
rnorm(9, -20, 8) %>%
round(2) -> ex_3_1_a
dcat(ex_3_1_a)
```
b) Sie kennen das arithmetische Mittel (221,54) und die Varianz (13,02) einer Verteilung. Welche $x$-Werte entsprechen diesen $z$-Werten?
```{r}
set.seed(2220)
runif(12, -3, 3) %>%
rlist::list.filter(~ abs(.) <= 3) %>%
round(2) -> ex_3_1_b
dcat(ex_3_1_b)
```
`r naechste("aufgabe") # ex2`
Gegeben sei eine Normalverteilung beschrieben durch:
\[x \sim N(32{,}2,\enspace19{,}36)\]
a) Mit welcher Wahrscheinlichkeit werden die folgenden Werte unterschritten?
```{r}
set.seed(9444)
runif(6, 32.2-3*4.4, 32.2+3*4.4) %>%
round(2) -> ex_3_2_a
dcat(ex_3_2_a)
```
b) Welche Werte werden jeweils mit der folgenden Wahrscheinlichkeit über(!)schritten?
```{r}
c(1.5, 2.5, 5, 13, 50, 90, 99, 99.5) %>%
`/`(100) -> ex_3_2_b
ex_3_2_b %>%
map(~ format(.x * 100)) %>%
sprintf("%s%%", .) %>%
dcat()
```
c) In welchem Bereich liegen die mittleren 95% der Werte?
d) Wie wahrscheinlich ist es, dass ein Wert zwischen 30 und 40 liegt?
`r naechste("aufgabe") # 3`
Deiche werden durch Wasserdruck bei Hochwasser belastet und dadurch beschädigt. Bei einem 12 m hohen Deich gilt als kritische Marke ein Wasserstand von 10 m. Die jährlichen Höchstwasserstände des Flusses sind normalverteilt mit einem Mittelwert von 9,01 m und einer Standardabweichung von 2,23 m.
In den folgenden Teilaufgaben beantworten wir Schritt für Schritt die Frage, wie wahrscheinlich es (für ein beliebiges Jahr) ist, dass der Deich das jährliche Hochwasser ohne Beschädigung übersteht, d. h. dass ein Höchstwasserstand von 10 m oder weniger eintritt.
a) Zeichnen Sie die Wahrscheinlichkeitsdichtefunktion (ganz grob, ohne $y$-Achse).
a) Markieren Sie den kritischen Wert 10 m.
a) Welchem $z$-Wert entspricht die kritische Marke von 10 ?
b) Mit welcher Wahrscheinlichkeit bleibt der Deich in einem gegebenen Jahr unbeschädigt (Höchstwasserstand unter der kritischen Marke von 10 m)?
`r naechste("aufgabe") # 4`
Wir bleiben beim Deich aus Aufgabe 3.
a) Mit welcher Wahrscheinlichkeit wird der Deich beschädigt (Wasserstand über 10 m)?
a) Mit welcher Wahrscheinlichkeit wird der Deich nicht nur beschädigt, sondern läuft über (Wasserstand über 12 m)?
a) Mit welcher Wahrscheinlichkeit wird der Deich beschädigt, läuft aber nicht über (Wasserstand zwischen 10 und 12 m)?
a) In welchen Grenzen liegen die mittleren 80% der Hochwasserstände?
`r naechste("aufgabe") # 5`
Es ist ein neuer Deich zu bauen, der so sicher sein soll, dass er nur alle 200 Jahre vom Hochwasser übertreten wird.
a) Welcher Wahrscheinlichkeitswert $p=P(x < x_p)$ ist anzuwenden, d. h. wie wahrscheinlich ist die *Unterschreitung* eines "zweihundertjährigen Hochwassers"?
b) Mit welchem $z$-Wert korrespondiert der gesuchte Wert $x_p$?
c) Wie hoch muss dieser Deich sein? (Welcher Wert $x_p$ entspricht diesem $z_p$?)
`r naechste("aufgabe") # 6`
Die jährlichen Niederschlagsmengen in Mittelstedt betragen im Durchschnitt 400 mm bei annähernder Normalverteilung und einer Standardabweichung von 100 mm.
a) Wie groß ist die Wahrscheinlichkeit, dass mehr als 500 mm Niederschlag fallen?
b) Wie oft pro hundert Jahre kann mit weniger als 200 mm Niederschlag gerechnet werden?
c) Mit welcher Wahrscheinlichkeit fallen zwischen 200 und 550 mm Niederschlag?
d) Welche Niederschlagsmenge wird wahrscheinlich in nur 2 von 100 Jahren übertroffen?
e) In welchen Grenzen liegen die mittleren 75% der jährlichen Niederschlagsmenge?
`r naechste("aufgabe") # 7`
Errechnen Sie für die Verteilungen in [Aufgabe 5 aus Sitzung 2](#aufgabe-2-5) jeweils den Variationskoeffizienten.