掷两枚骰子

GeoGebra 命令及参数

1. CountIf(x ≠ 0, trials) → n
2. If(n > 0, n, 1) → n1
3. TableText({trials}) → text3
4. Unique(trials) → list2
5. Append("sum", list2) → list3
6. Frequency(trials) → list4
7. Append("frequency", list4) → list5
8. Append(list5, n) → list6
9. Append(list3, "total") → list7
10. TableText({list7, list6}, "cv") → text1
11. BarChart(0.05, 0.15, {100 * CountIf[x ≟ 2, trials] / n1}) → c
12. BarChart(0.15, 0.25, {100 * CountIf[x ≟ 3, trials] / n1}) → d
13. BarChart(0.25, 0.35, {100 * CountIf[x ≟ 4, trials] / n1}) → e
14. BarChart(0.35, 0.45, {100 * CountIf[x ≟ 5, trials] / n1}) → f
15. BarChart(0.45, 0.55, {100 * CountIf[x ≟ 6, trials] / n1}) → g
16. BarChart(0.55, 0.65, {100 * CountIf[x ≟ 7, trials] / n1}) → h
17. BarChart(0.65, 0.75, {100 * CountIf[x ≟ 8, trials] / n1}) → i
18. BarChart(0.75, 0.85, {100 * CountIf[x ≟ 9, trials] / n1}) → j
19. BarChart(0.85, 0.95, {100 * CountIf[x ≟ 10, trials] / n1}) → k
20. BarChart(0.95, 1.05, {100 * CountIf[x ≟ 11, trials] / n1}) → l
21. BarChart(1.05, 1.15, {100 * CountIf[x ≟ 12, trials] / n1}) → m
22. Sequence(Segment[(0, i), (4, i)], i, 2.5, 100, 2.5) → list1