Standardnormalverteilung

Aus MM*Stat

Version vom 18. Mai 2018, 13:22 Uhr von Jacobdan (Diskussion | Beiträge) (Die Seite wurde neu angelegt: „{{Verteilungsmodelle}} =={{Vorlage:Überschrift}}== ===Standardnormalverteilung=== Sei <math>Z</math> eine standardisierte Zufallsvar…“)
(Unterschied) ← Nächstältere Version | Aktuelle Version (Unterschied) | Nächstjüngere Version → (Unterschied)
Wechseln zu: Navigation, Suche

Verteilungsmodelle

Diskrete Gleichverteilung • Binomialverteilung • Hypergeometrische Verteilung • Poisson-Verteilung • Stetige Gleichverteilung • Exponentialverteilung • Normalverteilung • Standardnormalverteilung • Schwankungsintervall • Zentraler Grenzwertsatz • Chi-Quadrat-Verteilung • t-Verteilung • F-Verteilung • Approximation von Verteilungen • Multiple Choice • Video • Aufgaben • Lösungen
Approximation • Approximation der Binomialverteilung • Approximation der hypergeometrischen Verteilung • Approximation der Poisson-Verteilung • Bernoulli-Experiment • Endlichkeitskorrektur • Freiheitsgrad • Gauß-Verteilung • Gauß'sche Glockenkurve • Gedächtnislosigkeit der Exponentialverteilung • Gleichverteilung (diskret) • Gleichverteilung (stetig) • Poisson-Prozess • Sicherheitswahrscheinlichkeit • Standardnormalverteilung • Stetigkeitskorrektur • Student'sche t-Verteilung • Überschreitungswahrscheinlichkeit • Zentrales Schwankungsintervall

Grundbegriffe

Standardnormalverteilung

Sei eine standardisierte Zufallsvariable mit

Die Zufallsvariable gibt die Werte der Zufallsvariablen als Abweichungen von ihrem Erwartungswert in Einheiten der Standardabweichung an.

Wenn normalverteilt ist, dann ist auch normalverteilt. Die Normalverteilung von wird dann als Standardnormalverteilung bezeichnet.

Dichtefunktion der Standardnormalverteilung:

Verteilungsfunktion der Standardnormalverteilung:

Erwartungswert und Varianz der Standardnormalverteilung:

Für die Standardnormalverteilung ist die Verteilungsfunktion tabelliert.

Die Dichtefunktion bzw. Verteilungsfunktion geben die nachfolgenden Grafiken wieder.

<R output="display">

pdf(rpdf,width=7,height=7)

curve(from=-4, to=4, dnorm(x, mean=0, sd=1), ylab="f(z)", main="Dichtefunktion der N(0;1)", xlab="z", col="red", ylim=c(0.00,0.4), lty=1, lwd=4, font.lab=2, "xaxs"="i" ,"yaxs"="i", bty="l")

</R>

<R output="display">

pdf(rpdf,width=7,height=7)

curve(from=-4, to=4, pnorm(x, mean=0, sd=1), main="Verteilungsfunktion der N(0;1)", ylab="F(z)", xlab="z", col="red", ylim=c(0.00,1.0), lty=1, lwd=4, font.lab=2, "xaxs"="i" ,"yaxs"="i", bty="l")

</R>

Zusatzinformationen

Standardisierte Normalverteilung und Standardnormalverteilung

Eine Tabellierung der Verteilungsfunktion der Normalverteilung für alle praktisch relevanten Werte von und ist nicht möglich.

Man kann jede gegebene Normalverteilung in eine spezielle Normalverteilung transformieren und diese dann tabellieren.

Es bietet sich an, als spezielle Verteilung diejenige Normalverteilung zu wählen, die den Erwartungswert , und die Standardabweichung besitzt, also die Standardnormalverteilung.

Beziehung zwischen Verteilung und standardisierter Normalverteilung:

Aus

bzw.

folgt:

Die Bedeutung der standardisierten Normalverteilung liegt darin, dass es zu jeder normalverteilten Zufallsvariablen eine linear transformierte Zufallsvariable gibt, die der Standardnormalverteilung folgt.

Bei Verwendung der Tabelle der Dichtefunktion und der Verteilungsfunktion der Standardnormalverteilung ist zu beachten, dass zumeist nur die positiven Werte von tabelliert sind.

Die Tabellierung der Standardnormalverteilung für negative -Werte ist aufgrund der Symmetrie der Normalverteilung nicht erforderlich, da

gilt.

Beispiele

Standardisierte Normalverteilung

Gegeben sei eine Zufallsvariable , die -verteilt ist.

Gesucht ist die Wahrscheinlichkeit P(X ≤ x) mit x = 125

Mit einer Wahrscheinlichkeit von 99,38% nimmt die Zufallsvariable Werte von höchstens 125 an.

<R output="display">

pdf(rpdf,width=7,height=7)

curve(from=60, to=140, dnorm(x, mean=100, sd=10), xaxt="n", ylab="f(x)", xlab="x", col="blue", ylim=c(0.0,0.04), lty=1, lwd=4, font.lab=2, "xaxs"="i" ,"yaxs"="i", bty="l") axis( side=1, at=c(60, 125), tick=FALSE)

