Lancer

Franc  \space 
carreaux

Ligne

Réinitialiser

10 c€

20c€

50 c€

0

1

Pièces de 50 centimes €
Masse			7,80 g
Diamètre			24,25 mm
Épaisseur			2,38 mm
Tranche			Dentelée
Composition		Or nordique
Année d'émission		depuis 1999

Pièces de 20 centimes €
Masse			5,74 g
Diamètre			22,25 mm
Épaisseur			2,14 mm
Tranche			Lisse avec 7 cannelures profondes
Composition		Or nordique
Année d'émission		depuis 1999

Pièces de 10 centimes €
Masse			4,10 g
Diamètre			19,75 mm
Épaisseur			1,51 mm
Tranche			cannelée
Composition		Or nordique
Année d'émission		Depuis 1999

Fréquence \space obtenue

L = 5 (slider from 5 to 10, step 0.5)
A: (0, 0)
B: (x(A) + L, 0)
poly1, f, g, h, i, C, D = Polygon(A, B, 4)
poly1' = Mirror(poly1, g)
poly1'_1 = Mirror(poly1, h)
u = Vector(A, B)
poly1'' = Translate(poly1', u)
v = Vector(A, D)
q1 = Translate(poly1'_1, v)
poly1''_1 = Translate(poly1', v)
q2 = Translate(poly1''_1, v)
q3 = Translate(poly1''_1, u)
q2' = Translate(q2, u)
a = RandomUniform(0, (3 * L))
b = RandomUniform(0, (3 * L))
P: (a, b)
P_1: (x(P) - 1.975 / 2, y(P) - 1.975 / 2)
P_2: (x(P_1) + 1.975, y(P_1))
P_3: (x(P_1), y(P_1) + 1.975)
R_p: 2.425 / 2
liste1: {0, L, (2 * L), (3 * L)}
e: x(P) > Element[liste1, 1] + R_p ∧ x(P) < Element[liste1, 2] - R_p
d: x(P) > Element[liste1, 2] + R_p ∧ x(P) < Element[liste1, 3] - R_p
j: x(P) > Element[liste1, 3] + R_p ∧ x(P) < Element[liste1, 4] - R_p
k: d + e + j
l: y(P) > Element[liste1, 1] + R_p ∧ y(P) < Element[liste1, 2] - R_p
m: y(P) > Element[liste1, 2] + R_p ∧ y(P) < Element[liste1, 3] - R_p
n: y(P) > Element[liste1, 3] + R_p ∧ y(P) < Element[liste1, 4] - R_p
o: l + m + n
test = If(k + o ≟ 2, 1, 0)
total = 2
compteur = 7
f_c: total / compteur
c: (x - x(P))^(2) + (y - y(P))^(2) = R_p
p: 50
q: test ≟ 0
texte2: "Nombre  \space tirage =" + (LaTeX[compteur]) + ""
texte4: "Nombre \space de \space franc \space carreaux= " + (LaTeX[total]) + ""
E = (33.20737224955801, 1.186825908396484)
F = (35.19006854707211, 1.1317510112433151)
G = (34.91469406130626, 15.451224271067268)
H = (33.042147558098506, 15.396149373914099)
q4, e_1, f_1, g_1, h_1 = Polygon(E, F, G, H)
r = Distance(E, H)
s: (total / compteur * r)
t = Circle(E, s)
I = Intersect(t, h_1, 1)
i_1 = OrthogonalLine(I, h_1)
J = Intersect(i_1, f_1)
q5, j_1, f_2, e_2, i_2 = Polygon(J, F, E, I)
texte5: "" + (LaTeX[f_c]) + ""
D_p: (2 * R_p)
K = (58.651974734322174, 3.378806815092611)
M = (71.86995005108268, 3.378806815092611)
N = (58.65197473432217, 3.43388171224578)
O = (71.86995005108278, 3.43388171224578)
Q = (58.64182494001583, 3.454181300858455)
R = (71.85980025677645, 3.454181300858455)