Vielfache

$\mu$

\text{Bernoulli-Kette:}

E(X)

$\sigma(X)$

n =

p =

r = 1 (slider from 1 to 3, step 1)
faktorSigma = If(r ≟ 1, 1.64, If[r ≟ 2, 1.96, 2.58])
p: 1 / 6
n: 120
SX: sqrt(((n * p) * (1 - p)))
EX: (n * p)
xPunkte = Sequence((i, 0), i, 0, n)
d: EX + (faktorSigma * SX)
d1: floor(d)
c: EX - (faktorSigma * SX)
c1: ceil(c)
Verteilung = BinomialDist(n, p)
O = 0.25 (slider from -5 to 5)
U = -0.05 (slider from -5 to 5)
a: EX - SX
b: EX + SX
xHistogramm = Sequence(i, i, a, b)
v: (-0.2, -0.05)
binab = BinomialDist(n, p, Sequence[i, i, c1, d1])
xWerte = Sequence(i, i, 0, n)
yWerte = Sequence(((nCr[n, i] * p^(i)) * (1 - p)^(n - i)), i, 0, n)
P = 1 (slider from -5 to 5)
h = 1 (slider from -5 to 5)
werte = 1 (slider from -5 to 5)
VerteilungX = Zip(Polygon[{P + (0.5, 0), P + (0.5, h), P + (-0.5, h), P + (-0.5, 0)}], P, xPunkte, h, yWerte)
m: x = EX
ga: x = c
gb: x = d
yV = 0.2 (slider from -5 to 5)
A: (c, yV)
M: (EX, yV)
B: (d, yV)
u = Vector(A, M)
w = Vector(M, A)
e = Vector(M, B)
f = Vector(B, M)
kSX: (0, -0.01)
vB: (0, 0.04)
vA: (0, -0.04)
L: ((-n)) / 10
R: n + n / 10
bEX = true
bSA = true
Text4: "\text{Erwartungswert:} \\

\underbrace{E(X)}_{\mu} = n \cdot p = " + (LaTeX[EX]) + ""
Text5: "\text{Standardabweichung:} \\\underbrace{\sigma(X)}_{\sigma} = \sqrt{n \cdot p \cdot (1-p)} = " + (LaTeX[SX]) + ""
Text2: "
\text{Wahrscheinlichkeit:\\ 
P(\underbrace{\mu - " + (LaTeX[faktorSigma]) + "\sigma}_{" + (LaTeX[c]) + "} \leq X \leq \underbrace{\mu + " + (LaTeX[faktorSigma]) + "\sigma)}_{" + (LaTeX[d]) + "} = " + (LaTeX[binab]) + ""
Eingabefeld1 = Textfield(n)
Eingabefeld2 = Textfield(p)
Prozentangabe = If(r ≟ 1, "90%", If[r ≟ 2, "95%", "99%"])
Text8: "" + Prozentangabe + ""
Text3: "\mu+" + (LaTeX[faktorSigma]) + "\sigma = " + (LaTeX[d]) + ""
Text1: "\mu-" + (LaTeX[faktorSigma]) + "\sigma = " + (LaTeX[c]) + ""
Text6: "\mu = " + (LaTeX[EX]) + ""