par(new=TRUE)

xx <-c(60:125, 125:60) yy <-c(c(dnorm(c(60:125), mean=100, sd=10)),c(rep(0,66))) polygon(xx, yy, col="grey", border=NA)

par(new=TRUE)

curve(from=60, to=140, dnorm(x, mean=100, sd=10), xaxt="n", ylab="f(x)", xlab="x", col="blue", ylim=c(0.0,0.04), lty=1, lwd=4, font.lab=2, "xaxs"="i" ,"yaxs"="i", bty="l")

abline(v=125, col="black", lwd=2)

</R>

Gesucht ist die Wahrscheinlichkeit P(X ≥ x) mit x = 115,6

Mit einer Wahrscheinlichkeit von 5,94% nimmt die Zufallsvariable Werte von mindestens 115,6 an.

<R output="display">

pdf(rpdf,width=7,height=7)

curve(from=60, to=140, dnorm(x, mean=100, sd=10), xaxt="n", ylab="f(x)", xlab="x", col="blue", ylim=c(0.0,0.04), lty=1, lwd=4, font.lab=2, "xaxs"="i" ,"yaxs"="i", bty="l") axis( side=1, at=c(60, 115.6), labels=c("60", "115,6"), tick=FALSE)

par(new=TRUE)

xx <-c(115.6:140.6, 140.6:115.6) yy <-c(c(dnorm(c(115.6:140.6), mean=100, sd=10)),c(rep(0,26)))

polygon(xx, yy, col="grey", border=NA)

par(new=TRUE)

curve(from=60, to=140, dnorm(x, mean=100, sd=10), xaxt="n", ylab="f(x)", xlab="x", col="blue", ylim=c(0.0,0.04), lty=1, lwd=4, font.lab=2, "xaxs"="i" ,"yaxs"="i", bty="l")


abline(v=115.6, col="black", lwd=2)

</R>

Gesucht ist die Wahrscheinlichkeit P(X ≤ x) mit x = 80

Mit einer Wahrscheinlichkeit von 2,275% nimmt die Zufallsvariable Werte von höchstens 80 an.

<R output="display">

pdf(rpdf,width=7,height=7)

curve(from=60, to=140, dnorm(x, mean=100, sd=10), xaxt="n", ylab="f(x)", xlab="x", col="blue", ylim=c(0.0,0.04), lty=1, lwd=4, font.lab=2, "xaxs"="i" ,"yaxs"="i", bty="l") axis( side=1, at=c(60, 80), labels=c("60", "80"), tick=FALSE)

par(new=TRUE)

xx <-c(60:80, 80:60) yy <-c(c(dnorm(c(60:80), mean=100, sd=10)),c(rep(0,21)))

polygon(xx, yy, col="grey", border=NA)

par(new=TRUE)

curve(from=60, to=140, dnorm(x, mean=100, sd=10), xaxt="n", ylab="f(x)", xlab="x", col="blue", ylim=c(0.0,0.04), lty=1, lwd=4, font.lab=2, "xaxs"="i" ,"yaxs"="i", bty="l")


abline(v=80, col="black", lwd=2)

</R>

Gesucht ist die Wahrscheinlichkeit P(X ≥ x) mit x = 94,8

Mit einer Wahrscheinlichkeit von 69,85% nimmt die Zufallsvariable Werte von mindestens 94,8 an.

<R output="display">

pdf(rpdf,width=7,height=7)

curve(from=60, to=140, dnorm(x, mean=100, sd=10), xaxt="n", ylab="f(x)", xlab="x", col="blue", ylim=c(0.0,0.04), lty=1, lwd=4, font.lab=2, "xaxs"="i" ,"yaxs"="i", bty="l") axis( side=1, at=c(60, 94.8), labels=c("60", "94,8"), tick=FALSE)

par(new=TRUE)

xx <-c(94.8:140.8, 140.8:94.8) yy <-c(c(dnorm(c(94.8:140.8), mean=100, sd=10)),c(rep(0,47)))

polygon(xx, yy, col="grey", border=NA)

par(new=TRUE)

curve(from=60, to=140, dnorm(x, mean=100, sd=10), xaxt="n", ylab="f(x)", xlab="x", col="blue", ylim=c(0.0,0.04), lty=1, lwd=4, font.lab=2, "xaxs"="i" ,"yaxs"="i", bty="l")


abline(v=94.8, col="black", lwd=2)

</R>

Gesucht ist die Wahrscheinlichkeit P(x_u ≤ X ≤ x_o) mit x_u = 88,8 und x_o = 132

Mit einer Wahrscheinlichkeit von 86,8% nimmt die Zufallsvariable Werte im Intervall an.

<R output="display">

pdf(rpdf,width=7,height=7)

curve(from=60, to=140, dnorm(x, mean=100, sd=10), xaxt="n", ylab="f(x)", xlab="x", col="blue", ylim=c(0.0,0.04), lty=1, lwd=4, font.lab=2, "xaxs"="i" ,"yaxs"="i", bty="l") axis( side=1, at=c(60, 88.8, 132), labels=c("60", "88,8", "132"), tick=FALSE)

