p_1 = 0.36 (slider from 0 to 1, step 0.01)
n = 30 (slider from 1 to 200, step 1)
p_2 = 0.65 (slider from 0 to 1, step 0.01)
a = 15 (slider from 0 to 100, step 1)
A: (a + 0.5, -1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 1.0 * 0.05)
B: (a + 0.5, 0.15)
d = Segment(A, B)
f1 = Sum(Sequence[Binomial[n, k] * p_1^(k) * (1.0 - p_1)^(n - k), k, a + 1.0, n])
a_2 = BarChart(-0.5, n + 0.5, Sequence[Binomial[n, k] * p_2^(k) * (1.0 - p_2)^(n - k), k, 0.0, n])
a_1 = BarChart(-0.5, n + 0.5, Sequence[Binomial[n, k] * p_1^(k) * (1.0 - p_1)^(n - k), k, 0.0, n])
f2 = Sum(Sequence[Binomial[n, k] * p_2^(k) * (1.0 - p_2)^(n - k), k, 0.0, a])
Text1 = Text("α = " + f1)
Text3 = Text("β = " + f2)