P(X>=k)

P(X<=k)

Ablehnungsbereich anzeigen

P(X=k)

Gegenereignis

k_k = 22 (slider from 0 to n, step 1)
k_{links} = 32 (slider from 0 to n, step 1)
n = 64 (slider from 0 to 200, step 1)
p = 0.57 (slider from 0 to 1, step 0.01)
q: 1 - p
k_{rechts} = 22 (slider from 0 to n, step 1)
a_{lr} = BarChart(k_{rechts} - 0.5, k_{links} + 0.5, Sequence[((Binomial[n, k] * p^(k)) * q^(n - k)), k, k_{rechts}, k_{links}])
binom: BinomialDist[n, p, k_{links}, true] - BinomialDist[n, p, k_{rechts} - 1, true]
b = BarChart(-0.5, n + 0.5, Sequence[((Binomial[n, k] * p^(k)) * q^(n - k)), k, 0, n])
x_Achse: n + 2
y_Achse = 0.5
a_r = BarChart(k_{rechts} - 0.5, n + 0.5, Sequence[((Binomial[n, k] * p^(k)) * q^(n - k)), k, k_{rechts}, n])
a_l = BarChart(-0.5, k_{links} + 0.5, Sequence[((Binomial[n, k] * p^(k)) * q^(n - k)), k, 0, k_{links}])
Anzeigen_r = false
Anzeigen_l = true
P_{Max} = BinomialDist(n, p, round((n * p)), false)
k_{max}: round((p * n))
binom_l = BinomialDist(n, p, k_{links}, true)
binom_r: 1 - BinomialDist[n, p, k_{rechts} - 1, true]
α = 0.05 (slider from 0 to 1, step 0.01)
Anzeigen_lAblehnung = true
Anzeigen_rAblehnung = true
signifikanzniveau: "Signifikanzniveau   \alpha=" + (LaTeX[α]) + ""
Liste_l = Sequence(BinomialDist[n, p, i, true], i, 0, n)
Liste_r = Sequence(1 - BinomialDist[n, p, i - 1, true], i, 0, n)
A_l = Sequence(Element[Liste_l, k]  <  α, k, 1, Length[Liste_l])
Index_l: IndexOf[false, A_l] - 2
Ablehnung_l = BarChart(-0.5, Index_l + 0.5, Sequence[((Binomial[n, k] * p^(k)) * q^(n - k)), k, 0, Index_l])
A_r = Sequence(Element[Liste_r, k]  <  α, k, 1, Length[Liste_r])
Index_r: IndexOf[true, A_r] - 1
Ablehnung_r = BarChart(Index_r - 0.5, n + 0.5, Sequence[((Binomial[n, k] * p^(k)) * q^(n - k)), k, Index_r, n])
Ablehnung_an = false
TextP_{links}: "k=" + (LaTeX[k_{links}]) + "→P(X≤k)=P(X≤" + (LaTeX[k_{links}]) + ")=" + (LaTeX[a_l]) + ""
TextP_{rechts}: "k=" + (LaTeX[k_{rechts}]) + "→P(X≥k)=P(X≥" + (LaTeX[k_{rechts}]) + ")=" + (LaTeX[binom_r]) + ""
a_k = BarChart(k_k - 0.5, k_k + 0.5, Sequence[((Binomial[n, k] * p^(k)) * q^(n - k)), k, k_k, k_k])
Anzeigen_k:false
TextP_k: "k=" + (LaTeX[k_{links}]) + "→P(X=k)=P(X=" + (LaTeX[k_{links}]) + ")= " + (LaTeX[a_k]) + " "
Laenge_n: "Länge der Bernoulli-Kette: n = " + n + ""
Text_P: "Trefferwahrscheinlichkeit: p=" + (LaTeX[p]) + ""
a_{lg} = BarChart(0.5 + k_{links}, n + 0.5, Sequence[((Binomial[n, k] * p^(k)) * q^(n - k)), k, k_{links} + 1, n])
Anzeigen_g:false
a_{kgr} = BarChart(0.5 + k_k, n + 0.5, Sequence[((Binomial[n, k] * p^(k)) * q^(n - k)), k, k_k + 1, n])
a_{kgl} = BarChart(-0.5, k_k - 0.5, Sequence[((Binomial[n, k] * p^(k)) * q^(n - k)), k, 0, k_k - 1])
a_{rg} = BarChart(-0.5, k_{rechts} - 0.5, Sequence[((Binomial[n, k] * p^(k)) * q^(n - k)), k, 0, k_{rechts} - 1])
Text_{kg}1: "P(\overline{X=k})=P(X≤" + (LaTeX[k_k - 1]) + ")+P(X≥" + (LaTeX[k_k + 1]) + ")"
Text_{kg}2: "=" + (LaTeX[a_{kgl} + a_{kgr}]) + ""
Text_{gr}: "P(\overline{X≥k})=P(X≤" + (LaTeX[k_{rechts} - 1]) + ")=" + (LaTeX[a_{rg}]) + ""
Text_{gl}: "P(\overline{X≤k})=P(X≥" + (LaTeX[k_{links} + 1]) + ")=" + (LaTeX[a_{lg}]) + ""