par(new=TRUE)

xx <-c(88.8:131.8, 131.8:88.8) yy <-c(c(dnorm(c(88.8:131.8), mean=100, sd=10)),c(rep(0,44)))

polygon(xx, yy, col="grey", border=NA)

par(new=TRUE)

curve(from=60, to=140, dnorm(x, mean=100, sd=10), xaxt="n", ylab="f(x)", xlab="x", col="blue", ylim=c(0.0,0.04), lty=1, lwd=4, font.lab=2, "xaxs"="i" ,"yaxs"="i", bty="l")


abline(v=88.8, col="black", lwd=2) abline(v=132, col="black", lwd=2)

</R>

Gesucht ist die Wahrscheinlichkeit P(x_u ≤ X ≤ x_o) mit x_u = 80,4 und x_o = 119,6

Mit einer Wahrscheinlichkeit von 95% nimmt die Zufallsvariable Werte im Intervall an.

<R output="display">

pdf(rpdf,width=7,height=7)

curve(from=60, to=140, dnorm(x, mean=100, sd=10), xaxt="n", ylab="f(x)", xlab="x", col="blue", ylim=c(0.0,0.04), lty=1, lwd=4, font.lab=2, "xaxs"="i" ,"yaxs"="i", bty="l") axis( side=1, at=c(60, 80.4, 119.6), labels=c("60", "80,4", "119,6"), tick=FALSE)

par(new=TRUE)

xx <-c(80.4:119.6, 119.6:80.4) yy <-c(c(dnorm(c(80.4:119.6), mean=100, sd=10)),c(rep(0,40)))

polygon(xx, yy, col="grey", border=NA)

par(new=TRUE)

curve(from=60, to=140, dnorm(x, mean=100, sd=10), xaxt="n", ylab="f(x)", xlab="x", col="blue", ylim=c(0.0,0.04), lty=1, lwd=4, font.lab=2, "xaxs"="i" ,"yaxs"="i", bty="l")


abline(v=80.4, col="black", lwd=2) abline(v=119.6, col="black", lwd=2)

</R>

Gesucht ist der Wert x der Zufallsvariablen X, so dass 76,11% der Realisationen von X höchstens gleich x sind

Für die Wahrscheinlichkeit von 0,7611 findet man aus der Tabelle der Verteilungsfunktion der Standardnormalverteilung den Wert .

Damit ist und somit .

Mit einer Wahrscheinlichkeit von 76,11% nimmt die Zufallsvariable Werte von höchstens 107,1 an.

<R output="display">

pdf(rpdf,width=7,height=7)

curve(from=60, to=140, dnorm(x, mean=100, sd=10), xaxt="n", ylab="f(x)", xlab="x", col="blue", ylim=c(0.0,0.04), lty=1, lwd=4, font.lab=2, "xaxs"="i" ,"yaxs"="i", bty="l") axis( side=1, at=c(60, 107.1), labels=c("60", "107,1"), tick=FALSE)

par(new=TRUE)

xx <-c(60.1:107.1, 107.1:60.1) yy <-c(c(dnorm(c(60.1:107.1), mean=100, sd=10)),c(rep(0,48)))

polygon(xx, yy, col="grey", border=NA)

par(new=TRUE)

curve(from=60, to=140, dnorm(x, mean=100, sd=10), xaxt="n", ylab="f(x)", xlab="x", col="blue", ylim=c(0.0,0.04), lty=1, lwd=4, font.lab=2, "xaxs"="i" ,"yaxs"="i", bty="l")

abline(v=107.1, col="black", lwd=2)

</R>

Gesucht ist der Wert x der Zufallsvariablen X, so dass 3,6% der Realisationen von X mindestens gleich x sind

Wegen findet man für die Wahrscheinlichkeit von 0,964 aus der Tabelle der Verteilungsfunktion der Standardnormalverteilung den Wert .

Damit ist und somit .

Mit einer Wahrscheinlichkeit von 3,6% nimmt die Zufallsvariable Werte von mindestens 118 an.

<R output="display">

pdf(rpdf,width=7,height=7)

curve(from=60, to=140, dnorm(x, mean=100, sd=10), xaxt="n", ylab="f(x)", xlab="x", col="blue", ylim=c(0.0,0.04), lty=1, lwd=4, font.lab=2, "xaxs"="i" ,"yaxs"="i", bty="l") axis( side=1, at=c(60, 118), labels=c("60", "118"), tick=FALSE)

par(new=TRUE)

xx <-c(118:140, 140:118) yy <-c(c(dnorm(c(118:140), mean=100, sd=10)),c(rep(0,23)))

polygon(xx, yy, col="grey", border=NA)

par(new=TRUE)

curve(from=60, to=140, dnorm(x, mean=100, sd=10), xaxt="n", ylab="f(x)", xlab="x", col="blue", ylim=c(0.0,0.04), lty=1, lwd=4, font.lab=2, "xaxs"="i" ,"yaxs"="i", bty="l")

abline(v=118, col="black", lwd=2)

</R>