NeuStart

^

<

>

v

2 0 4 8

zufallszahl1oder290prozent = RandomElement({1, 1, 1, 1, 1, 1, 1, 1, 1, 2})
libelegt0: {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
libelegt: {0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0}
Vieleck1 = Polygon((0 | 0), (8 | 0), 4)
xMin: -0.5
xMax: 8.5
yMin: -2
yMax: 7.3
t1 = If(Element[libelegt, 1] > 0, Text[2^(Element[libelegt, 1])], "  ")
difftx: 1
diffty: 0.2
m1 = Sequence(Sequence[Polygon[(t + 0.3 | s + diffty), (t + (2 * difftx) - 0.2 | s + diffty), 4], t, 0, 7, 2], s, 0, 7, 2)
diffli: 0.2
t2 = If(Element[libelegt, 2] > 0, Text[2^(Element[libelegt, 2])], "  ")
t3 = If(Element[libelegt, 3] > 0, Text[2^(Element[libelegt, 3])], "  ")
t4 = If(Element[libelegt, 4] > 0, Text[2^(Element[libelegt, 4])], "  ")
t5 = If(Element[libelegt, 5] > 0, Text[2^(Element[libelegt, 5])], "  ")
t6 = If(Element[libelegt, 6] > 0, Text[2^(Element[libelegt, 6])], "  ")
t7 = If(Element[libelegt, 7] > 0, Text[2^(Element[libelegt, 7])], "  ")
t8 = If(Element[libelegt, 8] > 0, Text[2^(Element[libelegt, 8])], "  ")
t9 = If(Element[libelegt, 9] > 0, Text[2^(Element[libelegt, 9])], "  ")
t10 = If(Element[libelegt, 10] > 0, Text[2^(Element[libelegt, 10])], "  ")
t11 = If(Element[libelegt, 11] > 0, Text[2^(Element[libelegt, 11])], "  ")
t12 = If(Element[libelegt, 12] > 0, Text[2^(Element[libelegt, 12])], "  ")
t13 = If(Element[libelegt, 13] > 0, Text[2^(Element[libelegt, 13])], "  ")
t14 = If(Element[libelegt, 14] > 0, Text[2^(Element[libelegt, 14])], "  ")
t15 = If(Element[libelegt, 15] > 0, Text[2^(Element[libelegt, 15])], "  ")
t16 = If(Element[libelegt, 16] > 0, Text[2^(Element[libelegt, 16])], "  ")
liLinksverschiebung = Sequence(Element[Division[Element[libelegt, t] - 1, 3], 1], t, 1, 16)
liSpielnummern: {}
libelegtplus = Append(libelegt, 0)
liNullen = Remove(Unique[Sequence[IndexOf[0, libelegtplus, t], t, 1, 16]], {17})
liTauschpartner: {1,0}
getauscht = false
b = RandomElement(liNullen)
lialt: {0,0,0,0,1,0,0,0,0,0,1,0,0,0,0,0}
punkte = 0
punkteMax: 0
Text1: "Punkte: " + punkte + ""
Text2: "Maximum: " + punkteMax + ""
maxZahl: 2^(Max[libelegt])
belegtAnzahl: 16 - Length[liNullen]
Text4: "Belegt\;sind\\" + (LaTeX[belegtAnzahl]) + "\;Felder"
zugNummer = 0
Text5: "Zugnummer = " + zugNummer + ""