积极 AI Logo 积极 AI

相对频率分布问题

相对频率分布问题
几何画板及绘图内容加载中，请稍等……
2013-08-30 00:32
数列概率统计函数图像
所属专题 Charts & Graphs
本范例通过让学生将频数分布转换为相对频率分布，演示了如何处理统计数据。核心数学概念包括统计特征和概率统计。使用了GeoGebra命令如Element, Mod, Sequence等进行构造。适合初中及以上学生学习。

GeoGebra 命令及参数

  1. Element(CatNoSq, DataSet) → CatNo1
  2. Mod(Seed, 10) → Start
  3. Element(CatLabSq, DataSet) → CatLab
  4. Sequence("/", k, 1, CatNo1) → DvSq
  5. Sequence(" = ", k, 1, CatNo1) → EqSq
  6. Element(IndPrcSq, DataSet) → IndPrc
  7. Element(CatSq, DataSet) → Cat1
  8. Sequence(Sum[First[IndPrc1, k]], k, 1, 5) → CmlPrc1
  9. Sequence(Sum[First[IndPrc2, k]], k, 1, 4) → CmlPrc2
  10. Sequence(Sum[First[IndPrc3, k]], k, 1, 3) → CmlPrc3
  11. Sequence(If[k > 96, 6, If[k > 91, 5, If[k > 85, 4, If[k > 79, 3, If[k > 66, 2, 1]]]]], k, 1, 100) → DtSq1
  12. Sequence(If[k > 91, 5, If[k > 69, 4, If[k > 57, 3, If[k > 51, 2, 1]]]], k, 1, 100) → DtSq2
  13. Sequence(If[k > 79, 4, If[k > 66, 3, If[k > 28, 2, 1]]], k, 1, 100) → DtSq3
  14. Element(DtSqSq, DataSet) → DtSq
  15. Sequence(Element[DtSq, Mod[Seed + 47 * k, 100] + 1], k, 1, Sz1) → AcDt
  16. Sequence(CountIf[x ≟ k, AcDt], k, 1, CatNo1) → FrqSq1
  17. Sequence(If[Element[FrqSq1, k] ≟ 0, NaN, Element[FrqSq1, k]], k, 1, CatNo1) → FrqSq2
  18. RemoveUndefined(FrqSq2) → FrqSq3
  19. Sequence(If[Element[FrqSq2, k] ≠ 0, Element[Cat1, k]], k, 1, CatNo1) → Cat2
  20. RemoveUndefined(Cat2) → Cat3
  21. CountIf(x > 0, FrqSq1) → CatNo2
  22. Sum(FrqSq3) → Sz2
  23. Sequence(Element[FrqSq3, k] / Sz2, k, 1, CatNo2) → RFSq
  24. Sequence(Text[Element[Cat3, k], (-4, 0 - 0.1 * k)], k, 1, CatNo2) → CatTxt
  25. Sequence(Text[Element[FrqSq3, k], (15, -0.1 * k)], k, 1, CatNo2) → FrqTxt1
  26. Sequence(Text[Element[RFSq, k], (24.5, -0.1 * k)], k, 1, CatNo2) → RFTxt1
  27. Sequence(Text[Element[FrqSq3, k], (34.5, -0.1 * k)], k, 1, CatNo2) → FrqTxt2
  28. Sequence(Text[Element[DvSq, k], (37, -0.1 * k)], k, 1, CatNo2) → DvTxtSq
  29. Sequence(Text[Sz2, (38, -0.1 * k)], k, 1, CatNo2) → SzTxt
  30. Sequence(Text[Element[RFSq, k], (43, -0.1 * k)], k, 1, CatNo2) → RFTxt2
  31. Sequence(Text[Element[EqSq, k], (40.5, -0.1 * k)], k, 1, CatNo2) → EqTxtSq