积极 AI Logo 积极 AI

条形图构造

条形图构造
几何画板及绘图内容加载中，请稍等……
2013-08-30 01:21
几何作图函数图像
所属专题 Charts & Graphs
①本范例演示如何根据分类数据构建频率和相对频率条形图；②涉及核心数学概念包括数据分类、频率统计、相对频率计算；③构造过程中运用了 GeoGebra 命令 Sequence（序列生成）、Element（元素选择）、RemoveUndefined（移除未定义对象）、Max（求最大值）、Mod（取模运算）、CountIf（计数条件）、Sum（求和）、Segment（线段绘制）；对象包括 Seed（种子值）、DataSet（数据集）、FrqMax（最大频率）、CatC（分类数据）、CatLab（分类标签）等；④适合高中阶段统计学教学及数据分析入门学习。

GeoGebra 命令及参数

  1. Sequence(If[k > 79, 4, If[k > 66, 3, If[k > 28, 2, 1]]], k, 1, 100) → DtSq3
  2. Sequence(If[k > 91, 5, If[k > 69, 4, If[k > 57, 3, If[k > 51, 2, 1]]]], k, 1, 100) → DtSq2
  3. 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
  4. Element(DtSqSq, DataSet) → DtSq
  5. Sequence(Element[DtSq, Mod[Seed + 47 * k, 100] + 1], k, 1, Sz1) → AcDt
  6. Element(CatNoSq, DataSet) → CatNo1
  7. Sequence(CountIf[x ≟ k, AcDt], k, 1, CatNo1) → FrqSq1
  8. Sequence(If[Element[FrqSq1, k] ≟ 0, NaN, Element[FrqSq1, k]], k, 1, CatNo1) → FrqSq2
  9. RemoveUndefined(FrqSq2) → FrqSq3
  10. Max(FrqSq3) → FrqMax
  11. Max(1, floor(FrqMax / 3)) → FrqUnt
  12. Mod(Seed, 10) → Start
  13. Element(CatLabSq, DataSet) → CatLab
  14. Element(IndPrcSq, DataSet) → IndPrc
  15. Element(CatSq, DataSet) → Cat1
  16. Sequence(Sum[First[IndPrc1, k]], k, 1, 5) → CmlPrc1
  17. Sequence(Sum[First[IndPrc2, k]], k, 1, 4) → CmlPrc2
  18. Sequence(Sum[First[IndPrc3, k]], k, 1, 3) → CmlPrc3
  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, ClTp - 0.1 * k)], k, 1, CatNo2) → CatTxt
  25. Sequence(Text[Element[FrqSq3, k], (15, ClTp - 0.1 * k)], k, 1, CatNo2) → FrqTxt1
  26. Segment(UL, LL) → FrqAx
  27. Segment(LL, LR) → HrAx
  28. Segment(LR, UR) → RFAx
  29. Sequence(Segment[(GL + (k - 1) * CW, Adpt(Element[FrqSq3, k])), (GL + k * CW, Adpt(Element[FrqSq3, k]))], k, 1, CatNo2) → BrTp
  30. Segment(LL, (GL, Adpt(Element[FrqSq3, 1]))) → LftSd
  31. Segment(LR, (GR, Adpt(Element[FrqSq3, CatNo2]))) → RgtSd
  32. Sequence(Segment[(GL + k * CW, GB), (GL + k * CW, Adpt(Max[Element[FrqSq3, k], Element[FrqSq3, k + 1]]))], k, 1, CatNo2 - 1) → BrSd
  33. Sequence((GL + (k - 0.6) * CW - 0.5, GB + 0.02), k, 1, CatNo2) → LblLcSq
  34. Sequence(VerticalText[Element[Cat3, k], Element[LblLcSq, k]], k, 1, CatNo2) → BrLblSq
  35. Element(TtlSq, DataSet) → Title
  36. Sequence(Text[k, (GL - 3.5, GB + k * FrqScl - 0.02)], k, 0, AxMax, FrqUnt) → FrqLbSq
  37. Sequence(Segment[(GL - 1, Adpt(k)), (GL, Adpt(k))], k, 0, AxMax, FrqUnt) → FrqAxTc
  38. Sequence(Segment[(GR, Adpt(k)), (GR + 1, Adpt(k))], k, 0, AxMax, FrqUnt) → RFAxTc
  39. Sequence(Text[k / Sz2, (GR + 1.1, GB + k * FrqScl - 0.02)], k, 0, AxMax, FrqUnt) → RFLblSq

AI 绘图提示语参考

绘制一个条形图，展示分类数据的频率和相对频率。首先根据数据创建三个序列，表示不同类别的频率，然后从这些序列中提取数据点，计算每个类别的频率和相对频率。接着，根据频率绘制条形图，条形高度与频率成正比，并标注每个类别的名称和频率值。最后，添加坐标轴和标题，完成图表的绘制。
以上提示语为根据原始绘图命令整理而来，仅供参考。