积极 AI Logo 积极 AI

定量频率分布的构造与可视化

定量频率分布的构造与可视化
几何画板及绘图内容加载中，请稍等……
2015-08-13 02:42
数列概率统计函数图像
本范例演示如何在GeoGebra中构造定量频率分布。通过复选框可展示不同数据集合的频率分布图表，涉及的核心数学概念包括频数统计、组距划分、频率计算等。制作要点：使用Sequence命令生成数据序列，CountIf统计各组频数，If实现条件筛选，Mean计算均值，Sort对数据排序，Max/Min确定数据范围，最后用Polygon绘制频率分布多边形。本范例适合中学数学概率统计章节的教学，可帮助学生理解频率分布表的构建原理和直方图的绘制方法，也可用于统计学入门课程的辅助教学。

GeoGebra 命令及参数

  1. Sequence(TbTp - k, k, 0, 3) → TbLHSq
  2. Element(TbLHSq, 3) → TbLH2
  3. Element(RtSq, Mod[Seed, 8] + 1) → Rate
  4. Sequence(Mod[(Rate * k) + Strt, 23] + 1, k, 0, 22, 1) → OpSq
  5. Element(DtSq, Data) → Dt0
  6. Sequence(Element[Dt0, Element[OpSq, k]], k, 1, Size) → SmpSq
  7. Element(TbLHSq, 1) → TbLH0
  8. Element(AcSq, Data) → AcDt
  9. Max(SmpSq) → DtMx
  10. Min(SmpSq) → DtMn
  11. If(C0 ≤ UB, 0, If[C1 ≤ UB, 0, If[C2 ≤ UB, 1, If[C3 ≤ UB, 2, 3]]]) → AcCW
  12. Max(AcDt, AcCW) → AcCn
  13. If(C0 ≤ UB, C0, If[C1 ≤ UB, C1, If[C2 ≤ UB, C2, If[C3 ≤ UB, C3, C4]]]) → ClWd
  14. Sequence(DtMn + (k * ClWd), k, 0, NmCl - 1) → LCL
  15. Element(LCL, 2) → LCL2
  16. Sequence(UCL1 + (ClWd * k), k, 0, NmCl - 1) → UCL
  17. Sequence(CountIf[Element[LCL, k] ≤ x ≤ Element[UCL, k], SmpSq], k, 1, NmCl) → FrSq
  18. Max(FrSq) → FrMx
  19. If(FrMx > 12, 3, If[FrMx > 6, 2, 1]) → VScl
  20. Element(TbLHSq, 4) → TbLH3
  21. Element(TbLHSq, 2) → TbLH1
  22. Element(LCL, 1) → AxMn
  23. Element(PlcSq, Data) → DP
  24. Sequence(k, k, 1, 23) → StrSq
  25. Sequence(Element[SmpSq, k], k, 1, RwLn1) → DtRw1
  26. Sequence(Element[SmpSq, k], k, RwLn1 + 1, Size) → DtRw2
  27. Element(DDSq, Data) → DD0
  28. Mean(SmpSq) → Xbar
  29. Sort(SmpSq) → SrtSq
  30. CountIf(x > 0, RtSq) → RtNo
  31. Element(SclSq, Data) → Scale
  32. Sequence(If[k > 1, " + ", " "], k, 1, NmCl) → PlsSq
  33. Sequence(" = ", k, 1, NmCl) → EqSq
  34. Sequence(DtMn + (k * ClWd), k, 0, NmCl - 2) → LCLCn1
  35. Append(DtMn, LCLCn1) → LCLCn2
  36. Sequence(ClWd, k, 1, NmCl - 1) → CWSq1
  37. Append(" ", CWSq1) → CWSq2
  38. Sequence(UCL1 + (ClWd * k), k, 0, NmCl - 2) → UCLCn1
  39. Append(UCL1, UCLCn1) → UCLCn2
  40. Sequence("to", k, 1, NmCl) → ToSq
  41. Sequence(If[Element[FrSq, j] > 0, Sequence["|", k, 1, Element[FrSq, j]], {" "}], j, 1, NmCl) → TlSq
  42. Polygon(FDUL, FDLL, FDLR, FDUR) → FDBx, fdrg, fdbt, fdlf, fdtp
  43. If(VScl ≟ 3, (ceil(FrMx / 3) * 3), If[VScl ≟ 2, (ceil(FrMx / 2) * 2), FrMx]) → VMax
  44. Element(LCL, 1) → LCL1
  45. Segment(TbML, TbMR) → tbmd
  46. Segment(TbLL, TbLR) → tbbt
  47. Segment(TbUL, TbUR) → tbtp
  48. Sum(FrSq) → ChSz
  49. CountIf(x ≠ (0, 0), Dt0) → DtCn
  50. Sequence(Text[Element[LCL, k], (17.1, CLTp - (0.9 * k))], k, 1, NmCl) → LCLTx1
  51. Sequence(Text[Element[EqSq, k], (16.1, CLTp - (0.9 * k))], k, 1, NmCl) → EqTx1
  52. Sequence(Text[Element[CWSq1, k], (14.3, CLTp - 0.9 - (0.9 * k))], k, 1, NmCl - 1) → CWTx1
  53. Sequence(Text[Element[PlsSq, k], (13.3, CLTp - (0.9 * k))], k, 1, NmCl) → PlsTx1
  54. Sequence(Text[Element[LCLCn2, k], (11.6, CLTp - (0.9 * k))], k, 1, NmCl) → LCLCnTx
  55. Sequence(Text[Element[UCL, k], (26, CLTp - (0.9 * k))], k, 1, NmCl) → UCLTx1
  56. Sequence(Text[Element[EqSq, k], (25, CLTp - (0.9 * k))], k, 1, NmCl) → EqTx2
  57. Sequence(Text[Element[CWSq1, k], (23.3, CLTp - 0.9 - (0.9 * k))], k, 1, NmCl - 1) → CWTx2
  58. Sequence(Text[Element[PlsSq, k], (22.2, CLTp - (0.9 * k))], k, 1, NmCl) → PlsTx2
  59. Sequence(Text[Element[UCLCn2, k], (20.5, CLTp - (0.9 * k))], k, 1, NmCl) → UCLCnTx
  60. Sequence(Segment[(TbLf + (CW * k), TbLH0), (TbLf + (CW * k), TbLH2)], k, 0, RwLn2) → TbVLn
  61. If(Mod[Size, 2] ≟ 1, Segment[TbMR, TbUR], Segment[TbLR, TbUR]) → tbrg
  62. Sequence(Text[Element[FrSq, k], (24.3, DLHt - (0.9 * k))], k, 1, NmCl) → FrTx
  63. Sequence(If[Element[FrSq, j] > 0, Sequence[Text["|", (17.8 + (k * 0.3), DLHt - (0.9 * j))], k, 1, Element[FrSq, j]], Text[" ", (17.8, DLHt - (0.9 * j))]], j, 1, NmCl) → TlTxSq
  64. If(AcCn ≠ 1, "s", "") → PlCn
  65. If(AcDt ≠ 1, "s", "") → PlDt
  66. If(AcCW ≠ 1, "s", "") → PlCW
  67. KeepIf(floor(23 / x) ≠ 23 / x, StrSq) → RlPrSq
  68. Sequence(Text[Element[DtRw1, k], (TbLf - 2.3 + (k * CW), TbLH1 + 0.15)], k, 1, RwLn1) → TxRw1
  69. Sequence(Text[Element[DtRw2, k], (TbLf - 2.3 + (k * CW), TbLH2 + 0.15)], k, 1, RwLn2) → TxRw2
  70. Sequence(Text[Element[UCL, k], (15.8, DLHt - (0.9 * k))], k, 1, NmCl) → UCLTx2
  71. Sequence(Text[Element[ToSq, k], (14.7, DLHt - (0.9 * k))], k, 1, NmCl) → ToTx
  72. Sequence(Text[Element[LCL, k], (12.2, DLHt - (0.9 * k))], k, 1, NmCl) → LCLTx2

AI 绘图提示语参考

绘制一个定量频率分布表及其直方图。先生成一组随机样本数据，计算其最大值与最小值，并据此确定类区间宽度与类数。用垂直分隔线标出各类边界，统计每个区间内的数据个数作为频数。在坐标轴上绘制直方图，每个矩形高度对应频数，并调整纵轴比例使图形清晰。同时显示频率分布表，包含类区间、频数及累计频数，并用复选框控制表格与图形的显示。
以上提示语为根据原始绘图命令整理而来，仅供参考。