Rechtsseitiger Test

Linksseitiger Test

Ablehnungsbereich anzeigen

p = 0.68 (slider from 0 to 1, step 0.01)
q: 1 - p
n = 100 (slider from 0 to 500, step 1)
k_{links} = 85 (slider from 0 to n, step 1)
k_{rechts} = 85 (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]
Stich: "Stichprobenumfang n = " + n + ""
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 = false
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]
Text_P: "p=" + (LaTeX[p]) + ""
α = 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]) + ""