Verschiebung nach rechts

Glockenkurve

angepasste Skalierung

x_1

0

\mu

1

\sigma

Binomialverteilung

\varphi(x) = \frac{1}{\sqrt{2\pi}}e^{-\frac{1}{2}x^2}

z = \frac{x - μ}{σ}

z_1

σ \cdot P(X = x) \; \textcolor{black}{\approx} \; \textcolor{orange}{φ(z)}

1

-1

μ

μ+σ

μ-σ

-1

1

Variation

Strukturierung

x_2

z_2

Transform. Fläche

Fläche unter d. GK

Stand. Histogramm

μ+2σ

μ-2σ

2

2

-2

-2

V1 = BinomialDist(20, 0.25)
gU: -0.1
gO: 0.5
n = 100 (slider from 1 to 100, step 1)
p = 0.25 (slider from 0.01 to 0.99, step 0.01)
gn20p025 = Sequence(i - 0.5, i, 0, n + 1)
hn20p025 = Sequence(BinomialDist[n, p, k, false], k, 0, n)
μ: (n * p)
v = 25 (slider from 0 to μ, step 0.01)
gvn20p025 = Zip(i - μ, i, gn20p025)
σ: sqrt(((n * p) * (1 - p)))
gvsn20p025 = Zip(i / σ, i, gvn20p025)
Hvsn20p025 = Histogram(gvsn20p025, hn20p025)
hsn20p025 = Zip((i * σ), i, hn20p025)
Hvssn20p025 = Histogram(gvsn20p025, hsn20p025)
StreckeE = Segment((0, 0), (μ, 0))
E = Point(StreckeE)
S: E + (σ, 0)
Text1: "" + (μ - v) + ""
v': μ - v
grenzen = Sequence(i - 0.5, i, 0, n + 1)
grenzenverschoben = Zip(i - v, i, grenzen)
hoehen = Sequence(BinomialDist[n, p, k, false], k, 0, n)
Hv = Histogram(grenzenverschoben, hoehen)
s = 4.33 (slider from smin to smax, step 0.01)
smin = Min(1, σ)
smax = Max(1, σ)
hoehengedehnt = Zip((i * s), i, hoehen)
grenzenverschobengestaucht = Zip(i / s, i, grenzenverschoben)
Hvs = Histogram(grenzenverschobengestaucht, hoehengedehnt)
φ(x) = (1 / sqrt((2 * pi)) * ℯ^((-1 / 2 * x^(2))))
bGlockenkurve = false
bSkalierung = true
xPunkte = Sequence((i, 0), i, 0, n)
X1 = Point(xPunkte)
xRechteckvs = Polygon({(grenzenverschobengestaucht(x(X1) + 1), 0), (grenzenverschobengestaucht(x(X1) + 2), 0), (grenzenverschobengestaucht(x(X1) + 2), hoehengedehnt(x(X1) + 1)), (grenzenverschobengestaucht(x(X1) + 1), hoehengedehnt(x(X1) + 1))})
xRechteck = Polygon({(grenzen(x(X1) + 1), 0), (grenzen(x(X1) + 2), 0), (grenzen(x(X1) + 2), hoehen(x(X1) + 1)), (grenzen(x(X1) + 1), hoehen(x(X1) + 1))})
Text5: "Verschiebung nach links: " + v + ""
Text6: "Stauchen / Strecken mit Faktor: " + s + ""
Text2: "μ: " + μ + ""
Text10: "σ: " + σ + ""
gL: -5
k: x(X1)
Text13: "x = " + k + ""
x1: x(X1)
Z1: ((x1 - v) / s, 0)
Text12: "P(X =x) \approx " + (LaTeX[hoehen(k + 1)]) + ""
gE = Ray(E, E + (0, 1))
gS1 = Ray((x(E) + σ, 0), (x(E) + σ, 1))
gS2 = Ray((x(E) - σ, 0), (x(E) - σ, 1))
gE' = Ray(((x(E) - v) / s, 0), ((x(E) - v) / s, 1))
gS1' = Ray(((x(E) - v + σ) / s, 0), ((x(E) - v + σ) / s, 1))
gS2' = Ray(((x(E) - v - σ) / s, 0), ((x(E) - v - σ) / s, 1))
E1: (1, 0.5) - (Corner[Text16, 4] - Corner[Text16, 1])
E2: (-1, 0.5) - (Corner[Text17, 4] - Corner[Text17, 1])
bTexth2: x(Corner[Texth2, 2] - Corner[Texth2, 1])
bTexth1: x(Corner[Texth1, 2] - Corner[Texth1, 1])
bVariation = true
bStrukturierung = true
gR = If(bSkalierung, μ + (4 * σ), 35)
X2 = Point(xPunkte)
x2: x(X2)
H = Histogram(grenzen, hoehen)
grenzenintervall = Sequence(i - 0.5, i, x1, x2 + 1)
grenzenintervallverschoben = Zip(i - v, i, grenzenintervall)
grenzenintervallverschobengestaucht = Zip(i / s, i, grenzenintervallverschoben)
hoehenintervall = Sequence(BinomialDist[n, p, k, false], k, x1, x2)
Hintervall = Histogram(grenzenintervall, hoehenintervall)
Hvintervall = Histogram(grenzenintervallverschoben, hoehenintervall)
hoehengedehntintervall = Zip((i * s), i, hoehenintervall)
Hvsintervall = Histogram(grenzenintervallverschobengestaucht, hoehengedehntintervall)
Z2: ((x2 - v) / s, 0)
z1': (x1 - v - 1 / 2) / s
z2': (x2 - v + 1 / 2) / s
I = Integral(φ, z1', z2')
bHistogramm = true
bFlaeche = false
bHistogrammSt = true
Px1x2: BinomialDist[n, p, x2, true] - BinomialDist[n, p, x1 - 1, true]
Text18: "P(" + (LaTeX[x1]) + " \le X \le " + (LaTeX[x2]) + ") \approx " + (LaTeX[Px1x2]) + ""
gS3 = Ray((x(E) + (2 * σ), 0), (x(E) + (2 * σ), 1))
gS4 = Ray((x(E) - (2 * σ), 0), (x(E) - (2 * σ), 1))
gS3' = Ray(((x(E) - v + (2 * σ)) / s, 0), ((x(E) - v + (2 * σ)) / s, 1))
gS4' = Ray(((x(E) - v - (2 * σ)) / s, 0), ((x(E) - v - (2 * σ)) / s, 1))
bTexth4: x(Corner[Text20, 2] - Corner[Text20, 1])