$\text{Überprüfen}$

$\text{Neuer Versuch}$

$\text{Neue Aufgabe}$

\textsf\colorbox{ebe7f8}{Das arithmetische Mittel ist die Summe der Werte, dividiert durch ihre Anzahl.}

No selection allowed for all input boxes

Selection allowed for all input boxes

\text{Wähle verschiedene Würfel aus, die im Durchschnitt die gewürfelte Augenzahl ergeben.\Ziehe dazu die passenden Würfel in das untere Feld.}

Fix position and allow selection for all text objects

Empty all input boxes

#EDEDED

\text{Text for just the correct answer.}

\underline\text{Helper scripts for template}

\underline\text{Helper scripts for authors}

$a=$

$b=$

\textsf\colorbox{ebe7f8}{This hint is for typical misconceptions of\students. It is shown after any wrong answer\that shows the typical error.}

\textsf{Gewürfelte Augenzahl:}

SetFixed

UnFix

\text{Mögliche Lösung:}

testNewExample

questionCount = 0 (slider from 0 to 100, step 1)
gewAugenzahl = Shuffle(Sequence[Random[2, 5], i, 1, 100])
stayX = Append(true, Sequence[If[gewAugenzahl(i) ≟ gewAugenzahl(i - 1), false, true], i, 2, 100])
randomNosForXwithoutRepeat = Remove(Sequence[If[stayX(i), gewAugenzahl(i), 0], i, 1, 100], Sequence[0, i, 1, 100])
MidPoint_{B63} = Midpoint(Corner[B63, 1], Corner[B63, 3])
MidPoint_{B62} = Midpoint(Corner[B62, 1], Corner[B62, 3])
MidPoint_{B53} = Midpoint(Corner[B53, 1], Corner[B53, 3])
MidPoint_{B52} = Midpoint(Corner[B52, 1], Corner[B52, 3])
MidPoint_{B43} = Midpoint(Corner[B43, 1], Corner[B43, 3])
MidPoint_{B42} = Midpoint(Corner[B42, 1], Corner[B42, 3])
MidPoint_{B33} = Midpoint(Corner[B33, 1], Corner[B33, 3])
MidPoint_{B32} = Midpoint(Corner[B32, 1], Corner[B32, 3])
MidPoint_{B23} = Midpoint(Corner[B23, 1], Corner[B23, 3])
MidPoint_{B22} = Midpoint(Corner[B22, 1], Corner[B22, 3])
MidPoint_{B13} = Midpoint(Corner[B13, 1], Corner[B13, 3])
MidPoint_{B12} = Midpoint(Corner[B12, 1], Corner[B12, 3])
P = (-4, 1)
O = (6, 1)
N = (6, 3)
M = (-4, 3)
v1, m, n, o, p = Polygon(M, N, O, P)
in6_3 = IsInRegion(MidPoint_{B63}, v1)
in6_2 = IsInRegion(MidPoint_{B62}, v1)
in5_3 = IsInRegion(MidPoint_{B53}, v1)
in5_2 = IsInRegion(MidPoint_{B52}, v1)
in4_3 = IsInRegion(MidPoint_{B43}, v1)
in4_2 = IsInRegion(MidPoint_{B42}, v1)
in3_3 = IsInRegion(MidPoint_{B33}, v1)
in3_2 = IsInRegion(MidPoint_{B32}, v1)
in2_3 = IsInRegion(MidPoint_{B23}, v1)
in2_2 = IsInRegion(MidPoint_{B22}, v1)
in1_3 = IsInRegion(MidPoint_{B13}, v1)
in1_2 = IsInRegion(MidPoint_{B12}, v1)
MidPoint_{Bild6} = Midpoint(Corner[Bild6, 1], Corner[Bild6, 3])
in6 = IsInRegion(MidPoint_{Bild6}, v1)
MidPoint_{Bild5} = Midpoint(Corner[Bild5, 1], Corner[Bild5, 3])
in5 = IsInRegion(MidPoint_{Bild5}, v1)
MidPoint_{Bild4} = Midpoint(Corner[Bild4, 1], Corner[Bild4, 3])
in4 = IsInRegion(MidPoint_{Bild4}, v1)
MidPoint_{Bild3} = Midpoint(Corner[Bild3, 1], Corner[Bild3, 3])
in3 = IsInRegion(MidPoint_{Bild3}, v1)
MidPoint_{Bild2} = Midpoint(Corner[Bild2, 1], Corner[Bild2, 3])
in2 = IsInRegion(MidPoint_{Bild2}, v1)
MidPoint_{Bild1} = Midpoint(Corner[Bild1, 1], Corner[Bild1, 3])
in1 = IsInRegion(MidPoint_{Bild1}, v1)
anzahlWürfelZiehbar = Shuffle(Sequence[Random[3, 6], i, 1, 100])
würfelZahl = Element(anzahlWürfelZiehbar, Mod[questionCount, 100] + 1)
augenZahl = Element(randomNosForXwithoutRepeat, Mod[questionCount, 100] + 1)
zahl1 = If(in1, 1, 0)
zahl2 = If(in2, 2, 0)
zahl3 = If(in3, 3, 0)
zahl4 = If(in4, 4, 0)
zahl5 = If(in5, 5, 0)
listeElementeInVieleck: {in1, in2, in3, in4, in5, in6, in1_2, in1_3, in2_2, in2_3, in3_2, in3_3, in4_2, in4_3, in5_2, in5_3, in6_2, in6_3}
sumCorrect = Sum(listeElementeInVieleck)
zahl6 = If(in6, 6, 0)
zahl1_2 = If(in1_2, 1, 0)
zahl1_3 = If(in1_3, 1, 0)
zahl2_2 = If(in2_2, 2, 0)
zahl2_3 = If(in2_3, 2, 0)
zahl3_2 = If(in3_2, 3, 0)
zahl3_3 = If(in3_3, 3, 0)
zahl4_2 = If(in4_2, 4, 0)
zahl4_3 = If(in4_3, 4, 0)
zahl5_2 = If(in5_2, 5, 0)
zahl5_3 = If(in5_3, 5, 0)
zahl6_2 = If(in6_2, 6, 0)
zahl6_3 = If(in6_3, 6, 0)
listeSumme: {zahl1, zahl2, zahl3, zahl4, zahl5, zahl6, zahl1_2, zahl1_3, zahl2_2, zahl2_3, zahl3_2, zahl3_3, zahl4_2, zahl4_3, zahl5_2, zahl5_3, zahl6_2, zahl6_3}
augenSumme = Sum(listeSumme)
arithmMittel: augenSumme / sumCorrect
Blue = (-5.32, 4.5)
Green = (-5.28, 3.68)
Orange = (-5.2, 2.86)
Red = (-5.32, 2.04)
Purple = (-5.34, 1.12)
Gray = (-5.34, 0.32)
GrayDark = (-5.36, -0.7)
validate = false
showanswer = false
showsolution = false
attemptCount = 0
correctCount = 0
textCountCorrect: "\text{Richtig gelöste Aufgaben: " + (LaTeX[correctCount]) + " }"
showButtonNew = false
showButtonTryAgain = false
showButtonValidate = true
showhint = false
aInput = NaN
InputBox1 = Textfield(aInput)
bInput = NaN
InputBox2 = Textfield(bInput)
correct: arithmMittel ≟ augenZahl ∧ sumCorrect ≟ würfelZahl
showcorrecttext = false
PtopLeftCornerFeedback = (-4, 3)
PbottomRightCornerFeedback = (6, 1)
PtopRightCornerFeedback: (x(PbottomRightCornerFeedback), y(PtopLeftCornerFeedback))
PbottomLeftCornerFeedback: (x(PtopLeftCornerFeedback), y(PbottomRightCornerFeedback))
rectangleCorrect, ptopleftcornerfeedback, ptoprightcornerfeedback, pbottomrightcornerfeedback, pbottomleftcornerfeedback = Polygon(PtopLeftCornerFeedback, PtopRightCornerFeedback, PbottomRightCornerFeedback, PbottomLeftCornerFeedback)
showhinttypicalerror = false
isTypicalError: bInput ≟ aInput + 1
allowCountIncrement = true
stayY = Append(true, Sequence[If[anzahlWürfelZiehbar(i) ≟ anzahlWürfelZiehbar(i - 1), false, true], i, 2, 100])
randomNosForYwithoutRepeat = Remove(Sequence[If[stayY(i), anzahlWürfelZiehbar(i), 0], i, 1, 100], Sequence[0, i, 1, 100])
numXwithoutRepeat = Element(randomNosForXwithoutRepeat, Mod[questionCount, Length[randomNosForXwithoutRepeat]] + 1)
numYwithoutRepeat = Element(randomNosForYwithoutRepeat, Mod[questionCount, Length[randomNosForYwithoutRepeat]] + 1)
fixed = Defined((aInput * bInput))
correct1: false
correct2: false
correct3: false
correctText: "\text{" + (LaTeX[If[(¬correct) ∧ (correct1 ∨ correct2 ∨ correct3), "✘ Teilweise richtig", If[correct, "✓ Richtig", "✘ Falsch"]]]) + "}"
f: y = -1.5
gl1: x = 8
A = (2, 7)
B = (3, 7)
C = (4, 7)
D = (5, 7)
E = (6, 7)
F = (7, 7)
G = (2, 5)
H = (3, 5)
I = (4, 5)
J = (5, 5)
K = (6, 5)
L = (7, 5)
Q = (-5, 8)
R = (-1, 8)
S = (-1, 6)
T = (-5, 6)
v2, q, r, s, t = Polygon(Q, R, S, T)
U = (1, 8)
V = (1, 5)
g = Segment(U, V)
MidPoint_{Bild8} = Midpoint(Corner[Zweier, 1], Corner[Zweier, 3])
MidPoint_{Bild9} = Midpoint(Corner[Dreier, 1], Corner[Dreier, 3])
MidPoint_{Bild10} = Midpoint(Corner[Vierer, 1], Corner[Vierer, 3])
MidPoint_{Bild11} = Midpoint(Corner[Fünfer, 1], Corner[Fünfer, 3])
anfügenArithm1 = If(in1, Append[zahl1, {}])
anfügenArithm2 = If(in2, Append[zahl2, anfügenArithm1])
anfügenArithm3 = If(in3, Append[zahl3, anfügenArithm2])
anfügenArithm4 = If(in4, Append[zahl4, anfügenArithm3])
anfügenArithm5 = If(in5, Append[zahl5, anfügenArithm4])
anfügenArithm6 = If(in6, Append[zahl6, anfügenArithm5])
MidPoint_{Zweier} = Midpoint(Corner[Zweier, 1], Corner[Zweier, 3])
MidPoint_{Dreier} = Midpoint(Corner[Dreier, 1], Corner[Dreier, 3])
MidPoint_{Vierer} = Midpoint(Corner[Vierer, 1], Corner[Vierer, 3])
MidPoint_{Fünfer} = Midpoint(Corner[Fünfer, 1], Corner[Fünfer, 3])
B4 = NaN
W = (-3, -4)
Z = (-2, -4)
A_1 = (2, 7)
B_1 = (3, 7)
C_1 = (4, 7)
D_1 = (5, 7)
E_1 = (6, 7)
F_1 = (7, 7)
G_1 = (2, 5)
H_1 = (3, 5)
I_1 = (4, 5)
J_1 = (5, 5)
K_1 = (6, 5)
L_1 = (7, 5)
A_2 = (2, 7)
B_2 = (3, 7)
C_2 = (4, 7)
D_2 = (5, 7)
E_2 = (6, 7)
F_2 = (7, 7)
G_2 = (2, 5)
H_2 = (3, 5)
I_2 = (4, 5)
J_2 = (5, 5)
K_2 = (6, 5)
L_2 = (7, 5)
zähleWennTest = CountIf(x > 0, listeElementeInVieleck)
M_1 = (-2, -1)
N_1 = (4, -1)
O_1 = (-2, -1)
P_1 = (4, -1)
Q_1 = (-2, -1)
R_1 = (4, -1)
S_1 = (-2, -1)
T_1 = (4, -1)
U_1 = (-2, -1)
V_1 = (4, -1)
W_1 = (-2, -1)
Z_1 = (4, -1)
M_2 = (-2, -1)
N_2 = (4, -1)
O_2 = (-2, -1)
P_2 = (4, -1)
Q_2 = (-2, -1)
R_2 = (4, -1)
S_2 = (-2, -1)
T_2 = (4, -1)
U_2 = (-2, -1)
V_2 = (4, -1)
W_2 = (-2, -1)
Z_2 = (4, -1)
A_3 = (-2, -1)
B_3 = (4, -1)
C_3 = (-2, -1)
D_3 = (4, -1)
E_3 = (-2, -1)
F_3 = (4, -1)
G_3 = (-2, -1)
H_3 = (4, -1)
I_3 = (-2, -1)
J_3 = (4, -1)
K_3 = (-2, -1)
L_3 = (4, -1)
M_3 = (-2, -1)
N_3 = (4, -1)
O_3 = (-2, -1)
P_3 = (4, -1)
Text2: "\textsf{Wähle \bold{" + (LaTeX[würfelZahl]) + "} Würfel aus, deren arithmetisches Mittel die gewürfelte Augenzahl " + (LaTeX[augenZahl]) + " ergibt.}"
hintSpec: "\textsf\colorbox{#ebe7f8}{Du hast zu " + (LaTeX[If[sumCorrect < würfelZahl, "wenige", "viele"]]) + " Würfel in das Feld gezogen.}"
gezogen: {zahl1, zahl3, zahl2, zahl4, zahl5, zahl6, zahl1_2, zahl2_2, zahl3_2, zahl4_2, zahl5_2, zahl6_2}
sumIn = Sum(gezogen)
gezogenOhneNull: gezogen \ {0}
textRechnung: "\textsf{" + (LaTeX[ReplaceAll["" + gezogenOhneNull, ",", " +"]]) + " = " + (LaTeX[sumIn]) + "\\" + (LaTeX[sumIn]) + " : " + (LaTeX[würfelZahl]) + " = " + (LaTeX[sumIn / würfelZahl]) + "}"
Q_3 = (-2, -1)
R_3 = (4.04629641511365, -1)
S_3 = (-2, -1)
T_3 = (4, -1)
U_3 = (-2, -1)
V_3 = (4, -1)
W_3 = (-2, -1)
Z_3 = (4, -1)
A_4 = (-2, -1)
B_4 = (4, -1)
C_4 = (-2, -1)
D_4 = (4, -1)
E_4 = (-2, -1)
F_4 = (4, -1)
G_4 = (-2, -1)
H_4 = (4, -1)