Superhero

$\textsf{NEW NUMBERS}$

\text{Fantasy}

\text{Animation}

\text{It's Family Movie Night in the town park. People will use social media to vote on the type\
of movie shown. Each person is allowed to choose 1, 2 or all 3 movie types.}

Fantasy

Animation

\text{Superhero}

\text{The Venn Diagram displays \
the results of the vote:}

\text{Select the sections to explore}

count = 8
allPeople = Shuffle(Sequence[t, t, 350, 400, 1])
allH = Shuffle(Sequence[t, t, 2, 26, 1])
allG = Shuffle(Sequence[t, t, 2, 90, 1])
allD = Shuffle(Sequence[t, t, 2, 90, 1])
allB = Shuffle(Sequence[t, t, 2, 90, 1])
allA = Shuffle(Sequence[t, t, 2, 25, 1])
a = Element(allA, Mod[count, Length[allA]] + 1)
b = Element(allB, Mod[count, Length[allB]] + 1)
h = Element(allH, Mod[count, Length[allH]] + 1)
g = Element(allG, Mod[count, Length[allG]] + 1)
d = Element(allD, Mod[count, Length[allD]] + 1)
totPeople = Element(allPeople, Mod[count, Length[allPeople]] + 1)
A = (-8, 0)
B = (2, 0)
C = (0, 4)
co = Ellipse(A, B, C)
T = (-5, -5)
v = Vector(A, T)
lu = Translate(co, v)
J = (-2, 0)
u = Vector(A, J)
mo = Translate(co, u)
textA: "" + (LaTeX[a]) + ""
textB: "" + (LaTeX[b]) + ""
textD: "" + (LaTeX[d]) + ""
textG: "" + (LaTeX[g]) + ""
textH: "" + (LaTeX[h]) + ""
allCo(x, y) = (4 * x^(2)) + (9 * y^(2)) + (24 * x) < 144
allMo(x, y) = (4 * x^(2)) + (9 * y^(2)) - (24 * x) < 144
allLu(x, y) = (320 * x^(2)) + (720 * y^(2)) + (7200 * y) < -3600
outLu(x, y) = (320 * x^(2)) + (720 * y^(2)) + (7200 * y) > -3600
outMo(x, y) = (4 * x^(2)) + (9 * y^(2)) - (24 * x) > 144
outCo(x, y) = (4 * x^(2)) + (9 * y^(2)) + (24 * x) > 144
onlyCo(x, y) = allCo(x, y) ∧ outLu(x, y) ∧ outMo(x, y)
allIn(x, y) = allLu(x, y) ∧ allCo(x, y) ∧ allMo(x, y)
onlyMo(x, y) = allMo(x, y) ∧ outCo(x, y) ∧ outLu(x, y)
onlyLu(x, y) = allLu(x, y) ∧ outCo(x, y) ∧ outMo(x, y)
onlyCoAndMo(x, y) = allCo(x, y) ∧ allMo(x, y) ∧ outLu(x, y)
onlyCoAndLu(x, y) = allCo(x, y) ∧ allLu(x, y) ∧ outMo(x, y)
onlyMoAndLu(x, y) = allMo(x, y) ∧ allLu(x, y) ∧ outCo(x, y)
onlyCoFilled: onlyCo
onlyCoAndLuFilled: onlyCoAndLu
onlyLuFilled: onlyLu
onlyMoFilled: onlyMo
onlyMoAndLuFilled: onlyMoAndLu
onlyCoAndMoFilled: onlyCoAndMo
allInFilled: allIn
D: (-11.5, -10.5)
E: (11.5, -10.5)
F: (11.5, 5.5)
G: (-11.5, 5.5)
q1, d_1, e, f_1, g_1 = Polygon(D, E, F, G)
coWhite = Ellipse(A, B, C)
luWhite = Translate(co, v)
moWhite = Translate(co, u)
H = (1.4491485533920012, -10.664941920917947)
I = (2.580963445072001, -10.664941920917947)
allC = Shuffle(Sequence[t, t, 2, 28, 1])
c = Element(allC, Mod[count, Length[allC]] + 1)
textC: "" + (LaTeX[c]) + ""
f: totPeople - a - b - c - d - g - h
textF: "" + (LaTeX[f]) + ""
textOnlyCo: "\text{" + (LaTeX[a]) + " people only \textcolor{#252525}{want to see}\\
Superhero \textcolor{#252525}{movies}.}"
textOnlyMo: "\text{" + (LaTeX[c]) + " people only \textcolor{#252525}{want to see}\\
a Fantasy \textcolor{#252525}{movie}.}"
textAllIn: "\text{" + (LaTeX[f]) + " people \textcolor{#252525}{want to see}\\
all three types of movies.}"
textOnlyLu: "\text{" + (LaTeX[h]) + " people only\textcolor{#252525}{ want to see}\\
an Animation \textcolor{#252525}{movie}.}"
textOnlyCoAndMo: "\text{" + (LaTeX[b]) + " people \textcolor{#252525}{want to see} both\\
a Superhero and a Fantasy\\
\textcolor{#252525}{movie}.}"
textOnlyMoAndLu: "\text{" + (LaTeX[g]) + " people \textcolor{#252525}{want to see} both\\
a Fantasy and an Animation\\
\textcolor{#252525}{movie}.}"
textOnlyCoAndLu: "\text{" + (LaTeX[d]) + " people \textcolor{#252525}{want to see} both\\
a Superhero and an Animation\\
\textcolor{#252525}{movie}.}"