骰子掷点模拟 by Martin Laroche

GeoGebra 命令及参数

1. Sequence(Element[freq, k], k, 1, (6 * dice) + 1) → freq2
2. Sequence(Element[freq2, k] / n, k, 1, Length[freq2]) → relFreq
3. SelectedIndex(graphMenu) → graphType
4. If(n ≟ 0, 0, Max[freq]) → fMax
5. Sequence(k - 1, k, 1, (6 * dice) + 1) → diceSum
6. BarChart(diceSum, relFreq) → relFreqChart
7. If(n ≟ 0, 0, Max[relFreq]) → relMax
8. BarChart(diceSum, freq2) → freqChart
9. Sequence(Text["" + (Element[relFreq, k]), (k - 1.3, Element[relFreq, k] + step)], k, 1, Length[relFreq]) → lbl2
10. Sequence(If[Element[freq2, k] > 0, Text["" + (Element[freq2, k]), (k - 1.2, Element[freq2, k] + step)]], k, 1, Length[freq2]) → lbl