1

2

3

4

5

6

1

2

3

4

5

6

A \cap B = \Phi,

P(A)=             et       P(B)=

Pour un lancer de dé, l'univers est Ω={1,2,3,4,5,6}

base1 = Sequence(Polygon[(n * (n - 1.0) / 6.0, 0.0) + (-1.0 * 1.0 * 1.0 * 1.0 * 3.0, 1.0), (n * (n + 1.0) / 6.0, 0.0) + (-1.0 * 1.0 * 1.0 * 1.0 * 3.0, 1.0), (n * (n + 1.0) / 6.0, 0.0) + (-1.0 * 1.0 * 1.0 * 1.0 * 3.0, 3.0), (n * (n - 1.0) / 6.0, 0.0) + (-1.0 * 1.0 * 1.0 * 1.0 * 3.0, 3.0)], n, 1.0, 6.0)
o = false
p = true
q = false
r = true
s = false
t = true
EvA: {1.0 * o, 2.0 * p, 3.0 * q, 4.0 * r, 5.0 * s, 6.0 * t}
E1 = Sequence(If[Element[EvA, n] ≠ 0.0, Element[EvA, n]], n, 1.0, 6.0)
E2 = RemoveUndefined(E1)
a = true
b = true
c = true
d = true
e = true
f = false
EvB: {1.0 * a, 2.0 * b, 3.0 * c, 4.0 * d, 5.0 * e, 6.0 * f}
F1 = Sequence(If[Element[EvB, n] ≠ 0.0, Element[EvB, n]], n, 1.0, 6.0)
F2 = RemoveUndefined(F1)
texte3: "On considère l'évènement A = " + E2 + "

et l'évènement B = " + F2 + "

Leur intersection est  " + (Intersection[E2, F2]) + "
et leur réunion est  " + (Sort[Union[E2, F2]])
texte2 = FractionText(Length[E2] / 6.0)
texte8 = FractionText(Length[F2] / 6.0)