On lance un dé 1000 fois...

en fonction du nombre de lancers

Variations de la fréquence 

n

n

n

n

n

n

Fréquence en %

Fréquence en %

Fréquence en %

Fréquence en %

Fréquence en %

Fréquence en %

16,7 %

16,7 %

16,7 %

16,7 %

16,7 %

16,7 %

Vous pouvez manipuler le curseur 
manuellement ou lancer l'animation
en cliquant sur l'icone du coin 
inférieur gauche de l'écran.

Pour rafraîchir l'affichage : Ctrl + F 

Pour recalculer : F9 
( Attention ! Mieux vaut ramener le 
curseur à 1 avant tout re-calcul. )

Pour afficher la fréquence théorique :

L = Sequence(Random[1.0, 6.0], i, 1.0, 1000.0)
compteur = 1 (slider from 1 to 1000, step 1)
Fréquence6: 100.0 * CountIf[x ≟ 6.0, First[L, compteur]] / compteur
Fréquence5: 100.0 * CountIf[x ≟ 5.0, First[L, compteur]] / compteur
Fréquence4: 100.0 * CountIf[x ≟ 4.0, First[L, compteur]] / compteur
Fréquence3: 100.0 * CountIf[x ≟ 3.0, First[L, compteur]] / compteur
Fréquence2: 100.0 * CountIf[x ≟ 2.0, First[L, compteur]] / compteur
Fréquence1: 100.0 * CountIf[x ≟ 1.0, First[L, compteur]] / compteur
A = (-5, 50)
texte1: Fréquence1 + " %"
texte2: Fréquence2 + " %"
texte3: Fréquence3 + " %"
texte4: Fréquence4 + " %"
texte5: Fréquence5 + " %"
texte6: Fréquence6 + " %"
B: (x(A), y(A) + 5.0)
C: (x(A) + Fréquence1, y(A) + 5.0)
D: (x(A) + Fréquence1, y(A))
poly1, a, b, c, d = Polygon(A, B, C, D)
E = (-5, 40)
poly2 = Rectangle(E, Fréquence2)
F = (-5, 30)
poly3 = Rectangle(F, Fréquence3)
G = (-5, 20)
poly4 = Rectangle(G, Fréquence4)
H = (-5, 10)
poly5 = Rectangle(H, Fréquence5)
I = (-5, 0)
poly6 = Rectangle(I, Fréquence6)
trace1: (x(A) + 30.0 + compteur * 0.03, y(A) + Fréquence1 * 0.15)
trace2: (x(E) + 30.0 + compteur * 0.03, y(E) + Fréquence2 * 0.15)
trace3: (x(F) + 30.0 + compteur * 0.03, y(F) + Fréquence3 * 0.15)
trace4: (x(G) + 30.0 + compteur * 0.03, y(G) + Fréquence4 * 0.15)
trace5: (x(H) + 30.0 + compteur * 0.03, y(H) + Fréquence5 * 0.15)
trace6: (x(I) + 30.0 + compteur * 0.03, y(I) + Fréquence6 * 0.15)
D_1 = (25, 8)
J = (25, 50)
K = (58, 50)
M = (25, 58)
N = (25, 40)
O = (25, 30)
P = (25, 20)
Q = (25, 10)
R = (25, 0)
u = Vector(J, K)
v = Vector(J, M)
N'_1 = Translate(N, u)
w = Vector(N, N'_1)
O'_1 = Translate(O, u)
z = Vector(O, O'_1)
P'_1 = Translate(P, u)
e = Vector(P, P'_1)
Q'_1 = Translate(Q, u)
f = Vector(Q, Q'_1)
R'_1 = Translate(R, u)
g = Vector(R, R'_1)
N' = Translate(N, v)
h = Vector(N, N')
O' = Translate(O, v)
i = Vector(O, O')
P' = Translate(P, v)
j = Vector(P, P')
Q' = Translate(Q, v)
k = Vector(Q, Q')
R' = Translate(R, v)
l = Vector(R, R')
S = (-12, 50)
poly7 = Rectangle(S, 5.0)
FaceEnCours = Element(L, compteur)
T = (-12, 40)
poly8 = Rectangle(T, 5.0)
U = (-12, 30)
poly9 = Rectangle(U, 5.0)
V = (-12, 20)
W = (-12, 10)
Z = (-12, 0)
poly10 = Rectangle(V, 5.0)
poly11 = Rectangle(W, 5.0)
poly12 = Rectangle(Z, 5.0)
A_1 = (23, 52.5)
B_1 = Point(Circle[A_1, 35.0])
m = Segment(A_1, B_1)
C_1 = (23, 42.5)
E_1 = (23, 32.5)
F_1 = (23, 22.5)
G_1 = (23, 12.5)
H_1 = (23, 2.5)
I_1 = Point(Circle[C_1, 35.0])
n = Segment(C_1, I_1)
J_1 = Point(Circle[E_1, 35.0])
p = Segment(E_1, J_1)
K_1 = Point(Circle[F_1, 35.0])
q = Segment(F_1, K_1)
L_1 = Point(Circle[G_1, 35.0])
r = Segment(G_1, L_1)
M_1 = Point(Circle[H_1, 35.0])
s = Segment(H_1, M_1)
o = false

Tool: Rectangle
(coin inf gauche, longueur)
Input: A, Fréquence1
Output: poly1

B: (x(A), y(A) + 5.0)
C: (x(A) + Fréquence1, y(A) + 5.0)
D: (x(A) + Fréquence1, y(A))
poly1, a, b, c, d = Polygon(A, B, C, D)

Tool: Repère
(Point origine)
Input: J
Output: K, M, u, v

K: (x(J) + 33.0, y(J))
M: (x(J), y(J) + 8.0)
u = Vector(J, K)
v = Vector(J, M)