μ_1

σ_1

n

n: 10
B11: 0
B10: 0
B9: 0
B8: 0
B7: 0.125
B6: 0.25
B5: 0.375
B4: 0.25
p_1: {B4, B5, B6, B7, B8, B9, B10, B11}
cf1 = Sum(Sequence[(p_1(i + 1) * x^(i)), i, 0, 7])
A4: 0
A5: 1
A6 = 2
A7 = 3
A8 = 4
A9 = 5
A10 = 6
A11 = 7
B1 = mean(A4:A11, B4:B11)
B2 = stdevp($A4:$A11, B4:B11)
k_n = Coefficients((cf1(x))^(n))
μ_1 = mean(A4:A11, B4:B11)
σ_1 = stdevp($A4:$A11, B4:B11)
b = Length(k_n)
p_n = Sequence(Element[k_n, Length[k_n] - i], i, 0, Length[k_n] - 1)
g = Normal((n * μ_1), (sqrt(n) * σ_1), x, false)
Eingabefeld1 = Textfield(n)
a = BarChart(0…(Length[p_n] - 1), p_n)
c: Length[p_n] - (7 * n)
μ_n: (n * μ_1)
σ_n: (sqrt(n) * σ_1)
von: μ_n - (4 * σ_n)
bis: μ_n + (4 * σ_n)
max: (1.2 * g(μ_n))
Text1 = LaTeX(p_1, true, true)
k = 2 (slider from 1 to 3, step 0.01)
li: ceil(μ_n - (k * σ_n))
re: floor(μ_n + (k * σ_n))
ks = Sequence(Element[p_n, i], i, li + 1, re + 1)
P_{kσ} = BarChart(li…re, ks)
Text2 = LaTeX(P_{kσ}, true, true)
ohneStetigkeitskorrektur = Integral(g(x), li, re)
Text3 = LaTeX(ohneStetigkeitskorrektur, true, true)
mitStetigkeitskorrektur = Integral(g(x), li - 0.5, re + 0.5)
Text4 = LaTeX(mitStetigkeitskorrektur, true, true)
Text5 = LaTeX(μ_1, true, true)
Text6 = LaTeX(σ_1, true, true)
dezimal = Segment((μ_n - (k * σ_n), -0.015), (μ_n + (k * σ_n), -0.015))
ganzzahlig = Segment((ceil(μ_n - (k * σ_n)), -0.009), (floor(μ_n + (k * σ_n)), -0.009))