MathPlotAI Logo MathPlotAI

Frequency and Relative Frequency Distributions by David Gurney

Frequency and Relative Frequency Distributions by David Gurney
Loading the math board and drawing, please wait…
2018-07-18 02:00
MatrixGeometric Construction
This example demonstrates statistical concepts of frequency and relative frequency distributions using GeoGebra. Key mathematical concepts include statistics, geometric construction, and data visualization. Construction involves using commands like Sequence, Element, Mod, CountIf to build data sequences, combined with objects like RtSq and Sq3 to generate graphs. Suitable for high school students learning statistics fundamentals and geometric construction techniques.

GeoGebra Commands & Parameters

  1. Sequence(If[k < 56, If[k < 20, If[k < 8, 1, 2], 3], 4], k, 1, 100) → Sq3
  2. Sequence(If[k < 71, If[k < 39, If[k < 26, If[k < 13, 1, 2], 3], 4], 5], k, 1, 100) → Sq2
  3. Sequence(If[k < 97, If[k < 90, If[k < 79, If[k < 53, 1, 2], 3], 4], 5], k, 1, 100) → Sq1
  4. Sequence(If[k < 80, If[k < 45, If[k < 40, If[k < 25, If[k < 12, If[k < 7, 1, 2], 3], 4], 5], 6], 7], k, 1, 100) → Sq4
  5. Element(RtSq, Mod[Seed, 13] + 1) → Rate
  6. Mod(Seed, 7) → Start
  7. Element(DataSq, DtNm) → DataMeas
  8. Sequence(Element[DataMeas, Mod[Start + (Rate * k), 100] + 1], k, 1, Size) → DataA
  9. CountIf(x ≟ 7, DataA) → Frq7
  10. CountIf(x ≟ 6, DataA) → Frq6
  11. CountIf(x ≟ 5, DataA) → Frq5
  12. CountIf(x ≟ 4, DataA) → Frq4
  13. CountIf(x ≟ 3, DataA) → Frq3
  14. CountIf(x ≟ 2, DataA) → Frq2
  15. CountIf(x ≟ 1, DataA) → Frq1
  16. Element(DtCnvSq, DtNm) → DtCnv
  17. Sequence(Element[DtCnv, Element[DataA, k]], k, 1, Size) → DataB
  18. Sequence(Text[Element[DataB, k], (1 + ((k - 1) * CW), 13)], k, 1, 5) → DtRw1
  19. Sequence(Text[Element[DataB, k], (1 + ((k - 6) * CW), 12.5)], k, 6, 10) → DtRw2
  20. Sequence(Text[Element[DataB, k], (1 + ((k - 11) * CW), 12)], k, 11, 15) → DtRw3
  21. Segment((0.9, 13.35 - (4 * CH)), (0.9 + (SzNm * CW), 13.35 - (4 * CH))) → BtmLn
  22. Sequence(Segment[(0.9 + (k * CW), 13.35), (0.9 + (k * CW), If[SzNm ≥ k, 13.35 - (4 * CH), 13.35 - (3 * CH)])], k, 0, 5) → VrtLns
  23. Sequence(Text[Element[DataB, k], (1 + ((k - 16) * CW), 11.5)], k, 16, 15 + SzNm) → DtRw4
  24. Element(DtLng, DtNm) → CtNmA
  25. Sequence(If[Element[FrqSqA, k] > 0, Element[DtCnv, k], "?"], k, 1, CtNmA) → CtSqA
  26. Remove(CtSqA, {"?", "?", "?", "?", "?"}) → CtSqB
  27. CountIf(x ≠ 0, FrqSqA) → ClsCnt
  28. Remove(FrqSqA, {0, 0, 0, 0, 0, 0}) → FrqSqB
  29. Sequence(Element[FrqSqB, k] / Size, k, 1, ClsCnt) → RlFrqSq
  30. Sequence(Text[Element[CtSqB, k], (1.5, 8.3 - (k * CH))], k, 1, ClsCnt) → ClsTx
  31. Sequence(Segment[(0.9, 13.35 - (CH * k)), (0.9 + (5 * CW), 13.35 - (CH * k))], k, 0, 3) → HrzLns
  32. Sequence(Text[Element[FrqSqB, k], (3.6, 8.3 - (k * CH))], k, 1, ClsCnt) → FrqTx
  33. Text("Freq.", (3.5, 8.3)) → FrqLb
  34. Sequence(Text[Element[RlFrqSq, k], (4.7, 8.3 - (k * CH))], k, 1, ClsCnt) → RlFrqTx
  35. Sequence(Text[Element[FrqSqB, k], (6.1, 8.3 - (k * CH))], k, 1, ClsCnt) → RFClcSq
  36. Sequence(Text["/", (6.5, 8.3 - (k * CH))], k, 1, ClsCnt) → DvdSq
  37. Sequence(Text[Size, (6.65, 8.3 - (k * CH))], k, 1, ClsCnt) → SzSq