Suma

Frec. Absoluta

Frec. Relativa

Pulsa aqui, para Iniciar los 500 lanzamientos

Se lanzan dos dados y se suman los 
puntos obtenidos. La experiencia se 
repite 500 veces. Se representa la
frecuencia absoluta, relativa y el diagrama 
de barras de los resultados obtenidos.

Construya la gráfica en su cuaderno del experimento  aleatorio de lanzar dos dados, considerando la frecuencia absoluta y la suma de los
puntos de la cara.

Gráfica del experimento considerando la frecuencia relativa.

¿Que relación tiene con la gráfica que hace el computador?
¿Se parece?

A3 = 3
A2 = 2
A4: 2 * A3 - A2
lista1 = Sequence(Random[1, 6], i, 1, 500)
A5: 2 * A4 - A3
A6: 2 * A5 - A4
A7: 2 * A6 - A5
A8: 2 * A7 - A6
A9: 2 * A8 - A7
A10: 2 * A9 - A8
A11: 2 * A10 - A9
A12: 2 * A11 - A10
lista2 = Sequence(Random[1, 6], j, 1, 500)
n = 500 (slider from 0 to 500, step 0.1)
lista3 = Sequence(Element[lista1, k] + Element[lista2, k], k, 1, 500)
lista4 = First(lista3, n)
B12 = CountIf(x ≟ A12, lista4)
B2 = CountIf(x ≟ A2, lista4)
B11 = CountIf(x ≟ A11, lista4)
B10 = CountIf(x ≟ A10, lista4)
B9 = CountIf(x ≟ A9, lista4)
B8 = CountIf(x ≟ A8, lista4)
B7 = CountIf(x ≟ A7, lista4)
B6 = CountIf(x ≟ A6, lista4)
B5 = CountIf(x ≟ A5, lista4)
B4 = CountIf(x ≟ A4, lista4)
B3 = CountIf(x ≟ A3, lista4)
B13 = Sum(B2:B12)
A = (-13, 0.1)
B = (-10, 0.1)
C = (-7, 0.1)
D = (-4, 0.1)
E = (-13, 0.18)
F = (-7, 0.18)
C2 = If(B$13 ≟ 0, 0, B2 / B$13)
C3 = If(B$13 ≟ 0, 0, B3 / B$13)
C4 = If(B$13 ≟ 0, 0, B4 / B$13)
C5 = If(B$13 ≟ 0, 0, B5 / B$13)
C6 = If(B$13 ≟ 0, 0, B6 / B$13)
C7 = If(B$13 ≟ 0, 0, B7 / B$13)
C8 = If(B$13 ≟ 0, 0, B8 / B$13)
C9 = If(B$13 ≟ 0, 0, B9 / B$13)
C10 = If(B$13 ≟ 0, 0, B10 / B$13)
C11 = If(B$13 ≟ 0, 0, B11 / B$13)
C12 = If(B$13 ≟ 0, 0, B12 / B$13)
a = BarChart(A2:A12, C2:C12, 0.8)
texto2: "La suma de los dos dados es  " + (If[n ≟ 0, 6, Element[lista3, n]]) + ""