Uds. rechazadas

Nº de lotes

Total

Media

n

p

p[x=0]

p[x≤5]

p[x>2]

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
A7 = 5
A8 = 6
A9 = 7
A10 = 8
A11 = 9
A12 = 10
A13 = 11
A14 = 12
B2 = 1
B3 = 3
B4 = 11
B5 = 22
B6 = 29
B7 = 34
B8 = 34
B9 = 27
B10 = 17
B11 = 12
B12 = 6
B13 = 2
B14 = 2
B18_1 = 0
Sequence(4, 4, 0, 4)
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])
Lbases: A2:A14
Lexperimental: B2:B14
Lteorico: round(Sequence[200 * BinomialDist[100, 0.056, s, false], s, 0, 12])
eh: (x(B) - x(A)) / 13
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, 12)
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, 12)
puntosx = Sequence(A + (eh / 2 + s, 0), s, 0, 12 * eh, eh)
rotulosx = Sequence(Text[k, A + (eh / 2 + k * eh - 0.05, -0.3)], k, 0, 12)
a = true
b = false