C:\xampp\htdocs\o-mathe\content\106_st\1_wahrscheinlichkeit\2_wraeume\0_spiel-catan\1_lernstrecke\1_durchfuehrung\catan

Würfeln

Neustart

spielfeldRadius = 0.5 (slider from -5 to 5)
eckpunkteNachSpieler: {30, 8, 21}
zentrenRing1 = Zip((((2 * sqrt(3) / 2) * ℯ^(((ί * 2) * pi / 12))) * ℯ^(((((ί * 2) * pi / 12) * 2) * k))), k, 0…5)
zentrenRing1Shift = Zip(zentrenRing1(k), k, Append[2…6, 1])
zentrenRing2 = Join(Zip[Zip[(2 * (((2 - k) * z1) + (k * z2)) / 2), z1, zentrenRing1Shift, z2, zentrenRing1], k, 0…1])
zentren = Join({{(0, 0)}, zentrenRing1, zentrenRing2})
eckpunkte = Unique(Join[Zip[Zip[zentrum + (cos(((2 * pi) * k / 6)), sin(((2 * pi) * k / 6))), k, 0…5], zentrum, zentren]])
wuerfelB = 0
wuerfelA = 0
angrenzendeFelderNachSpieler: {{8}, {1, 12, 13}, {5, 10, 16}}
wuerfelsumme: wuerfelA + wuerfelB
punktwerte: {6, 10, 5, 11, 8, 5, 2, 6, 8, 9, 9, 11, 3, 12, 10, 3, 4, 4}
figur3 = Circle(eckpunkte(eckpunkteNachSpieler(3)), spielfeldRadius)
figur2 = Circle(eckpunkte(eckpunkteNachSpieler(2)), spielfeldRadius)
spielfelder = Zip(Polygon[Zip[zentrum + (cos(((2 * pi) * k / 6)), sin(((2 * pi) * k / 6))), k, 0…5]], zentrum, zentren)
punktwertTextobjekte = Zip(Text[punktwert, zentrum, false, false, 0, 0], punktwert, punktwerte, zentrum, Take[zentren, 2])
figur1 = Circle(eckpunkte(eckpunkteNachSpieler(1)), spielfeldRadius)
figuren: {figur1, figur2, figur3}
punktwerteIndexhilfe = Zip(Text[Text[a - 1], zentren(a) - (0, 0.4), false, false, 0, 0], a, 2…Length[zentren])
getroffenStatusNachSpieler = Zip(Length[Intersection[Zip[punktwerte(i), i, spielfelder], {wuerfelsumme}]] > 0, spielfelder, angrenzendeFelderNachSpieler)
wurfanzahl = 0
punkteNachSpieler: {0, 0, 0}
ansichtBreite: 5
ansichtOben: -15
spielernamen: {"A", "B", "C"}
spielLaeuft = false
getroffeneFelder = Zip(If[wuerfelsumme ≟ wert ∧ Length[Intersection[Join[angrenzendeFelderNachSpieler], {punktwertIndex}]] > 0, Polygon[Zip[zentrum + (cos(((2 * pi) * k / 6)), sin(((2 * pi) * k / 6))), k, 0…5]]], zentrum, Take[zentren, 2], wert, punktwerte, punktwertIndex, 1…Length[punktwerte])
spielernamenTextobjekte = Zip(Text[Text[spielername], eckpunkte(eckpunktIndex), false, false, 0, 0], spielerNummer, 1…Length[eckpunkteNachSpieler], eckpunktIndex, eckpunkteNachSpieler, spielername, spielernamen)
eckpunkteIndexhilfe = Zip(Text[i, p, true, false, 0, 0], p, eckpunkte, i, 1…Length[eckpunkte])
PosTabelleObenMitte: (0, -6)
spielstatus = Text("\begin{tabular}{c|c} \text{Haus} & \text{Ressourcen} \\ \hline" + (Sum[Zip[If[getroffenStatus, "\textcolor[HTML]{00BF00}{", ""] + "\text{" + (Text[spielernamen(spielerNummer)]) + "}" + (If[getroffenStatus, "}", ""]) + " & " + (Text[punkte]) + "\\", spielerNummer, 1…Length[punkteNachSpieler], punkte, punkteNachSpieler, getroffenStatus, getroffenStatusNachSpieler]]) + "\end{tabular}" + "\\ \\ \text{Spielzüge: " + (Text[wurfanzahl]) + "}", PosTabelleObenMitte, false, true, 0, -1)
PosSummeObenMitte: (10, 2)
wuerfelstatus = Text("\phantom{0}" + (Text[wuerfelA]) + (("+" * Text[wuerfelB])) + "=" + (Text[wuerfelsumme] + (If[wuerfelsumme < 10, "\phantom{0}", ""])), PosSummeObenMitte, false, true, 0, -1)
PosWuerfelBUntenLinks: PosSummeObenMitte - (0, -6) + (-0.7, -9.5)
PosWuerfelBUntenRechts: PosSummeObenMitte - (0, -6) + (0.5, -9.5)
PosWuerfelAUntenLinks: PosSummeObenMitte - (0, -6) + (-3.5, -9.5)
PosWuerfelAUntenRechts: PosSummeObenMitte - (0, -6) + (-2.3, -9.5)