# a)
20+30+55+19+40[1] 164
Übungen
| \(X_{i, \,1}\) | \(X_{i, \, 2}\) | |
|---|---|---|
| \(X_{1, \, j}\) | 20 | 2200 |
| \(X_{2, \, j}\) | 30 | 2400 |
| \(X_{3, \, j}\) | 55 | 3640 |
| \(X_{4, \, j}\) | 19 | 1700 |
| \(X_{5, \, j}\) | 40 | 4800 |
Berechnen Sie (vereinfachen Sie ggfs. vor der Berechnung):
# a)
20+30+55+19+40[1] 164
# b)
20*2200 + 30*2400[1] 116000
# c)
2 * (20 + 30 + 55 + 19)[1] 248
# d)
1/4 * (20 + 30 + 55 + 19)[1] 31
# e)
20+2200+30+2400+55+3640+19+1700+40*4800[1] 202064
# f)
2200*2400*3640[1] 19219200000
# g)
# arithmetisches Mittel der ersten vier BeobachtungenThema: Deskriptivstatistik. Als Qualitätssicherungsbeauftragter kontrollieren Sie die Länge von n=16 Schrauben und erhalten folgende Ergebnisse:
Messwerte (in mm): 21, 20, 18, 20, 18, 20, 19, 19, 20, 21, 20, 21, 20, 20, 20, 21.
Erstellen Sie eine Tabelle mit den absoluten (\(f_j\)), relativen (\(r_j\)) und kumulativen relativen Häufigkeiten (\(r_j^+\)).
screws <- c(21, 20, 18, 20, 18, 20, 19, 19, 20, 21, 20, 21, 20, 20, 20, 21)
summarytools::freq(screws, report.nas=FALSE)Frequencies
screws
Type: Numeric
Freq % % Cum.
----------- ------ -------- --------
18 2 12.50 12.50
19 2 12.50 25.00
20 8 50.00 75.00
21 4 25.00 100.00
Total 16 100.00 100.00
screws <- c(21, 20, 18, 20, 18, 20, 19, 19, 20, 21, 20, 21, 20, 20, 20, 21)
mean(screws)[1] 19.875
summary(screws) Min. 1st Qu. Median Mean 3rd Qu. Max.
18.00 19.75 20.00 19.88 20.25 21.00
boxplot(screws, horizontal=TRUE)xg <- (1.02 * 1.03 * 1.02)^(1/3)
zinsen <- (xg-1)*100
cat("Geom. Mittel: ", xg, " das entspricht folgendem jährlichen Zinssatz: ", zinsen, "% p. A.", sep="")Geom. Mittel: 1.023322 das entspricht folgendem jährlichen Zinssatz: 2.33225% p. A.
\(\binom{10}{7}\)
cat(choose(10,7), "Möglichkeiten")120 Möglichkeiten
\(\binom{15}{3}\)
cat(choose(15,3), "Möglichkeiten")455 Möglichkeiten
\(\frac{12!}{4! \cdot 7! \cdot 1!}\)
x <- factorial(12)/(factorial(4)*factorial(7)*factorial(1))
cat(x, "verschiedene Passwörter")3960 verschiedene Passwörter
\(\binom{a}{b} = \frac{a!}{b! \cdot (a-b)!}\)
zu zeigen: \(\binom{n}{0} = 1\). Setze a=n, b=0.
\(\binom{n}{0} = \frac{n!}{0! \cdot (n-0)!} = \frac{\not{n!}}{\not{n!}} = 1\) (Hinweis: 0! = 1)
zu zeigen: \(\binom{n}{n} = 1\). Setze a=n, b=n.
\(\binom{n}{n} = \frac{n!}{n! \cdot (n-n)!} = \frac{\not{n!}}{\not{n!}} = 1\) (Hinweis: 0! = 1)
zu zeigen: \(\binom{n}{k} = \binom{n}{n-k}\).
linke Seite: \(\binom{n}{k} = \frac{n!}{k! (n-k)!}\) (nach Definition!)
rechte Seite: \(\binom{n}{n-k} = \frac{n!}{(n-k)! (n - (n-k))!} = \frac{n!}{(n-k)! (\not{n} -\not{n}+k))!} = \frac{n!}{k! (n-k)!}\)
Also “linke Seite = rechte Seite”.
wskt <- 1 - 0.3*0.55*0.4
cat("Lösungswahrscheinlichkeit:", wskt)Lösungswahrscheinlichkeit: 0.934
Hinweis: Zeichne ein Baumdiagramm!
# ad a)
21/25 * 20/24[1] 0.7
# ad b)
21/25 * 4/24 + 4/25 * 21/24[1] 0.28
# ad c)
4/25 * 3/24 [1] 0.02
A… Alarm
| Ereignis \(B_j\) | \(P(B_j)\) | Alarm \(P(A|B_j)\) |
|---|---|---|
| Einbruch \(B_1\) | 0.1 | 0.99 |
| kein Einbruch \(B_2\) | 0.9 | 0.005 |
\(P(A) = 0.1 \cdot 0.99 + 0.9 \cdot 0.005\)
0.1*0.99 + 0.9*0.005[1] 0.1035
\(P(B_1|A) = \frac{0.1 \cdot 0.99}{0.1 \cdot 0.99 + 0.9 \cdot 0.005}\)
0.1*0.99/(0.1*0.99 + 0.9*0.005)[1] 0.9565217
A… Füllmenge unterschritten
| Maschine \(B_j\) | \(P(B_j)\) | Alarm \(P(A|B_j)\) |
|---|---|---|
| \(M_1\) | 0.1 | 0.02 |
| \(M_2\) | 0.2 | 0.01 |
| \(M_3\) | 0.3 | 0.04 |
| \(M_4\) | 0.4 | 0.02 |
0.1 * 0.02 + 0.2 * 0.01 + 0.3 * 0.04 + 0.4 * 0.02[1] 0.024
\(P(A)= 0.1 \cdot 0.02 + 0.2 \cdot 0.01 + 0.3 \cdot 0.04 + 0.4 \cdot 0.02 = 0.024\)
0.3 * 0.04/(0.1 * 0.02 + 0.2 * 0.01 + 0.3 * 0.04 + 0.4 * 0.02)[1] 0.5
\(P(B_3|A) = \frac{0.3 \cdot 0.04}{0.1 \cdot 0.02 + 0.2 \cdot 0.01 + 0.3 \cdot 0.04 + 0.4 \cdot 0.02} = 0.5\)
U … Unfall
| Ereignis \(B_j\) | \(P(B_j)\) | Unfall \(P(U|B_j)\) |
|---|---|---|
| accident prone \(B_1\) | 0.3 | 0.4 |
| not accicent prone \(B_2\) | 0.7 | 0.2 |
0.3*0.4 + 0.7*0.2[1] 0.26
Thema: Binomialverteilung Bei einer Produktpräsentation bei einem Messestand gibt es die Möglichkeit, Preise zu gewinnen. Jeder Kunde darf fünf mal an einem Glücksrad drehen. Das Glücksrad ist in fünf gleich große Sektoren aufgteteilt, wobei genau ein Sektor gewinnt (die anderen zählen als “Nieten”). Wir bezeichnen mit X die Anzahl der Gewinne eines Kunden bei den fünf Durchgängen.
dbinom(x=1, size=5, p=0.2)[1] 0.4096
dbinom(x=0, size=5, p=0.2) + dbinom(x=1, size=5, p=0.2)[1] 0.73728
dbinom(x=0, size=5, p=0.2) + dbinom(x=1, size=5, p=0.2) + dbinom(x=2, size=5, p=0.2)[1] 0.94208
\(P(X=0) = \binom{20}{0} \cdot 0.01^0 \cdot 0.99^{20}=81.79069\%\)
dbinom(x=0, size=20, prob=0.01)[1] 0.8179069
\(1 - (\binom{20}{0} \cdot 0.01^0 \cdot 0.99^{20} + \binom{20}{1} \cdot 0.01^1 \cdot 0.99^{19} + \binom{20}{2} \cdot 0.01^2 \cdot 0.99^{18})= 0.1003576\%\)
1 - (dbinom(x=0, size=20, prob=0.01) + dbinom(x=1, size=20, prob=0.01) + dbinom(x=2, size=20, prob=0.01))[1] 0.001003576
Berechne \(P(X > 290) + P(X < 240)\)
pnorm(290, mean=270, sd=10, lower.tail=FALSE) + pnorm(240, mean=270, sd=10, lower.tail=TRUE)[1] 0.02410003
also etwa 2.41%.
Transformation \(\displaystyle z=\frac{100-101}{0.5} = -2\) Wahrscheinlichkeit laut Tabelle: 2.28%.
pnorm(100, mean=101, sd=0.5, lower.tail=TRUE)[1] 0.02275013
Transformation \(\displaystyle z=\frac{78-80}{4} = -0.5\) Wahrscheinlichkeit laut Tabelle: 30.85%.
# a)
x <- pnorm(78, mean=80, sd=4, lower.tail=TRUE)
cat("Aufgabe a: ", x*100, "%", sep="")Aufgabe a: 30.85375%
Transformation \(\displaystyle z=\frac{85-80}{4} = 1.25\) Wahrscheinlichkeit laut Tabelle: 89.44%, wir benötigen die Gegenwahrscheinlichkeit: 10.56%.
# b)
x <- pnorm(85, mean=80, sd=4, lower.tail=FALSE)
cat("Aufgabe b: ", x*100, "%", sep="")Aufgabe b: 10.56498%
Transformation \(\displaystyle z=\frac{85-80}{4} = 1.25\) Wahrscheinlichkeit laut Tabelle: 89.44%, subtrahiere noch 50%, erhalte: 39.44%.
# c)
x <- 1- 0.5 - pnorm(85, mean=80, sd=4, lower.tail=FALSE)
cat("Aufgabe c: ", x*100, "%", sep="")Aufgabe c: 39.43502%