Sequence Investigation #2: Visualizing Evolution via Centroids

Sequence Investigation #2: Visualizing Evolution via Centroids
Loading the math board and drawing, please wait…
2021-01-12 11:23
This example demonstrates how a sequence can be explored geometrically: it generates a set of points (optionally via random experiments or user input), plots them as a scatter plot, and then computes and displays the centroid/barycenter associated with the first n terms. By showing states labeled S_1 through S_10, learners can visually track how the running average (centroid) evolves as n increases. The core mathematical ideas are sequences (prefix construction), centroid/barycenter as an averaging concept for points/vectors, and the use of geometric connections and annotations to reason about sequence behavior. Construction in GeoGebra relies on commands such as Line for building guiding segments/lines, If for conditional logic in updating elements, and Textfield for interactive labels and displayed values. The objects include parameters a, b, c, multiple text fields (text1…text6), a common horizontal line reference, the sequence states S_1…S_10, and interactive inputs such as InputBox1 with values F_1…F_10 to control steps or function-like outputs. Suitable for advanced middle school through early university, especially for inquiry-based learning on sequence patterns using coordinate geometry and dynamic visualization.

GeoGebra Commands & Parameters

  1. Line(A, B) → horizontalLine
  2. If(s(1) ≥ 0, Sequence[Circle[(Mod[n, 2], floor(n / 2 + 0.5)), 0.3], n, 1, s(1)]) → S_1
  3. If(s(1) < 0, Sequence[Circle[(Mod[abs(n), 2], (-floor(abs(n) / 2 + 0.5))), 0.3], n, -1, s(1), -1]) → S_2
  4. If(s(2) ≥ 0, Sequence[Circle[(Mod[n, 2] + 6, floor(n / 2 + 0.5)), 0.3], n, 1, s(2)]) → S_3
  5. If(s(3) ≥ 0, Sequence[Circle[(Mod[n, 2] + 12, floor(n / 2 + 0.5)), 0.3], n, 1, s(3)]) → S_4
  6. If(s(4) ≥ 0, Sequence[Circle[(Mod[n, 2] + 18, floor(n / 2 + 0.5)), 0.3], n, 1, s(4)]) → S_5
  7. If(s(5) ≥ 0, Sequence[Circle[(Mod[n, 2] + 24, floor(n / 2 + 0.5)), 0.3], n, 1, s(5)]) → S_6
  8. If(s(2) < 0, Sequence[Circle[(Mod[abs(n), 2] + 6, (-floor(abs(n) / 2 + 0.5))), 0.3], n, -1, s(2), -1]) → S_7
  9. If(s(3) < 0, Sequence[Circle[(Mod[abs(n), 2] + 12, (-floor(abs(n) / 2 + 0.5))), 0.3], n, -1, s(3), -1]) → S_8
  10. If(s(4) < 0, Sequence[Circle[(Mod[abs(n), 2] + 18, (-floor(abs(n) / 2 + 0.5))), 0.3], n, -1, s(4), -1]) → S_9
  11. If(s(5) < 0, Sequence[Circle[(Mod[abs(n), 2] + 24, (-floor(abs(n) / 2 + 0.5))), 0.3], n, -1, s(5), -1]) → S_{10}
  12. Textfield(f) → InputBox1
  13. If(f(1) ≥ 0, Sequence[Circle[(Mod[n, 2], floor(n / 2 + 0.5)), 0.3], n, 1, f(1)]) → F_1
  14. If(f(1) < 0, Sequence[Circle[(Mod[abs(n), 2], (-floor(abs(n) / 2 + 0.5))), 0.3], n, -1, f(1), -1]) → F_2
  15. If(f(2) ≥ 0, Sequence[Circle[(Mod[n, 2] + 6, floor(n / 2 + 0.5)), 0.3], n, 1, f(2)]) → F_3
  16. If(f(3) ≥ 0, Sequence[Circle[(Mod[n, 2] + 12, floor(n / 2 + 0.5)), 0.3], n, 1, f(3)]) → F_4
  17. If(f(4) ≥ 0, Sequence[Circle[(Mod[n, 2] + 18, floor(n / 2 + 0.5)), 0.3], n, 1, f(4)]) → F_5
  18. If(f(5) ≥ 0, Sequence[Circle[(Mod[n, 2] + 24, floor(n / 2 + 0.5)), 0.3], n, 1, f(5)]) → F_6
  19. If(f(2) < 0, Sequence[Circle[(Mod[abs(n), 2] + 6, (-floor(abs(n) / 2 + 0.5))), 0.3], n, -1, f(2), -1]) → F_7
  20. If(f(3) < 0, Sequence[Circle[(Mod[abs(n), 2] + 12, (-floor(abs(n) / 2 + 0.5))), 0.3], n, -1, f(3), -1]) → F_8
  21. If(f(4) < 0, Sequence[Circle[(Mod[abs(n), 2] + 18, (-floor(abs(n) / 2 + 0.5))), 0.3], n, -1, f(4), -1]) → F_9
  22. If(f(5) < 0, Sequence[Circle[(Mod[abs(n), 2] + 24, (-floor(abs(n) / 2 + 0.5))), 0.3], n, -1, f(5), -1]) → F_{10}

AI Drawing Prompt Reference

Draw a coordinate plane with a horizontal reference line. Above and below this line, arrange five groups of small circles, each group shifted horizontally to create a stepped or zigzag pattern. The number of circles in each group is controlled by user input via text fields; positive inputs place circles above the line, negative inputs below. Circles are added sequentially according to natural number order, with state labels (such as S1 to S10) displayed. The overall graphic visualizes how the average position (centroid) of the first n terms of a sequence evolves as n increases, through the distribution of circles and movement of labels.
The prompt above was compiled from the original drawing commands and is for reference only.