Author: Dmentrard

1

2

3

4

5

6

 \frac{ 1 }{ 6} 

valeur théorique

Cara uno

Cara seis

Cara cinco

Cara dos

Cara tres

Cara cuatro

Número de apariciones de cada cara

caras

n = 630 (slider from 1 to 1000, step 1)
list1 = Sequence(floor(6.0 * random() + i / i), i, 1.0, n)
a = Lcompte(1.0, list1)
b = Lcompte(2.0, list1)
c = Lcompte(3.0, list1)
d = Lcompte(4.0, list1)
e = Lcompte(5.0, list1)
f = Lcompte(6.0, list1)
g: a + b + c + d + e + f
fa: a / n
M: (n, fa)
A = (98.04436675747193, 0.005237396944048872)
B: (x(A) + 600.0, y(A))
C: (x(A), y(A) + 1.4)
u = Vector(A, B)
v = Vector(A, C)
m = 0.006363636363636363
A_1: (x(A) + 80.0, y(A))
A_2: (x(A_1), y(A_1) + a * m)
A_3: (x(A), y(A_2))
poly1, a_3, a_2, a_1, a_4 = Polygon(A_3, A_2, A_1, A)
B_1: (x(A_1) + 80.0, y(A))
B_2: (x(B_1), y(B_1) + m * b)
B_3: (x(A_1), y(B_2))
poly2, a_5, b_1, b_2, b_3 = Polygon(A_1, B_1, B_2, B_3)
C_1: (x(B_1) + 80.0, y(A))
C_2: (x(C_1), y(C_1) + m * c)
C_3: (x(B_1), y(C_2))
poly3, b_4, c_1, c_2, c_3 = Polygon(B_1, C_1, C_2, C_3)
D_1: (x(C_1) + 80.0, y(A))
D_2: (x(D_1), y(D_1) + m * d)
D_3: (x(C_1), y(D_2))
poly4, c_4, d_1, d_2, d_3 = Polygon(C_1, D_1, D_2, D_3)
E_1: (x(D_1) + 80.0, y(A))
E_2: (x(E_1), y(E_1) + m * e)
E_3: (x(D_1), y(E_2))
poly5, d_4, e_1, e_2, e_3 = Polygon(D_1, E_1, E_2, E_3)
F_1: (x(E_1) + 80.0, y(E_1))
F_2: (x(F_1), y(F_1) + m * f)
F_3: (x(E_1), y(F_2))
poly6, e_4, f_1, f_2, f_3 = Polygon(E_1, F_1, F_2, F_3)
text7: "" + a
text8: "" + b
text9: "" + c
text10: "" + d
text11: "" + e
text12: "" + f
i: y = y(A) + m * n / 6.0
D = Intersect(i, a_4)
E: (x(D) + 600.0, y(D))
j = Segment(D, E)
text14: "" + (n / 6.0)
T3: "f =  \;  \frac{" + a + "  }{" + n + " }  =  \; " + (a / n)
T2: "f =  \;  \frac{" + b + "  }{" + n + " }  =  \; " + (b / n)
T4: "f =  \;  \frac{" + c + "  }{" + n + " }  =  \; " + (c / n)
T5: "f =  \;  \frac{" + d + "  }{" + n + " }  =  \; " + (d / n)
T6: "f =  \;  \frac{" + e + "  }{" + n + " }  =  \; " + (e / n)
T7: "f =  \;  \frac{" + f + "  }{" + n + " }  =  \; " + (f / n)
F = (797.5781778078656, 1.3997438758523673)
G = (1198.9711948496963, 1.3997438758523673)
H = (1198.9711948496963, 0.001327846755174964)
I = (800.1594833836972, 0.010349885652576205)
poly7, f_4, g_1, h_1, i_1 = Polygon(F, G, H, I)
J = Point(f_4)
K = Point(poly7)
k = Segment(J, K)
N = Midpoint(G, H)
O = Midpoint(F, I)
L = Midpoint(F, O)
Q = Midpoint(L, F)
R = Midpoint(L, O)
S = Midpoint(L, Q)
T = Midpoint(L, R)
U = Midpoint(O, R)
V = Midpoint(Q, F)
W = Midpoint(N, G)
Z = Midpoint(W, G)
A1 = Midpoint(W, Z)
B1 = Midpoint(Q, S)
C1 = Midpoint(A1, Z)
l = Segment(B1, C1)
D1 = Midpoint(N, W)
E1 = Midpoint(D1, W)
p = Segment(T, E1)
q = Segment(O, N)
T' = Mirror(T, O)
T'_1 = Mirror(T, q)
E1' = Mirror(E1, q)
r = Segment(T'_1, E1')
B1' = Mirror(B1, q)
C1' = Mirror(C1, q)
s = Segment(B1', C1')

Tool: Lcompte
Retourne le nombre d'occurences de Nombre dans Liste
Input: b, L1
Output: a

