Contagios

Nº de grupos

Total

Media

n

p

p[x=2]

p[x=0]

p[x<3]

p[x>0]

Mostrar gráfico de la distribución experimental

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

A2 = 0
A3 = 1
A4 = 2
A5 = 3
A6 = 4
B2 = 30
B3 = 62
B4 = 46
B5 = 10
B6 = 2
B18_1 = 0
Sequence(6, 6, 0, 6)
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])
eh: (x(B) - x(A)) / 5
Lteorico: round(Sequence[150 * BinomialDist[4, 0.32, s, false], s, 0, 4])
ev: 3 * (y(A) - y(Corner[1])) / Max[{Max[Lexperimental], Max[Lteorico]}]
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, 4)
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, 4)
puntosx = Sequence(A + (eh / 2 + s, 0), s, 0, 4 * eh, eh)
rotulosx = Sequence(Text[k, A + (eh / 2 + k * eh - 0.05, -0.3)], k, 0, 4)
a = true
b = false