Rescale y-axis

Show critical region at lower end

Show critical region at upper end

Show Normal Approximation

www.mickybullock.com

Pause

Animate p

Show Poisson Approximation

maxx = 26.88
b = true
n = 0 (slider from 0 to 50, step 1)
p = 0.166 (slider from 0 to 1, step 0.001)
list1 = Sequence(Polygon[(i - 0.475, 0), (i - 0.475, ((Binomial[n, i] * p^(i)) * (1 - p)^(n - i))), (i + 0.45, ((Binomial[n, i] * p^(i)) * (1 - p)^(n - i))), (i + 0.45, 0)], i, 0, n)
a = If(b, Max[list1] / 0.925, 1)
c = If(b, 1, 0)
criticalhigh = 0 (slider from criticalhighslidermin to n, step 1)
criticallow = 0 (slider from 0 to n, step 1)
poly1, f, g, h, i = Polygon((-2, 1.05), (-2, 1.6), (103, 1.6), (103, 1.05))
list2 = Sequence(Polygon[(i - 0.475, 0), (i - 0.475, ((Binomial[n, i] * p^(i)) * (1 - p)^(n - i))), (i + 0.45, ((Binomial[n, i] * p^(i)) * (1 - p)^(n - i))), (i + 0.45, 0)], i, 0, criticallow)
list3 = Sequence(Polygon[(i - 0.475, 0), (i - 0.475, ((Binomial[n, i] * p^(i)) * (1 - p)^(n - i))), (i + 0.45, ((Binomial[n, i] * p^(i)) * (1 - p)^(n - i))), (i + 0.45, 0)], i, criticalhigh, n)
d = false
e = false
μ: (n * p)
σ: (((n * p) * (1 - p)))^(0.5)
q(x) = (1 / (((2 * π) * σ^(2)))^(0.5) * 2.71828^(((-(x - μ)^(2))) / ((2 * σ^(2)))))
j = false
ymin = 0
k = Line(A, B)
play = 0
xmax = If(n ≤ 20, 20, n)
list4 = Sequence(Polygon[(i - 0.475, 0), (i - 0.475, (ℯ^(((-n) * p)) * ((n * p))^(i) / i!)), (i + 0.45, (ℯ^(((-n) * p)) * ((n * p))^(i) / i!)), (i + 0.45, 0)], i, 0, n)
xmin: (xmax + 20.88) / ((-40.88))
l = false
criticallowsequence = Sequence(((Binomial[n, i] * p^(i)) * (1 - p)^(n - i)), i, 0, criticallow)
criticallowvalue = Sum(criticallowsequence)
criticalhighsequence = Sequence(((Binomial[n, i] * p^(i)) * (1 - p)^(n - i)), i, criticalhigh, n)
criticalhighvalue = Sum(criticalhighsequence)
criticalhighslidermin = If(d, criticallow + 1, 0)
text2: "P(X≤" + (LaTeX[criticallow]) + ")=" + (LaTeX[criticallowvalue]) + ""
text3: "P(X≥" + (LaTeX[criticalhigh]) + ")=" + (LaTeX[criticalhighvalue]) + ""
m = 0 (slider from 0 to n, step 1)
Plittlex: ((Binomial[n, m] * p^(m)) * (1 - p)^(n - m))
poly2, r, s, t, a_1 = Polygon((m - 0.475, 0), (m - 0.475, ((Binomial[n, m] * p^(m)) * (1 - p)^(n - m))), (m + 0.45, ((Binomial[n, m] * p^(m)) * (1 - p)^(n - m))), (m + 0.45, 0))
text4: "P(X=" + (LaTeX[m]) + ")=" + (LaTeX[Plittlex]) + ""
o = false
criticallownormal = Integral(q, -50, criticallow + 0.5)
criticalhighnormal = Integral(q, criticalhigh - 0.5, n + 50)