MathPlotAI Logo MathPlotAI

Qualitative Variable Visualization

Qualitative Variable Visualization
Loading the math board and drawing, please wait…
2015-06-27 00:34
Probability & StatisticsGeometric ConstructionGraphing
This example demonstrates the distribution of qualitative variables through a bar chart. It involves core mathematical concepts like statistical charts, data visualization, and maximum value calculation. Construction highlights include commands like BarChart, IndexOf, Max, Sequence, Element, RemoveUndefined, Textfield, Circle, Sum, Join, CircleSector, and Text in GeoGebra. Suitable for high school statistics and data visualization education or learning.

GeoGebra Commands & Parameters

  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