L1: {2.0, 5.0, 2.0, 3.0, 4.0, 6.0, 4.0, 5.0, 3.0, 5.0, 1.0, 5.0, 5.0, 4.0, 2.0, 6.0, 1.0, 6.0, 2.0, 5.0, 3.0, 6.0, 1.0, 6.0, 4.0, 1.0, 3.0, 5.0, 5.0, 1.0, 6.0, 6.0, 2.0, 4.0, 4.0, 5.0, 3.0, 3.0, 3.0, 5.0, 5.0, 4.0, 3.0, 3.0, 2.0, 6.0, 3.0, 1.0, 3.0, 6.0, 5.0, 1.0, 2.0, 2.0, 5.0, 6.0, 2.0, 6.0, 3.0, 2.0, 6.0, 6.0, 2.0, 5.0, 2.0, 3.0, 3.0, 1.0, 1.0, 2.0, 1.0, 6.0, 5.0, 6.0, 5.0, 6.0, 2.0, 3.0, 2.0, 5.0, 3.0, 3.0, 2.0, 4.0, 4.0, 2.0, 6.0, 2.0, 1.0, 2.0, 5.0, 2.0, 2.0, 3.0, 1.0, 1.0, 3.0, 6.0, 3.0, 4.0, 5.0, 2.0, 6.0, 3.0, 2.0, 1.0, 5.0, 2.0, 2.0, 5.0, 3.0, 3.0, 4.0, 1.0, 4.0, 6.0, 1.0, 3.0, 6.0, 3.0, 6.0, 2.0, 2.0, 4.0, 4.0, 2.0, 6.0, 5.0, 5.0, 1.0, 6.0, 5.0, 6.0, 3.0, 4.0, 1.0, 5.0, 5.0, 4.0, 6.0, 6.0, 6.0, 6.0, 1.0, 6.0, 6.0, 5.0, 6.0, 3.0, 4.0, 1.0, 5.0, 3.0, 5.0, 5.0, 2.0, 5.0, 6.0, 6.0, 1.0, 6.0, 2.0, 3.0, 3.0, 6.0, 2.0, 3.0, 2.0, 5.0, 6.0, 5.0, 1.0, 3.0, 6.0, 5.0, 1.0, 3.0, 5.0, 5.0, 1.0, 6.0, 3.0, 4.0, 4.0, 4.0, 4.0, 2.0, 1.0, 6.0, 5.0, 3.0, 2.0, 1.0, 6.0, 4.0, 4.0, 3.0, 2.0, 1.0, 4.0, 1.0, 2.0, 2.0, 2.0, 3.0, 2.0, 3.0, 2.0, 4.0, 4.0, 6.0, 2.0, 6.0, 4.0, 3.0, 6.0, 4.0, 3.0, 3.0, 4.0, 4.0, 6.0, 1.0, 1.0, 4.0, 4.0, 1.0, 2.0, 1.0, 3.0, 6.0, 6.0, 6.0, 6.0, 4.0, 5.0, 4.0, 6.0, 6.0, 3.0, 4.0, 5.0, 2.0, 2.0, 6.0, 5.0, 1.0, 3.0, 3.0, 3.0, 4.0, 5.0, 2.0, 6.0, 6.0, 6.0, 5.0, 1.0, 5.0, 2.0, 3.0, 6.0, 1.0, 3.0, 5.0, 5.0, 1.0, 6.0, 3.0, 5.0, 1.0, 4.0, 2.0, 3.0, 2.0, 2.0, 1.0, 6.0, 2.0, 1.0, 2.0, 5.0, 6.0, 2.0, 4.0, 1.0, 5.0, 5.0, 1.0, 4.0, 2.0, 6.0, 4.0, 1.0, 2.0, 4.0, 5.0, 4.0, 4.0, 3.0, 4.0, 2.0, 2.0, 1.0, 4.0, 6.0, 2.0, 2.0, 3.0, 3.0, 1.0, 3.0, 4.0, 6.0, 3.0, 3.0, 3.0, 5.0, 2.0, 1.0, 3.0, 1.0, 4.0, 3.0, 3.0, 4.0, 6.0, 4.0, 3.0, 5.0, 5.0, 2.0, 4.0, 2.0, 6.0, 4.0, 1.0, 5.0, 3.0, 4.0, 3.0, 6.0, 4.0, 3.0, 4.0, 1.0, 2.0, 6.0, 5.0, 4.0, 6.0, 3.0, 6.0, 6.0, 5.0, 4.0, 4.0, 1.0, 5.0, 3.0, 4.0, 2.0, 2.0, 1.0, 6.0, 1.0, 5.0, 3.0, 1.0, 3.0, 2.0, 5.0, 4.0, 1.0, 1.0, 3.0, 4.0, 6.0, 6.0, 6.0, 5.0, 6.0, 6.0, 6.0, 2.0, 5.0, 2.0, 5.0, 3.0, 4.0, 3.0, 1.0, 2.0, 2.0, 5.0, 2.0, 6.0, 2.0, 6.0, 2.0, 1.0, 2.0, 3.0, 2.0, 6.0, 5.0, 4.0, 3.0, 2.0, 6.0, 2.0, 4.0, 4.0, 6.0, 5.0, 4.0, 4.0, 5.0, 3.0, 3.0, 6.0, 4.0, 6.0, 5.0, 3.0, 4.0, 6.0, 6.0, 3.0, 1.0, 3.0, 3.0, 5.0, 1.0, 5.0, 3.0, 2.0, 5.0, 4.0, 6.0, 6.0, 6.0, 4.0, 2.0, 5.0, 2.0, 1.0, 4.0, 4.0, 5.0, 6.0, 6.0, 1.0, 1.0, 5.0, 5.0, 4.0, 4.0, 5.0, 3.0, 4.0, 6.0, 5.0, 4.0, 2.0, 4.0, 1.0, 1.0, 5.0, 1.0, 3.0, 2.0, 1.0, 5.0, 2.0, 6.0, 4.0, 3.0, 4.0, 1.0, 1.0, 6.0, 4.0, 2.0, 6.0, 6.0, 6.0, 4.0, 2.0, 2.0, 3.0, 1.0, 4.0, 4.0, 2.0, 1.0, 4.0, 6.0, 4.0, 5.0, 1.0, 5.0, 2.0, 6.0, 4.0, 6.0, 3.0, 1.0, 6.0, 2.0, 3.0, 4.0, 6.0, 5.0, 2.0, 2.0, 5.0, 4.0, 2.0, 5.0, 1.0, 4.0, 2.0, 5.0, 5.0, 2.0, 2.0, 3.0, 4.0, 1.0, 5.0, 3.0, 3.0, 1.0, 3.0, 3.0, 2.0, 4.0, 6.0, 3.0, 6.0, 2.0, 5.0, 4.0, 3.0, 2.0, 2.0, 5.0, 3.0, 1.0, 3.0, 3.0, 1.0, 6.0, 2.0, 4.0, 3.0, 6.0, 6.0, 3.0, 6.0, 6.0, 5.0, 6.0, 5.0, 2.0, 3.0, 4.0, 2.0, 4.0, 3.0, 6.0, 5.0, 5.0, 5.0, 2.0, 3.0, 6.0, 4.0, 1.0, 1.0, 2.0, 3.0, 3.0, 3.0, 4.0, 4.0, 5.0, 2.0, 5.0, 6.0, 1.0, 4.0, 4.0, 2.0, 4.0, 6.0, 2.0, 3.0, 5.0, 5.0, 6.0, 3.0, 2.0, 1.0, 4.0, 1.0, 1.0, 2.0, 3.0, 4.0, 2.0, 6.0, 4.0, 1.0, 5.0, 5.0, 5.0, 2.0, 6.0, 4.0, 4.0, 3.0, 6.0, 6.0, 6.0, 5.0, 5.0, 6.0, 5.0}
M1 = Sequence(If[b ≟ Element[L1, i], 1.0, 0.0], i, 1.0, Length[L1])
M2 = Sequence(If[i ≤ Length[M1], Element[M1, i], 0.0], i, 1.0, 10.0 * ceil(Length[M1] / 10.0))
L3 = Sequence(Element[M2, i] + Element[M2, i + 1.0] + Element[M2, i + 2.0] + Element[M2, i + 3.0] + Element[M2, i + 4.0] + Element[M2, i + 5.0] + Element[M2, i + 6.0] + Element[M2, i + 7.0] + Element[M2, i + 8.0] + Element[M2, i + 9.0], i, 1.0, Length[M2], 10.0)
L4 = Sequence(If[i ≤ Length[L3], Element[L3, i], 0.0], i, 1.0, 10.0 * ceil(Length[L3] / 10.0))
L5 = Sequence(Element[L4, i] + Element[L4, i + 1.0] + Element[L4, i + 2.0] + Element[L4, i + 3.0] + Element[L4, i + 4.0] + Element[L4, i + 5.0] + Element[L4, i + 6.0] + Element[L4, i + 7.0] + Element[L4, i + 8.0] + Element[L4, i + 9.0], i, 1.0, Length[L4], 10.0)
L6 = Sequence(If[i ≤ Length[L5], Element[L5, i], 0.0], i, 1.0, 10.0 * ceil(Length[L5] / 10.0))
L7 = Sequence(Element[L6, i] + Element[L6, i + 1.0] + Element[L6, i + 2.0] + Element[L6, i + 3.0] + Element[L6, i + 4.0] + Element[L6, i + 5.0] + Element[L6, i + 6.0] + Element[L6, i + 7.0] + Element[L6, i + 8.0] + Element[L6, i + 9.0], i, 1.0, Length[L6], 10.0)
L8 = Sequence(If[i ≤ Length[L7], Element[L7, i], 0.0], i, 1.0, 10.0 * ceil(Length[L7] / 10.0))
L9 = Sequence(Element[L8, i] + Element[L8, i + 1.0] + Element[L8, i + 2.0] + Element[L8, i + 3.0] + Element[L8, i + 4.0] + Element[L8, i + 5.0] + Element[L8, i + 6.0] + Element[L8, i + 7.0] + Element[L8, i + 8.0] + Element[L8, i + 9.0], i, 1.0, Length[L8], 10.0)
a = Element(L9, 1.0)