积极 AI Logo 积极 AI

定性变量可视化

定性变量可视化
几何画板及绘图内容加载中，请稍等……
2015-06-27 00:34
概率统计几何作图函数图像
①本范例通过条形图演示定性变量的分布情况；②涉及核心数学概念包括统计图表、数据可视化、最大值计算；③构造要点运用了BarChart, IndexOf, Max, Sequence, Element, RemoveUndefined, Textfield, Circle, Sum, Join, CircleSector, Text等GeoGebra命令与对象；④适合高中统计与数据可视化教学或学习。

GeoGebra 命令及参数

  1. Take({A2, A3, A4, A5, A6, A7, A8, A9, A10}, 1, n) → lista1
  2. Take({B2, B3, B4, B5, B6, B7, B8, B9, B10}, 1, n) → lista3
  3. BarChart(lista1, lista3, 0.6) → a
  4. IndexOf(Max[lista3], lista3) → b
  5. Max(lista3) → e
  6. IndexOf(e, lista3, b + 1) → f
  7. IndexOf(e, lista3, 1 + f) → c
  8. IndexOf(e, lista3, 1 + c) → d
  9. IndexOf(e, lista3, 1 + d) → g
  10. IndexOf(e, lista3, 1 + g) → h
  11. IndexOf(e, lista3, 1 + h) → i
  12. Sequence((i, Element[lista3, i]), i, 1, n) → lista5
  13. IndexOf(e, lista3, 1 + i) → j
  14. IndexOf(e, lista3, 1 + j) → k
  15. Element(lista1, b) → texto1
  16. Element(lista1, f) → texto2
  17. Element(lista1, c) → texto3
  18. Element(lista1, d) → texto4
  19. Element(lista1, g) → texto5
  20. Element(lista1, h) → texto6
  21. Element(lista1, i) → texto7
  22. Element(lista1, j) → texto8
  23. Element(lista1, k) → texto9
  24. Take({texto1, texto2, texto3, texto4, texto5, texto6, texto7, texto8, texto9}, 1, n) → lista7
  25. RemoveUndefined(lista7) → lista8
  26. Textfield(n) → CasillaDeEntrada1
  27. Sequence(Segment[Element[lista5, i], Element[lista5, i + 1]], i, 1, n - 1) → lista6
  28. Circle(A, r) → p
  29. Sum(lista3) → l
  30. Join({{0}, lista3}) → lista9
  31. Sequence(CircleSector[A, Rotate[B, Sum[((Take[lista9, 1, i] * 2) * π / l)], A], Rotate[B, Sum[((Take[lista9, 1, i + 1] * 2) * π / l)], A]], i, 1, n) → lista4
  32. CircleSector(A, Rotate[B, Sum[((Take[lista9, 1, 1] * 2) * π / l)], A], Rotate[B, Sum[((Take[lista9, 1, 2] * 2) * π / l)], A]) → q
  33. CircleSector(A, Rotate[B, Sum[((Take[lista9, 1, 2] * 2) * π / l)], A], Rotate[B, Sum[((Take[lista9, 1, 3] * 2) * π / l)], A]) → s
  34. CircleSector(A, Rotate[B, Sum[((Take[lista9, 1, 3] * 2) * π / l)], A], Rotate[B, Sum[((Take[lista9, 1, 4] * 2) * π / l)], A]) → t
  35. CircleSector(A, Rotate[B, Sum[((Take[lista9, 1, 4] * 2) * π / l)], A], Rotate[B, Sum[((Take[lista9, 1, 5] * 2) * π / l)], A]) → c_1
  36. CircleSector(A, Rotate[B, Sum[((Take[lista9, 1, 5] * 2) * π / l)], A], Rotate[B, Sum[((Take[lista9, 1, 6] * 2) * π / l)], A]) → d_1
  37. CircleSector(A, Rotate[B, Sum[((Take[lista9, 1, 6] * 2) * π / l)], A], Rotate[B, Sum[((Take[lista9, 1, 7] * 2) * π / l)], A]) → e_1
  38. CircleSector(A, Rotate[B, Sum[((Take[lista9, 1, 7] * 2) * π / l)], A], Rotate[B, Sum[((Take[lista9, 1, 8] * 2) * π / l)], A]) → f_1
  39. CircleSector(A, Rotate[B, Sum[((Take[lista9, 1, 8] * 2) * π / l)], A], Rotate[B, Sum[((Take[lista9, 1, 9] * 2) * π / l)], A]) → g_1
  40. CircleSector(A, Rotate[B, Sum[((Take[lista9, 1, 9] * 2) * π / l)], A], Rotate[B, Sum[((Take[lista9, 1, 10] * 2) * π / l)], A]) → h_1
  41. Circle(A, r) → k_1
  42. Sequence(Rotate[C, ((Sum[Take[lista9, 1, i]] * 2) * π / l) + (Element[lista9, 1 + i] * π / l), A], i, 1, n) → lista10
  43. Text(Element[lista3, 1]) → texto12
  44. Sequence(Rotate[D, ((Sum[Take[lista9, 1, i]] * 2) * π / l) + (Element[lista9, 1 + i] * π / l), A], i, 1, n) → lista12
  45. Sequence((Element[lista3, i] / l * 100), i, 1, n) → lista11
  46. Sequence(Text[Element[lista15, i], Element[lista12, i]], i, 1, n) → lista14
  47. Sequence(Segment[Element[lista10, i], Element[lista12, i]], i, 1, n) → lista13
  48. Sequence(VerticalText[Element[lista1, i], (i - 0.35, 0)], i, 1, n) → lista2