carreracaballos0
Author: Pepe

Reiniciar

Lanza una vez

Lanza muchas:

f_a

f_r

+ rápido

+ despacio

total

A

no A

f_a

f_r

c6 = false
N: 500
ceros = Sequence(0, i, 1, N)
tiradas = Sequence(Random[1, 6], i, 1, N)
Frrelativastodas = Sequence(Frequency[{0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5}, First[tiradas, k]] / k, k, 1, N)
c5 = true
c4 = false
c3 = false
c1 = false
ordenadas1 = If(c1, Sequence[Element[Element[Frrelativastodas, k], 1], k, 1, N], ceros)
c2 = false
ordenadas2 = If(c2, Sequence[Element[Element[Frrelativastodas, k], 2], k, 1, N], ceros)
ordenadas3 = If(c3, Sequence[Element[Element[Frrelativastodas, k], 3], k, 1, N], ceros)
ordenadas4 = If(c4, Sequence[Element[Element[Frrelativastodas, k], 4], k, 1, N], ceros)
ordenadas5 = If(c5, Sequence[Element[Element[Frrelativastodas, k], 5], k, 1, N], ceros)
ordenadas6 = If(c6, Sequence[Element[Element[Frrelativastodas, k], 6], k, 1, N], ceros)
ordenadas: ordenadas1 + ordenadas2 + ordenadas3 + ordenadas4 + ordenadas5 + ordenadas6
n = 1 (slider from 0 to N, step 1)
Frabsolutas = Frequency({0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5}, First[tiradas, n])
PV = (-2.4, 0.78)
A2: 1
A3: 2
A4: 3
A5: 4
A6: 5
A7: 6
B3 = Element(Frabsolutas, A3)
B4 = Element(Frabsolutas, A4)
B5 = Element(Frabsolutas, A5)
B6 = Element(Frabsolutas, A6)
B7 = Element(Frabsolutas, A7)
B8: n
d1 = -1 (slider from -1 to 1, step 2)
dado = Element(tiradas, n)
a: true
velo = 0.5
B2 = Element(Frabsolutas, A2)
C2: B2 / B$8
C3: B3 / B$8
C4: B4 / B$8
C5: B5 / B$8
C6: B6 / B$8
C7: B7 / B$8
C8 = Sum(C2:C7)
tabla1 = TableText({A1:A8, B1:B8, C1:C8}, "vc|_")
verbotonestxikis: false
sucesoA: {5}
B10 = Sum(D2:D7)
B11: B8 - B10
C10: B10 / B8
C11: B11 / B$8
puntos = Sequence((k, Element[ordenadas, k]), k, 1, N)
puntosvisibles = First(puntos, n)
PG: (B8, C10)
segmentos = Sequence(Segment[Element[puntosvisibles, k], Element[puntosvisibles, k + 1]], k, 1, N - 1)
D2 = If(c1, B2, 0)
D3 = If(c2, B3, 0)
D4 = If(c3, B4, 0)
D5 = If(c4, B5, 0)
D6 = If(c5, B6, 0)
D7 = If(c6, B7, 0)
texto2: "A = {" + (If[c1, " 1", ""]) + "" + (If[c2, If[c1, ", 2", " 2"], ""]) + "" + (If[c3, If[c1 ∨ c2, ", 3", " 3"], ""]) + "" + (If[c4, If[c1 ∨ c2 ∨ c3, ", 4", " 4"], ""]) + "" + (If[c5, If[c1 ∨ c2 ∨ c3 ∨ c4, ", 5", " 5"], ""]) + "" + (If[c6, If[c1 ∨ c2 ∨ c3 ∨ c4 ∨ c5, ", 6", " 6"], ""]) + " }"
tabla2 = TableText({{A9, A10, A11}, {B9, B10, B11}, {C9, C10, C11}}, "vc|_")