MathPlotAI Logo MathPlotAI

Relative Frequency Distribution Problems

Relative Frequency Distribution Problems
Loading the math board and drawing, please wait…
2013-08-30 00:32
SequenceProbability & StatisticsGraphing
In collections Charts & Graphs
This example demonstrates how to handle statistical data by converting frequency distributions into relative frequency distributions. Key mathematical concepts include statistical characteristics and probability & statistics. GeoGebra commands such as Element, Mod, and Sequence are used in construction. Suitable for middle school and above students.

GeoGebra Commands & Parameters

  1. Element(CatNoSq, DataSet) → CatNo1
  2. Mod(Seed, 10) → Start
  3. Element(CatLabSq, DataSet) → CatLab
  4. Sequence("/", k, 1, CatNo1) → DvSq
  5. Sequence(" = ", k, 1, CatNo1) → EqSq
  6. Element(IndPrcSq, DataSet) → IndPrc
  7. Element(CatSq, DataSet) → Cat1
  8. Sequence(Sum[First[IndPrc1, k]], k, 1, 5) → CmlPrc1
  9. Sequence(Sum[First[IndPrc2, k]], k, 1, 4) → CmlPrc2
  10. Sequence(Sum[First[IndPrc3, k]], k, 1, 3) → CmlPrc3
  11. Sequence(If[k > 96, 6, If[k > 91, 5, If[k > 85, 4, If[k > 79, 3, If[k > 66, 2, 1]]]]], k, 1, 100) → DtSq1
  12. Sequence(If[k > 91, 5, If[k > 69, 4, If[k > 57, 3, If[k > 51, 2, 1]]]], k, 1, 100) → DtSq2
  13. Sequence(If[k > 79, 4, If[k > 66, 3, If[k > 28, 2, 1]]], k, 1, 100) → DtSq3
  14. Element(DtSqSq, DataSet) → DtSq
  15. Sequence(Element[DtSq, Mod[Seed + 47 * k, 100] + 1], k, 1, Sz1) → AcDt
  16. Sequence(CountIf[x ≟ k, AcDt], k, 1, CatNo1) → FrqSq1
  17. Sequence(If[Element[FrqSq1, k] ≟ 0, NaN, Element[FrqSq1, k]], k, 1, CatNo1) → FrqSq2
  18. RemoveUndefined(FrqSq2) → FrqSq3
  19. Sequence(If[Element[FrqSq2, k] ≠ 0, Element[Cat1, k]], k, 1, CatNo1) → Cat2
  20. RemoveUndefined(Cat2) → Cat3
  21. CountIf(x > 0, FrqSq1) → CatNo2
  22. Sum(FrqSq3) → Sz2
  23. Sequence(Element[FrqSq3, k] / Sz2, k, 1, CatNo2) → RFSq
  24. Sequence(Text[Element[Cat3, k], (-4, 0 - 0.1 * k)], k, 1, CatNo2) → CatTxt
  25. Sequence(Text[Element[FrqSq3, k], (15, -0.1 * k)], k, 1, CatNo2) → FrqTxt1
  26. Sequence(Text[Element[RFSq, k], (24.5, -0.1 * k)], k, 1, CatNo2) → RFTxt1
  27. Sequence(Text[Element[FrqSq3, k], (34.5, -0.1 * k)], k, 1, CatNo2) → FrqTxt2
  28. Sequence(Text[Element[DvSq, k], (37, -0.1 * k)], k, 1, CatNo2) → DvTxtSq
  29. Sequence(Text[Sz2, (38, -0.1 * k)], k, 1, CatNo2) → SzTxt
  30. Sequence(Text[Element[RFSq, k], (43, -0.1 * k)], k, 1, CatNo2) → RFTxt2
  31. Sequence(Text[Element[EqSq, k], (40.5, -0.1 * k)], k, 1, CatNo2) → EqTxtSq