Esperando el cinco
Author: José Luis Álvarez

Parchís

Repetir

Número de lanzamientos

(%)

Series

Lanzar el dado

Series de lanzamientos

Resultados teóricos

Número de series de lanzamientos: 

Lanzar

Reiniciar

Series de lanzamientos

Recuento

Número máximo de lanzamientos
en el diagrama:

Tabla de frecuencias

Nº Lanzamientos

Nº de series

%

Más

Total

Número medio de lanzamientos

Lanzar el dado

lanzadado

Lanzar el dado

Series de lanzamientos

Recuento

Reiniciar

% acum

n = 200 (slider from 1 to 200, step 1)
listatiradas = Sequence(IndexOf[5, Sequence[Random[1, 6], k, 1, 200]], j, 1, n)
maximotiradas = Max(listatiradas)
recuentotiradas = Sequence(CountIf[x ≟ k, listatiradas], k, 1, maximotiradas)
recuentoporcentajes: (100 * recuentotiradas / n)
nbarras = 18 (slider from 5 to maximotiradas, step 1)
a = BarChart(Sequence[k, k, 1, nbarras], First[recuentoporcentajes, nbarras], 0.8)
b = Segment((0, 0), (nbarras + 1, 0))
c = Segment((0, 0), (0, (1.21 * Max[recuentoporcentajes])))
rotulosX = Sequence(Text[k, (k, -1)], k, 1, nbarras)
marcasY = Sequence((0, (5 * k)), k, 1, (1.2 * Max[recuentoporcentajes] / 5))
teorico1: ((100 * 1 / 6) * Sequence[(5 / 6)^(k), k, 0, maximotiradas - 1])
teoricoacumulado = Sequence(Sum[teorico1, k], k, 1, maximotiradas)
d = BarChart(Sequence[k, k, 1, nbarras], First[teorico1, nbarras], 0.8)
e = false
f = false
g = false
s = Random(1, 6)
lanza = 7
texto5: "" + lanza + ""
h: lanza ≟ 0
j: lanza ≟ 0
k: lanza ≟ 0
l: lanza ≟ 0
color = If(s ≟ 5, 1, 0)
m = false
A2 = 1
A3 = 2
A4 = 3
A5 = 4
A6 = 5
A7 = 6
A8 = 7
A9 = 8
A10 = 9
A11 = 10
B2 = Element(recuentotiradas, A2)
B3 = Element(recuentotiradas, A3)
B4 = Element(recuentotiradas, A4)
B5 = Element(recuentotiradas, A5)
B6 = Element(recuentotiradas, A6)
B7 = Element(recuentotiradas, A7)
B8 = Element(recuentotiradas, A8)
B9 = Element(recuentotiradas, A9)
B10 = Element(recuentotiradas, A10)
B11 = Element(recuentotiradas, A11)
B12: n - Sum[B2:B11]
B13 = Sum(B2:B12)
C2: (100 * B2 / $B$13)
C3: (100 * B3 / $B$13)
C4: (100 * B4 / $B$13)
C5: (100 * B5 / $B$13)
C6: (100 * B6 / $B$13)
C7: (100 * B7 / $B$13)
C8: (100 * B8 / $B$13)
C9: (100 * B9 / $B$13)
C10: (100 * B10 / $B$13)
C11: (100 * B11 / $B$13)
C12: (100 * B12 / $B$13)
C13 = Sum(C2:C12)
texto8: "Sale el 5 en el 
lanzamiento " + lanza + ""
med = Mean(listatiradas)
i = Segment((med, 0), (med, Max[recuentoporcentajes]))
o = false
texto9: "\bar{x}=" + (LaTeX[med]) + ""
p = true
A = (-1.447272727272727, 0.9927272727272751)
lanza0 = 1
sale5 = 0
la: (l * a)
texto10: "Nº de lanzamientos: " + (LaTeX[lanza0]) + " "
texto11: "Nº de veces el 5: " + sale5 + " (" + ((100 * sale5 / lanza0)) + "%)"
B = (-1.0654545454545452, -1.3163636363636337)
C = (-1.3563636363636362, -1.3163636363636337)
rotulosY = Sequence(Text[(5 * k), (((-0.05) * nbarras), (5 * k))], k, 1, (1.2 * Max[recuentoporcentajes] / 5))
q = Segment((6, 0), (6, Max[recuentoporcentajes]))
D2: C2
D3: C3 + D2
D4: C4 + D3
D5: C5 + D4
D6: C6 + D5
D7: C7 + D6
D8: C8 + D7
D9: C9 + D8
D10: C10 + D9
D11: C11 + D10
D12: C12 + D11
D13 = 100
texto7 = TableText({{A1, A2, A3, A4, A5, A6, A7, A8, A9, A10, A11, A12, A13}, {B1, B2, B3, B4, B5, B6, B7, B8, B9, B10, B11, B12, B13}, {C1, C2, C3, C4, C5, C6, C7, C8, C9, C10, C11, C12, C13}, {D1, D2, D3, D4, D5, D6, D7, D8, D9, D10, D11, D12, D13}}, "c_|")