音乐音符测验：认识五线谱上的音符

GeoGebra 命令及参数

1. Sequence(Random[1, Length[notes]] + 0 * recalc, i, 1, 4) → vals
2. Sequence(-1.5 + 0.5 * i, i, 0, Length[notes]) → nodes_{pos}
3. Sequence(Element[nodes_{pos}, Element[vals, i]], i, 1, Length[vals]) → vals_{pos}
4. Segment((-6, 4), (-6, 0)) → bar
5. Sequence(Segment[(-5.9, i), (x(Corner[3]), i)], i, 0, 4) → staff
6. Sequence(If[Element[vals_{pos}, i] ≟ -1.5 ∨ (Element[vals_{pos}, i] ≥ 4.5), Segment[(xbase - 0.25 + (i - 1) * xdist, Element[vals_{pos}, i] + 0.5), (xbase + 2 + (i - 1) * xdist, Element[vals_{pos}, i] + 0.5)]], i, 1, Length[vals]) → staff_{support}
7. Sequence(Segment[(xbase + 0.8 + (i - 1) * xdist, Element[vals_{pos}, i] - 0.2), (xbase + 0.8 + (i - 1) * xdist, -3)], i, 1, 4) → input_{lines}
8. Sequence(Element[answers, i] ≟ Element[notes, Element[vals, i]], i, 1, 4) → correct
9. Textfield(answer_1) → input_1
10. Textfield(answer_2) → input_2
11. Textfield(answer_3) → input_3
12. Textfield(answer_4) → input_4
13. Sequence(If[Element[vals_{pos}, i] ≟ 5, Segment[(xbase - 0.25 + (i - 1) * xdist, Element[vals_{pos}, i] + 0.5 - 1), (xbase + 2 + (i - 1) * xdist, Element[vals_{pos}, i] + 0.5 - 1)]], i, 1, Length[vals]) → staff_{support2}