积极 AI Logo 积极 AI

频率与相对频率分布

频率与相对频率分布
几何画板及绘图内容加载中，请稍等……
2020-04-24 14:37
概率统计函数图像
①本范例演示了如何通过GeoGebra绘制频率与相对频率分布直方图；②涉及的核心数学概念包括数据统计、频率分布、相对频率计算；③作图要点：运用了Sequence（序列）、Element（元素）、Mod（取模）、CountIf（计数）、Segment（线段）、Remove（移除）、Text（文本）等命令，以及RtSq（平方根）、Sq3（立方根）、Sq2（平方）、Sq1（一元根）、Sq4（四元根）、DataSq（数据平方）、Seed（种子）、Rate（速率）、Start（起始）、DtNm（数据名称）、DataMeas（数据测量）、SzNm（大小名称）、Size（大小）、DataA（数据A）、Frq7-Frq1（频率）、DtCnv4-DtCnv（数据转换）、DataB（数据B）、CW（中心点）、DtRw1-DtRw4（数据行）、CH（高度）、BtmLn（底线）、VrtLns（垂直线）、DsLc（数据列表）、TxPrtA-TxPtB（文本点）、DtLng（数据长度）等对象；④适合高中阶段学习概率统计的学生或教师使用。

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

AI 绘图提示语参考

绘制一个统计教学图表，包含一个频率分布表和对应的直方图。图表上方显示原始数据行，数据以数字形式排列成多行。下方表格列出分类区间、频数、相对频率（以分数形式表示）以及计算过程。直方图用垂直线段表示各分类的频数，底部有水平基线。整体布局清晰，适合高中概率统计教学。
以上提示语为根据原始绘图命令整理而来，仅供参考。