1

2

3

4

5

6

Effectif

Fréquence

Rouge

Vert

Bleu

Jaune

Lancer une seule fois

Lancer plusieurs fois

Indiquer ci-dessous le nombre de tirages voulus
puis cliquer sur la flèche pour la lancer

Cliquer sur la flèche pour la lancer.

Effectif

Fréquence

rouge

vert

bleu

jaune

Effectif

Fréquence

1

2

3

4

5

6

A = (3.510876858362255, 0.9634394433526352)
c = Circle(A, 3)
B = Point(c)
B' = Rotate(B, 60°, A)
poly1, a, b, d, e, f, g, C, D, E, F = Polygon(B, B', 6)
h = CircleSector(A, B, B')
k = CircleSector(A, B', C)
p = CircleSector(A, C, D)
q = CircleSector(A, D, E)
r = CircleSector(A, E, F)
s = CircleSector(A, F, B)
NbTirages = 491 (slider from 1 to 1000, step 1)
ListeTirage = Sequence(RandomUniform[0, 359], k, 1, NbTirages)
n = 1 (slider from 1 to NbTirages, step 1)
t = Element(ListeTirage, n)
G = Dilate(B', 0.9, A)
G' = Rotate(G, t°, A)
u = Vector(A, G')
ListeSecteurs = Sequence(If[Element[ListeTirage, k]  <  60, 1, If[Element[ListeTirage, k]  <  120, 2, If[Element[ListeTirage, k]  <  180, 3, If[Element[ListeTirage, k]  <  240, 4, If[Element[ListeTirage, k]  <  300, 5, 6]]]]], k, 1, NbTirages)
liste1 = Sequence(Sequence[Text[Element[ListeSecteurs, (j * (floor(NbTirages / 5) + 1)) + k], (12 + j, 6.5 - (0.5 * k))], k, 1, floor(NbTirages / 5) + 1], j, 0, Min[4, NbTirages - 1])
texte7 = Text("Liste des tirages :", (13, 6.4))
NbSecteurs = Frequency(ListeSecteurs)
unique = Unique(ListeSecteurs)
n1 = CountIf(k ≟ 1, k, ListeSecteurs)
n2 = CountIf(k ≟ 2, k, ListeSecteurs)
n3 = CountIf(k ≟ 3, k, ListeSecteurs)
n4 = CountIf(k ≟ 4, k, ListeSecteurs)
n5 = CountIf(k ≟ 5, k, ListeSecteurs)
n6 = CountIf(k ≟ 6, k, ListeSecteurs)
f1: n1 / NbTirages
f2: n2 / NbTirages
f3: n3 / NbTirages
f4: n4 / NbTirages
f5: n5 / NbTirages
f6: n6 / NbTirages
nr: n1 + n4
nb: n3 + n6
fr: f1 + f4
fb: f3 + f6
A7 = 1
A8 = 2
A9 = 3
A10 = 4
A11 = 5
A12 = 6
B2: nr
B3: n2
B4: nb
B5: n5
B7: n1
B8: n2
B9: n3
B10: n4
B11: n5
B12: n6
C2: fr
C3: f2
C4: fb
C5: f5
C7: f1
C8: f2
C9: f3
C10: f4
C11: f5
C12: f6
l = 8 (slider from 1 to 8, step 0.1)
j = 975.6516701931031 (slider from 1 to angle, step 1)
G'' = Rotate(G, ((-j))°, A)
u' = Vector(A, G'')
m = true
o = false
C' = (10.5, 6)
D' = (15.5, 6)
i = Segment(C', D')
E' = (10.5, 1.8)
F' = (15.5, 1.8)
a_1 = Segment(E', F')
texte24: "" + nr + ""
texte25: "" + n2 + ""
texte26: "" + nb + ""
texte27: "" + n5 + ""
texte28: "" + fr + ""
texte29: "" + f2 + ""
texte30: "" + fb + ""
texte31: "" + f5 + ""
texte32: "" + n1 + ""
texte33: "" + n2 + ""
texte34: "" + n3 + ""
texte35: "" + n4 + ""
texte36: "" + n5 + ""
texte37: "" + n6 + ""
texte38: "" + f1 + ""
texte39: "" + f2 + ""
texte40: "" + f3 + ""
texte41: "" + f4 + ""
texte42: "" + f5 + ""
texte43: "" + f6 + ""
angle = RandomUniform(360, 3600)