MathPlotAI Logo MathPlotAI

Frequency Scale

Frequency Scale
Loading the math board and drawing, please wait…
2014-07-02 06:23
FunctionProbability & Statistics
This example demonstrates the graphical representation of frequency distribution. Key mathematical concepts include frequency distribution in statistics. Using GeoGebra commands such as Element, Sequence, and RemoveUndefined, a dynamic frequency distribution graph is constructed. Suitable for teaching and learning statistics and probability.

GeoGebra Commands & Parameters

  1. Element(CatNoSq, variable) → CatNo1
  2. 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
  3. Sequence(If[k > 91, 5, If[k > 69, 4, If[k > 57, 3, If[k > 51, 2, 1]]]], k, 1, 100) → DtSq2
  4. Sequence(If[k > 79, 4, If[k > 66, 3, If[k > 28, 2, 1]]], k, 1, 100) → DtSq3
  5. Element(DtSqSq, variable) → DtSq
  6. Sequence(Element[DtSq, Mod[Seed + 47 * k, 100] + 1], k, 1, Sz1) → AcDt
  7. Sequence(CountIf[x ≟ k, AcDt], k, 1, CatNo1) → FrqSq1
  8. Sequence(If[Element[FrqSq1, k] ≟ 0, NaN, Element[FrqSq1, k]], k, 1, CatNo1) → FrqSq2
  9. RemoveUndefined(FrqSq2) → FrqSq3
  10. Max(FrqSq3) → FrqMax
  11. Max(scaletop, FrqMax) → MinMax
  12. Mod(Seed, 10) → Start
  13. Element(CatLabSq, variable) → CatLab
  14. Element(IndPrcSq, variable) → IndPrc
  15. Element(CatSq, variable) → Cat1
  16. Sequence(Sum[First[IndPrc1, k]], k, 1, 5) → CmlPrc1
  17. Sequence(Sum[First[IndPrc2, k]], k, 1, 4) → CmlPrc2
  18. Sequence(Sum[First[IndPrc3, k]], k, 1, 3) → CmlPrc3
  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, ClTp - 0.1 * k)], k, 1, CatNo2) → CatTxt
  25. Sequence(Text[Element[FrqSq3, k], (15, ClTp - 0.1 * k)], k, 1, CatNo2) → FrqTxt1
  26. Max(1, floor(MinMax / 3)) → FrqUnt
  27. Segment(UL, LL) → FrqAx
  28. Segment(LL, LR) → HrAx
  29. Sequence(Segment[(GL + (k - 1) * CW, Adpt(Element[FrqSq3, k])), (GL + k * CW, Adpt(Element[FrqSq3, k]))], k, 1, CatNo2) → BrTp
  30. Segment(LL, (GL, Adpt(Element[FrqSq3, 1]))) → LftSd
  31. Segment(LR, (GR, Adpt(Element[FrqSq3, CatNo2]))) → RgtSd
  32. Sequence(Segment[(GL + k * CW, GB), (GL + k * CW, Adpt(Max[Element[FrqSq3, k], Element[FrqSq3, k + 1]]))], k, 1, CatNo2 - 1) → BrSd
  33. Sequence((GL + (k - 0.6) * CW - 0.5, GB - 0.01), k, 1, CatNo2) → LblLcSq
  34. Sequence(VerticalText[Element[Cat3, k], Element[LblLcSq, k]], k, 1, CatNo2) → BrLblSq
  35. Sequence(Segment[(GL - 1, Adpt(k)), (GL, Adpt(k))], k, 0, AxMax, FrqUnt) → FrqAxTc
  36. Sequence(Text[k, (GL - 3.5, GB + k * FrqScl - 0.02)], k, 0, AxMax, FrqUnt) → FrqLbSq
  37. Segment(LR, A) → a
  38. Sequence(Text[k / Sz2, (GR + 1.1, GB + k * FrqScl - 0.02)], k, 0, AxMax, FrqUnt) → list1
  39. Segment(LR, UR) → b
  40. Sequence(Segment[(GR, Adpt(k)), (GR + 1, Adpt(k))], k, 0, AxMax, FrqUnt) → list2
  41. Sequence(Segment[(30, i), (70, i)], i, -0.81, 0.27, 0.12) → list3

AI Drawing Prompt Reference

Create a frequency distribution graph with 100 data points divided into 5 intervals, each represented by a differently colored rectangle. The x-axis shows the data intervals, and the y-axis shows the frequency. Mark the midpoints of each interval on the x-axis and the frequency values on the y-axis.
The prompt above was compiled from the original drawing commands and is for reference only.