骰子滚动模拟 by George Sturr

几何画板及绘图内容加载中，请稍等……

2014-04-30 12:29

函数数列概率统计几何作图

所属专题 Statistics Demonstrations Statistics Demonstrations Statistics Demonstrations Statistics Demonstrations Statistics Demonstrations

①本范例演示了滚动一个、两个或三个标准骰子时，骰子点数和的分布情况；②涉及的核心数学概念包括概率统计、几何分布、分段函数；③作图要点——从下方『构造摘要』提炼用到了 Sequence（数列）、SelectedIndex（选择索引）、If（条件判断）、BarChart（条形图）、对象 dice（骰子）、freq（频率）、counter（计数器）、n（次数）、graphMenu（图形菜单）、relFreq（相对频率）、graphType（图形类型）、btnReset（重置按钮）、yMax（Y轴最大值）、yMin（Y轴最小值）、xMax（X轴最大值）、xMin（X轴最小值）、fMax（函数最大值）、step（步长）、btnRun（运行按钮）、btnPause（暂停按钮）、text1（文本框）、sf（格式化函数）、btnOnce（单次按钮）；④适合高中阶段学习概率统计的学生使用，也可用于教学演示。

GeoGebra 命令及参数

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