积极 AI Logo 积极 AI

交互式茎叶图构建工具

交互式茎叶图构建工具
几何画板及绘图内容加载中，请稍等……
2020-09-02 16:57
数列概率统计函数图像
本范例演示了一个交互式茎叶图（Stem-and-Leaf Diagram）的构建与数据可视化工具。它涉及的核心数学概念包括统计学中的数据整理、茎叶表示法、数据排序与分组。在作图要点上，该工具利用了 GeoGebra 的多种命令（如 Max, Min, Sequence, Reverse, Sort, Join, KeepIf, Length, TextToUnicode, UnicodeToText 等）以及列表对象（如 Data1, Data2, listStem2, list10, list20 等），通过动态文本输入和条件筛选，实现数据的自动分类、茎叶拆分与表格化展示。该工具适合中学或大学初级统计学课程，适用于教师演示数据整理过程或学生自主探索数据分布特征。

GeoGebra 命令及参数

  1. Max(Join[{Data1, Data2}]) → q2
  2. Min(Join[{Data1, Data2}]) → p2
  3. Min(Data1) → p1
  4. Max(Data1) → q1
  5. Sequence(i, i, v2, w2, 1) → listStem2
  6. Reverse(Sort[Data2 / c]) → list20
  7. Sort(Data1 / c) → list10
  8. Join({{Element[listStem2, 9]}, l39}) → l9
  9. Join({{Element[listStem2, 8]}, l38}) → l8
  10. Join({{Element[listStem2, 7]}, l37}) → l7
  11. Join({{Element[listStem2, 6]}, l36}) → l6
  12. Join({{Element[listStem2, 5]}, l35}) → l5
  13. Join({{Element[listStem2, 4]}, l34}) → l4
  14. Join({{Element[listStem2, 1]}, l31}) → l1
  15. Join({{Element[listStem2, 2]}, l32}) → l2
  16. Join({{Element[listStem2, 3]}, l33}) → l3
  17. TextToUnicode(Unit) → list36
  18. KeepIf(35 < x < 37, list36) → list30
  19. KeepIf(x ≠ 36, list36) → list34
  20. Max({Length[list21], Length[list22], Length[list23], Length[list24], Length[list25], Length[list26], Length[list27], Length[list28], Length[list29]}) → m2
  21. Length(Data2) → n2
  22. Length(Data1) → n1
  23. Textfield(Title) → InputBoxTitle
  24. Textfield(Data1) → InputBoxData1
  25. Sequence(i, i, v1, w1, 1) → listStem1
  26. Max({Length[list11], Length[list12], Length[list13], Length[list14], Length[list15], Length[list16], Length[list17], Length[list18], Length[list19]}) → m1
  27. Textfield(Unit) → InputBoxUnit
  28. TextToUnicode(" ") → list32
  29. Textfield(Data2) → InputBoxData2
  30. Sequence(If[n1 ≥ i, Element[Data1, i], x], i, 1, If[n1 ≥ 10, 10, n1], 1) → DataRow1_1
  31. Sequence(If[n1 ≥ i, Element[Data1, i], x], i, 11, If[n1 ≥ 20, 20, n1], 1) → DataRow2_1
  32. Sequence(If[n1 ≥ i, Element[Data1, i], 32], i, 21, If[n1 ≥ 30, 30, n1], 1) → DataRow3_1
  33. Sequence(If[n2 ≥ i, Element[Data2, i], x], i, 21, If[n2 ≥ 30, 30, n2], 1) → DataRow3_2
  34. Sequence(If[n2 ≥ i, Element[Data2, i], x], i, 1, If[n2 ≥ 10, 10, n2], 1) → DataRow1_2
  35. Sequence(If[n2 ≥ i, Element[Data2, i], x], i, 11, If[n2 ≥ 20, 20, n2], 1) → DataRow2_2
  36. TableText({DataRow1_1, DataRow2_1, DataRow3_1, "."}) → text31
  37. TableText({DataRow1_2, DataRow2_2, DataRow3_2, "."}) → text32
  38. Join({{Element[listStem1, 1]}, list11}) → l11
  39. Join({{Element[listStem1, 2]}, list12}) → l12
  40. Join({{Element[listStem1, 3]}, list13}) → l13
  41. Join({{Element[listStem1, 4]}, list14}) → l14
  42. Join({{Element[listStem1, 5]}, list15}) → l15
  43. Join({{Element[listStem1, 6]}, list16}) → l16
  44. Join({{Element[listStem1, 7]}, list17}) → l17
  45. Join({{Element[listStem1, 8]}, list18}) → l18
  46. Join({{Element[listStem1, 9]}, list19}) → l19
  47. Join({Sequence[" ", i, 1, m2 - Length[list23]], list23, l3, Sequence[" ", i, 1, m1 - Length[l33]]}) → l23
  48. Join({Sequence[" ", i, 1, m2 - Length[list22]], list22, l2, Sequence[" ", i, 1, m1 - Length[l32]]}) → l22
  49. Join({Sequence[" ", i, 1, m2 - Length[list21]], list21, l1, Sequence[" ", i, 1, m1 - Length[l31]]}) → l21
  50. Join({Sequence[" ", i, 1, m2 - Length[list24]], list24, l4, Sequence[" ", i, 1, m1 - Length[l34]]}) → l24
  51. Join({Sequence[" ", i, 1, m2 - Length[list25]], list25, l5, Sequence[" ", i, 1, m1 - Length[l35]]}) → l25
  52. Join({Sequence[" ", i, 1, m2 - Length[list26]], list26, l6, Sequence[" ", i, 1, m1 - Length[l36]]}) → l26
  53. Join({Sequence[" ", i, 1, m2 - Length[list27]], list27, l7, Sequence[" ", i, 1, m1 - Length[l37]]}) → l27
  54. Join({Sequence[" ", i, 1, m2 - Length[list28]], list28, l8, Sequence[" ", i, 1, m1 - Length[l38]]}) → l28
  55. Join({Sequence[" ", i, 1, m2 - Length[list29]], list29, l9, Sequence[" ", i, 1, m1 - Length[l39]]}) → l29
  56. Join({Sequence[" ", i, 1, m2], l10}) → l20
  57. If(b ≟ 1, TableText[l10, l11, "|010000000000_010000000000c"], b ≟ 6, TableText[l10, l11, l12, l13, l14, l15, l16, "|010000000000_010000000000c"], b ≟ 7, TableText[l10, l11, l12, l13, l14, l15, l16, l17, "|010000000000_010000000000c"], b ≟ 8, TableText[l10, l11, l12, l13, l14, l15, l16, l17, l18, "|010000000000_010000000000c"], b ≟ 9, TableText[l10, l11, l12, l13, l14, l15, l16, l17, l18, l19, "|010000000000_010000000000c"], b ≟ 2, TableText[l10, l11, l12, "|010000000000_010000000000c"], b ≟ 3, TableText[l10, l11, l12, l13, "|010000000000_010000000000c"], b ≟ 4, TableText[l10, l11, l12, l13, l14, "|010000000000_010000000000c"], b ≟ 5, TableText[l10, l11, l12, l13, l14, l15, "|010000000000_010000000000c"]) → text8
  58. Join({{124}, Sequence[48, i, 1, m2, 1], {49, 49}, Sequence[48, i, 1, m1, 1], {95, 48, 49}, Sequence[48, i, 1, d, 1], {99}}) → l30
  59. UnicodeToText(l30) → text6
  60. If(d ≟ 1, TableText[l20, l21, text6], d ≟ 6, TableText[l20, l21, l22, l23, l24, l25, l26, text6], d ≟ 7, TableText[l20, l21, l22, l23, l24, l25, l26, l27, text6], d ≟ 8, TableText[l20, l21, l22, l23, l24, l25, l26, l27, l28, text6], d ≟ 9, TableText[l20, l21, l22, l23, l24, l25, l26, l27, l28, l29, text6], d ≟ 2, TableText[l20, l21, l22, text6], d ≟ 3, TableText[l20, l21, l22, l23, text6], d ≟ 4, TableText[l20, l21, l22, l23, l24, text6], d ≟ 5, TableText[l20, l21, l22, l23, l24, l25, text6]) → text9

AI 绘图提示语参考

这是一个交互式茎叶图绘制工具，用户可输入标题、单位及两组数据。系统自动将数据按十位数（茎）和个位数（叶）分组、排序，并实时显示动态茎叶图，方便中小学及大学统计课程使用。界面包含标题输入框、单位输入框及两个数据输入框，用户输入数据后，程序自动计算最小值、最大值，生成茎叶序列，并绘制出可交互的茎叶图。
以上提示语为根据原始绘图命令整理而来，仅供参考。