积极 AI Logo 积极 AI

频率与相对频率分布的几何作图示例

频率与相对频率分布的几何作图示例
几何画板及绘图内容加载中，请稍等……
2018-07-18 02:00
矩阵几何作图
本范例通过GeoGebra演示频率与相对频率分布的统计概念。核心数学概念包括统计学中的频率分布、几何作图与数据可视化。作图要点涉及使用Sequence、Element、Mod、CountIf等GeoGebra命令构建数据序列，并结合RtSq、Sq3等对象生成图形。适合高中生学习统计学基础及几何作图技巧。

GeoGebra 命令及参数

  1. Sequence(If[k < 56, If[k < 20, If[k < 8, 1, 2], 3], 4], k, 1, 100) → Sq3
  2. Sequence(If[k < 71, If[k < 39, If[k < 26, If[k < 13, 1, 2], 3], 4], 5], k, 1, 100) → Sq2
  3. Sequence(If[k < 97, If[k < 90, If[k < 79, If[k < 53, 1, 2], 3], 4], 5], k, 1, 100) → Sq1
  4. Sequence(If[k < 80, If[k < 45, If[k < 40, If[k < 25, If[k < 12, If[k < 7, 1, 2], 3], 4], 5], 6], 7], k, 1, 100) → Sq4
  5. Element(RtSq, Mod[Seed, 13] + 1) → Rate
  6. Mod(Seed, 7) → Start
  7. Element(DataSq, DtNm) → DataMeas
  8. Sequence(Element[DataMeas, Mod[Start + (Rate * k), 100] + 1], k, 1, Size) → DataA
  9. CountIf(x ≟ 7, DataA) → Frq7
  10. CountIf(x ≟ 6, DataA) → Frq6
  11. CountIf(x ≟ 5, DataA) → Frq5
  12. CountIf(x ≟ 4, DataA) → Frq4
  13. CountIf(x ≟ 3, DataA) → Frq3
  14. CountIf(x ≟ 2, DataA) → Frq2
  15. CountIf(x ≟ 1, DataA) → Frq1
  16. Element(DtCnvSq, DtNm) → DtCnv
  17. Sequence(Element[DtCnv, Element[DataA, k]], k, 1, Size) → DataB
  18. Sequence(Text[Element[DataB, k], (1 + ((k - 1) * CW), 13)], k, 1, 5) → DtRw1
  19. Sequence(Text[Element[DataB, k], (1 + ((k - 6) * CW), 12.5)], k, 6, 10) → DtRw2
  20. Sequence(Text[Element[DataB, k], (1 + ((k - 11) * CW), 12)], k, 11, 15) → DtRw3
  21. Segment((0.9, 13.35 - (4 * CH)), (0.9 + (SzNm * CW), 13.35 - (4 * CH))) → BtmLn
  22. Sequence(Segment[(0.9 + (k * CW), 13.35), (0.9 + (k * CW), If[SzNm ≥ k, 13.35 - (4 * CH), 13.35 - (3 * CH)])], k, 0, 5) → VrtLns
  23. Sequence(Text[Element[DataB, k], (1 + ((k - 16) * CW), 11.5)], k, 16, 15 + SzNm) → DtRw4
  24. Element(DtLng, DtNm) → CtNmA
  25. Sequence(If[Element[FrqSqA, k] > 0, Element[DtCnv, k], "?"], k, 1, CtNmA) → CtSqA
  26. Remove(CtSqA, {"?", "?", "?", "?", "?"}) → CtSqB
  27. CountIf(x ≠ 0, FrqSqA) → ClsCnt
  28. Remove(FrqSqA, {0, 0, 0, 0, 0, 0}) → FrqSqB
  29. Sequence(Element[FrqSqB, k] / Size, k, 1, ClsCnt) → RlFrqSq
  30. Sequence(Text[Element[CtSqB, k], (1.5, 8.3 - (k * CH))], k, 1, ClsCnt) → ClsTx
  31. Sequence(Segment[(0.9, 13.35 - (CH * k)), (0.9 + (5 * CW), 13.35 - (CH * k))], k, 0, 3) → HrzLns
  32. Sequence(Text[Element[FrqSqB, k], (3.6, 8.3 - (k * CH))], k, 1, ClsCnt) → FrqTx
  33. Text("Freq.", (3.5, 8.3)) → FrqLb
  34. Sequence(Text[Element[RlFrqSq, k], (4.7, 8.3 - (k * CH))], k, 1, ClsCnt) → RlFrqTx
  35. Sequence(Text[Element[FrqSqB, k], (6.1, 8.3 - (k * CH))], k, 1, ClsCnt) → RFClcSq
  36. Sequence(Text["/", (6.5, 8.3 - (k * CH))], k, 1, ClsCnt) → DvdSq
  37. Sequence(Text[Size, (6.65, 8.3 - (k * CH))], k, 1, ClsCnt) → SzSq