Mostrar gráfico de la distribución experimental

Mostrar gráfico de la distribución teórica

Total

Media

n

p

$ p(x=k)=\left(  \begin{array}{} n \ k\end{array}  \right)p^{k}(1-p)^{n-k}  $

B11 = 0
B10 = 2
A2 = 0
A3 = 1
A4 = 2
A5 = 3
A6 = 4
B2 = 0
B3 = 0
B4 = 0
B5 = 0
B6 = 0
B18_1 = 0
Lexperimental: B2:B6
Lbases: A2:A6
A: Corner[1] + 1 / 5 * (Corner[4] - Corner[1]) + 1 / 10 * (Corner[2] - Corner[1])
B: Corner[1] + 1 / 5 * (Corner[4] - Corner[1]) + 9 / 10 * (Corner[2] - Corner[1])
Lteorico: round(Sequence[150 * BinomialDist[B10, B11, s, false], s, 0, 4])
eh: (x(B) - x(A)) / 5
ev: 3 * (y(A) - y(Corner[1])) / Max[{Max[Lexperimental], Max[Lteorico], 1}]
a = false
b = false
A7 = 5
B7 = 0
B9 = 0
B8 = 0
rotulosx = Sequence(Text[k, A + (eh / 2 + k * eh - 0.05, -0.3)], k, 0, B10)
puntosx = Sequence(A + (eh / 2 + s, 0), s, 0, B10 * eh, eh)
b1 = Sequence(Polygon[A + (s * eh, 0), A + ((s + 1) * eh, 0), A + ((s + 1) * eh, ev * Element[Lexperimental, s + 1]), A + (s * eh, ev * Element[Lexperimental, s + 1])], s, 0, B10)
b2 = Sequence(Polygon[A + (s * eh, 0), A + ((s + 1) * eh, 0), A + ((s + 1) * eh, ev * Element[Lteorico, s + 1]), A + (s * eh, ev * Element[Lteorico, s + 1])], s, 0, B10)