p1

x =

""

" "

≤ x ≤

intervalo

Cálculo de probabilidades

Cálculo inverso

p =

n =

p = 

Media = 

DT = 

k

p(x=k)

p(x≤k)

Ajuste mediante distribución normal

Cálculo de probabilidades

-

+

-

+

p = 0.4500000000000002 (slider from 0 to 1, step 0.01)
B: Corner[1] + (1 / 5 * (Corner[4] - Corner[1])) + (9 / 10 * (Corner[2] - Corner[1]))
A: Corner[1] + (1 / 5 * (Corner[4] - Corner[1])) + (1 / 10 * (Corner[2] - Corner[1]))
n = 13 (slider from 1 to 140, step 1)
L1bases = Sequence(k, k, 0, n)
L2resultados = Sequence(BinomialDist[n, p, s, false], s, 0, n)
val = false
k = 1 (slider from 0 to n, step 1)
campoDeTexto1 = Textfield(k)
k1 = 0 (slider from 0 to n - 1, step 1)
k2 = 1 (slider from k1 + 1 to n, step 1)
campoDeTexto2 = Textfield(k1)
campoDeTexto3 = Textfield(k2)
inter = false
prointervalo = Sum(Sequence[BinomialDist[n, p, k1 + s, false], s, 0, k2 - 1])
L3bases2 = Sequence(k, k, k1, k2)
L4intervalo = Sequence(BinomialDist[n, p, s, false], s, k1, k2)
L5bases3: {k}
L5intervalo: {BinomialDist[n, p, k, false]}
texto6: "p = " + p
cp = false
inv = false
p1 = 0.43 (slider from 0 to 1, step 0.001)
campoDeTexto4 = Textfield(p1)
B1: n
B2: p
B3: (n * p)
B4: sqrt(((n * p) * (1 - p)))
C2 = 0
C3 = 1
C4: (2 * C3) - C2
C5: (2 * C4) - C3
C6: (2 * C5) - C4
C7: (2 * C6) - C5
C8: (2 * C7) - C6
C9: (2 * C8) - C7
C10: (2 * C9) - C8
C11: (2 * C10) - C9
C12: (2 * C11) - C10
C13: (2 * C12) - C11
C14: (2 * C13) - C12
C15: (2 * C14) - C13
C16: (2 * C15) - C14
C17: (2 * C16) - C15
C18: (2 * C17) - C16
C19: (2 * C18) - C17
C20: (2 * C19) - C18
C21: (2 * C20) - C19
C22: (2 * C21) - C20
C23: (2 * C22) - C21
C24: (2 * C23) - C22
C25: (2 * C24) - C23
C26: (2 * C25) - C24
C27: (2 * C26) - C25
C28: (2 * C27) - C26
C29: (2 * C28) - C27
C30: (2 * C29) - C28
C31: (2 * C30) - C29
C32: (2 * C31) - C30
D2 = BinomialDist(n, p, C2, false)
E2 = BinomialDist(n, p, C2, true)
D3 = BinomialDist(n, p, C3, false)
D4 = BinomialDist(n, p, C4, false)
D5 = BinomialDist(n, p, C5, false)
D6 = BinomialDist(n, p, C6, false)
D7 = BinomialDist(n, p, C7, false)
D8 = BinomialDist(n, p, C8, false)
D9 = BinomialDist(n, p, C9, false)
D10 = BinomialDist(n, p, C10, false)
D11 = BinomialDist(n, p, C11, false)
D12 = BinomialDist(n, p, C12, false)
D13 = BinomialDist(n, p, C13, false)
D14 = BinomialDist(n, p, C14, false)
D15 = BinomialDist(n, p, C15, false)
D16 = BinomialDist(n, p, C16, false)
D17 = BinomialDist(n, p, C17, false)
D18 = BinomialDist(n, p, C18, false)
D19 = BinomialDist(n, p, C19, false)
D20 = BinomialDist(n, p, C20, false)
D21 = BinomialDist(n, p, C21, false)
D22 = BinomialDist(n, p, C22, false)
D23 = BinomialDist(n, p, C23, false)
D24 = BinomialDist(n, p, C24, false)
D25 = BinomialDist(n, p, C25, false)
D26 = BinomialDist(n, p, C26, false)
D27 = BinomialDist(n, p, C27, false)
D28 = BinomialDist(n, p, C28, false)
D29 = BinomialDist(n, p, C29, false)
D30 = BinomialDist(n, p, C30, false)
D31 = BinomialDist(n, p, C31, false)
D32 = BinomialDist(n, p, C32, false)
E3 = BinomialDist(n, p, C3, true)
E4 = BinomialDist(n, p, C4, true)
E5 = BinomialDist(n, p, C5, true)
E6 = BinomialDist(n, p, C6, true)
E7 = BinomialDist(n, p, C7, true)
E8 = BinomialDist(n, p, C8, true)
E9 = BinomialDist(n, p, C9, true)
E10 = BinomialDist(n, p, C10, true)
E11 = BinomialDist(n, p, C11, true)
E12 = BinomialDist(n, p, C12, true)
E13 = BinomialDist(n, p, C13, true)
E14 = BinomialDist(n, p, C14, true)
E15 = BinomialDist(n, p, C15, true)
E16 = BinomialDist(n, p, C16, true)
E17 = BinomialDist(n, p, C17, true)
E18 = BinomialDist(n, p, C18, true)
E19 = BinomialDist(n, p, C19, true)
E20 = BinomialDist(n, p, C20, true)
E21 = BinomialDist(n, p, C21, true)
E22 = BinomialDist(n, p, C22, true)
E23 = BinomialDist(n, p, C23, true)
E24 = BinomialDist(n, p, C24, true)
E25 = BinomialDist(n, p, C25, true)
E26 = BinomialDist(n, p, C26, true)
E27 = BinomialDist(n, p, C27, true)
E28 = BinomialDist(n, p, C28, true)
E29 = BinomialDist(n, p, C29, true)
E30 = BinomialDist(n, p, C30, true)
E31 = BinomialDist(n, p, C31, true)
E32 = BinomialDist(n, p, C32, true)
norm = true
texto0 = If(((n * p)  <  3) ∨ ((n * (1 - p))  <  3), "No es una buena aproximación", If[((n * p) ≥ 5) ∧ ((n * (1 - p)) ≥ 5), "Muy buena aproximación mediante:  B(" + n + "," + p + ") = N(" + B3 + "," + B4 + ")", "Aproximación mediante:  B(" + n + "," + p + ") = N(" + B3 + "," + B4 + ")"])
texto9: "n p = " + ((n * p)) + ""
texto10: "n (1-p) = " + ((n * (1 - p))) + ""
eh: (x(B) - x(A)) / (n + 1)
ev: (3 * (y(A) - y(Corner[1])) / Max[L2resultados])
b1 = Sequence(Polygon[A + ((s * eh), 0), A + (((s + 1) * eh), 0), A + (((s + 1) * eh), (ev * Element[L2resultados, s + 1])), A + ((s * eh), (ev * Element[L2resultados, s + 1]))], s, 0, n)
b2 = Sequence(Polygon[A + ((s * eh), 0), A + (((s + 1) * eh), 0), A + (((s + 1) * eh), (ev * Element[L2resultados, s + 1])), A + ((s * eh), (ev * Element[L2resultados, s + 1]))], s, k1, k2)
b3, b3_2, b3_3, b3_4, b3_5 = Polygon(A + ((k * eh), 0), A + (((k + 1) * eh), 0), A + (((k + 1) * eh), (ev * Element[L2resultados, k + 1])), A + ((k * eh), (ev * Element[L2resultados, k + 1])))
f(x) = If[-1  <  x  <  n + 1,(1 / ((sqrt(((n * p) * (1 - p))) * sqrt((2 * π)))) * ℯ^(((-0.5) * ((x - (n * p)) / sqrt(((n * p) * (1 - p))))^(2))))]
md: ((n * p) * eh) + x(A) + eh / 2
np: (n * p)
distanciaAB = Distance(A, B)
f1(x) = If[x(A) - eh / 2  <  x  <  x(B) + eh / 2,((ev * 1 / ((sqrt(((n * p) * (1 - p))) * sqrt((2 * π))))) * ℯ^(((-0.5) * ((x - ((n * p) * eh) - x(A) - eh / 2) / eh / sqrt(((n * p) * (1 - p))))^(2)))) + y(A)]
puntosx = Sequence(A + (eh / 2 + s, 0), s, 0, (n * eh), eh)
rotulosx1 = Sequence(Text[k, A + (eh / 2 + (k * eh) - 0.05, (-0.3))], k, 0, n)
texto2binomialvalor: "p =\binom{" + (LaTeX[n]) + "}{" + (LaTeX[k]) + "}" + (LaTeX[p]) + "^{" + (LaTeX[k]) + "} \; " + (LaTeX[1 - p]) + "^{" + (LaTeX[n - k]) + "}= " + (LaTeX[BinomialDist[n, p, k, false]]) + ""
texto7: "x ≤ " + (InverseBinomial[n, p, p1] - 1) + ""
texto3intervalo: "p =\sum_{k=" + (LaTeX[k1]) + "}^{" + (LaTeX[k2]) + "}{ \binom{" + (LaTeX[n]) + "}{k}" + (LaTeX[p]) + "^{k}}" + (LaTeX[1 - p]) + "^{" + (LaTeX[n]) + "-k}= " + (LaTeX[BinomialDist[n, p, k2, true] - BinomialDist[n, p, k1 - 1, true]]) + ""
C33: (2 * C32) - C31
C34: (2 * C33) - C32
C35: (2 * C34) - C33
C36: (2 * C35) - C34
C37: (2 * C36) - C35
C38: (2 * C37) - C36
C39: (2 * C38) - C37
C40: (2 * C39) - C38
C41: (2 * C40) - C39
C42: (2 * C41) - C40
C43: (2 * C42) - C41
C44: (2 * C43) - C42
C45: (2 * C44) - C43
C46: (2 * C45) - C44
C47: (2 * C46) - C45
C48: (2 * C47) - C46
C49: (2 * C48) - C47
C50: (2 * C49) - C48
C51: (2 * C50) - C49
C52: (2 * C51) - C50
D33 = BinomialDist(n, p, C33, false)
D34 = BinomialDist(n, p, C34, false)
D35 = BinomialDist(n, p, C35, false)
D36 = BinomialDist(n, p, C36, false)
D37 = BinomialDist(n, p, C37, false)
D38 = BinomialDist(n, p, C38, false)
D39 = BinomialDist(n, p, C39, false)
D40 = BinomialDist(n, p, C40, false)
D41 = BinomialDist(n, p, C41, false)
D42 = BinomialDist(n, p, C42, false)
D43 = BinomialDist(n, p, C43, false)
D44 = BinomialDist(n, p, C44, false)
D45 = BinomialDist(n, p, C45, false)
D46 = BinomialDist(n, p, C46, false)
D47 = BinomialDist(n, p, C47, false)
D48 = BinomialDist(n, p, C48, false)
D49 = BinomialDist(n, p, C49, false)
D50 = BinomialDist(n, p, C50, false)
D51 = BinomialDist(n, p, C51, false)
D52 = BinomialDist(n, p, C52, false)
E33 = BinomialDist(n, p, C33, true)
E34 = BinomialDist(n, p, C34, true)
E35 = BinomialDist(n, p, C35, true)
E36 = BinomialDist(n, p, C36, true)
E37 = BinomialDist(n, p, C37, true)
E38 = BinomialDist(n, p, C38, true)
E39 = BinomialDist(n, p, C39, true)
E40 = BinomialDist(n, p, C40, true)
E41 = BinomialDist(n, p, C41, true)
E42 = BinomialDist(n, p, C42, true)
E43 = BinomialDist(n, p, C43, true)
E44 = BinomialDist(n, p, C44, true)
E45 = BinomialDist(n, p, C45, true)
E46 = BinomialDist(n, p, C46, true)
E47 = BinomialDist(n, p, C47, true)
E48 = BinomialDist(n, p, C48, true)
E49 = BinomialDist(n, p, C49, true)
E50 = BinomialDist(n, p, C50, true)
E51 = BinomialDist(n, p, C51, true)
E52 = BinomialDist(n, p, C52, true)
rotulosx2 = Sequence(Text[k, A + (eh / 2 + (k * eh) - 0.05, (-0.3))], k, 0, n, 5)
texto5: "n = " + n + ""
texto4_1: "Bin(" + n + "," + p + ")"