积极 AI Logo 积极 AI

定量频数分布构造 by David Gurney

定量频数分布构造 by David Gurney
几何画板及绘图内容加载中，请稍等……
2013-09-04 06:15
概率统计几何作图
所属专题 Charts & Graphs
①本范例演示如何从大量数据样本中构造定量频数分布；②涉及核心数学概念包括数据统计、频数分布、直方图、最大最小值、平均值等；③作图要点：运用了Sequence（序列）、Element（元素）、Max（最大值）、Min（最小值）、If（条件判断）、KeepIf（保留条件）、Mean（平均值）、Sort（排序）、CountIf（计数）、Append（追加）、Polygon（多边形）、Segment（线段）、Sum（求和）等GeoGebra命令及对象；④适合高中及以上数学学习者，用于概率统计教学与数据分析实践。

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, 20] + 1, k, 0, 19, 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, 19) → StrSq
  25. KeepIf(floor(20 / x) ≠ 20 / x, StrSq) → RlPrSq
  26. Sequence(Element[SmpSq, k], k, 1, RwLn1) → DtRw1
  27. Sequence(Element[SmpSq, k], k, RwLn1 + 1, Size) → DtRw2
  28. Element(DDSq, Data) → DD0
  29. Mean(SmpSq) → Xbar
  30. Sort(SmpSq) → SrtSq
  31. CountIf(x > 0, RtSq) → RtNo
  32. Element(SclSq, Data) → Scale
  33. Sequence(If[k > 1, " + ", " "], k, 1, NmCl) → PlsSq
  34. Sequence(" = ", k, 1, NmCl) → EqSq
  35. Sequence(DtMn + k * ClWd, k, 0, NmCl - 2) → LCLCn1
  36. Append(DtMn, LCLCn1) → LCLCn2
  37. Sequence(ClWd, k, 1, NmCl - 1) → CWSq1
  38. Append(" ", CWSq1) → CWSq2
  39. Sequence(UCL1 + ClWd * k, k, 0, NmCl - 2) → UCLCn1
  40. Append(UCL1, UCLCn1) → UCLCn2
  41. Sequence("to", k, 1, NmCl) → ToSq
  42. Sequence(If[Element[FrSq, j] > 0, Sequence["|", k, 1, Element[FrSq, j]], {" "}], j, 1, NmCl) → TlSq
  43. Polygon(FDUL, FDLL, FDLR, FDUR) → FDBx, fdrg, fdbt, fdlf, fdtp
  44. If(VScl ≟ 3, ceil(FrMx / 3) * 3, If[VScl ≟ 2, ceil(FrMx / 2) * 2, FrMx]) → VMax
  45. Element(LCL, 1) → LCL1
  46. Segment(TbML, TbMR) → tbmd
  47. Segment(TbLL, TbLR) → tbbt
  48. Segment(TbUL, TbUR) → tbtp
  49. Sum(FrSq) → ChSz
  50. CountIf(x ≠ (0, 0), Dt0) → DtCn
  51. Sequence(Text[Element[LCL, k], (17.1, CLTp - 0.9 * k)], k, 1, NmCl) → LCLTx1
  52. Sequence(Text[Element[EqSq, k], (16.1, CLTp - 0.9 * k)], k, 1, NmCl) → EqTx1
  53. Sequence(Text[Element[CWSq1, k], (14.3, CLTp - 0.9 - 0.9 * k)], k, 1, NmCl - 1) → CWTx1
  54. Sequence(Text[Element[PlsSq, k], (13.3, CLTp - 0.9 * k)], k, 1, NmCl) → PlsTx1
  55. Sequence(Text[Element[LCLCn2, k], (11.6, CLTp - 0.9 * k)], k, 1, NmCl) → LCLCnTx
  56. Sequence(Text[Element[UCL, k], (26, CLTp - 0.9 * k)], k, 1, NmCl) → UCLTx1
  57. Sequence(Text[Element[EqSq, k], (25, CLTp - 0.9 * k)], k, 1, NmCl) → EqTx2
  58. Sequence(Text[Element[CWSq1, k], (23.3, CLTp - 0.9 - 0.9 * k)], k, 1, NmCl - 1) → CWTx2
  59. Sequence(Text[Element[PlsSq, k], (22.2, CLTp - 0.9 * k)], k, 1, NmCl) → PlsTx2
  60. Sequence(Text[Element[UCLCn2, k], (20.5, CLTp - 0.9 * k)], k, 1, NmCl) → UCLCnTx
  61. Sequence(Segment[(TbLf + CW * k, TbLH0), (TbLf + CW * k, TbLH2)], k, 0, RwLn2) → TbVLn
  62. If(Mod[Size, 2] ≟ 1, Segment[TbMR, TbUR], Segment[TbLR, TbUR]) → tbrg
  63. Sequence(Text[Element[UCL, k], (15.4, DLHt - 0.9 * k)], k, 1, NmCl) → UCLTx2
  64. Sequence(Text[Element[ToSq, k], (14.3, DLHt - 0.9 * k)], k, 1, NmCl) → ToTx
  65. Sequence(Text[Element[LCL, k], (12.2, DLHt - 0.9 * k)], k, 1, NmCl) → LCLTx2
  66. Sequence(Text[Element[FrSq, k], (24.3, DLHt - 0.9 * k)], k, 1, NmCl) → FrTx
  67. 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
  68. Sequence(Text[Element[DtRw1, k], (TbLf - 1.8 + k * CW, TbLH1 + 0.15)], k, 1, RwLn1) → TxRw1
  69. Sequence(Text[Element[DtRw2, k], (TbLf - 1.8 + k * CW, TbLH2 + 0.15)], k, 1, RwLn2) → TxRw2
  70. If(AcCn ≠ 1, "s", "") → PlCn
  71. If(AcDt ≠ 1, "s", "") → PlDt
  72. If(AcCW ≠ 1, "s", "") → PlCW

AI 绘图提示语参考

绘制一个数据统计图表，展示如何从多个数据样本构建定量频率分布。首先，根据数据生成直方图，标出最大值和最小值，并计算平均值。接着，划分数据区间，统计每个区间的频数，并用柱状图表示。最后，将所有元素组合成一个完整的统计图表，包括数据点、区间划分、频数统计和直方图。
以上提示语为根据原始绘图命令整理而来，仅供参考。