定量频数分布构建步骤

GeoGebra 命令及参数

1. Mod(seed, 3) → ACDT
2. Sequence(RandomPoisson[seed], k, 1, size) → L0
3. Sequence((Element[L0, k] * 10^((-ACDT))), k, 1, size) → L1
4. Min(L1) → Min1
5. Max(L1) → Mx1
6. If(CWC1 ≤ UB, CWC1, If[CWC2 ≤ UB, CWC2, If[CWC3 ≤ UB, CWC3, CWC4]]) → CW0
7. Sequence(k, k, Min1, Min1 + ((classes - 1) * CW0), CW0) → LCL
8. Sequence(Element[L1, k], k, 1, size1) → L2
9. Sequence(Element[LCL, k], k, 1, classes - 1) → LCL0
10. Sequence(i, i, Min1, Mx1, 10^((-ACDT))) → Domain
11. Sort(Intersection[Domain, L1]) → Range
12. CountIf(x < Mx1 + 1, Range) → RngCnt
13. Sequence(CountIf[i ≤ x < i + CW0, L1], i, Min1, Mx2 - CW0, CW0) → FrqSq
14. Max(FrqSq) → MxFrq
15. Max(Sequence[If[floor((10^(k) * CW0)) / 10^(k) ≠ CW0, k + 1, 0], k, 0, 2]) → ACCW
16. Max(ACDT, ACCW) → ACNw
17. Sequence(" to ", k, 1, classes) → ToSq
18. Sequence(If[k ≟ 1, " ", " + "], k, 1, classes) → Pls
19. Append(Min1, LCL0) → LCLCnSq
20. Sequence(" = ", k, 1, classes) → EqSq
21. Element(LCL, 2) → LCL2
22. Sequence(Element[L1, k], k, size1 + 1, size) → L3
23. Polygon(FDUL, FDLL, FDLR, FDUR) → fdpoly, fdlf, fdbt, fdrt, fdtp
24. Segment(DTML, DTMR) → dtmd
25. Segment(DTLL, DTLR) → dtbt
26. Segment(DTMR, DTUR) → dtrt
27. Sequence(CW1, k, 1, classes - 1) → CWSq1
28. Append(" ", CWSq1) → CWSq2
29. Sequence(UCL1 + (k * CW1), k, 0, classes - 1) → UCL
30. Append(UCL1, UCL) → UCLCn
31. Sequence(Sequence[" | ", k, 1, Element[FrqSq, j]], j, 1, classes) → TlySq
32. Segment(DTUL, DTUR) → dttp
33. Sequence(Segment[(DTLf + (k * DTCW), DTBt), (DTLf + (k * DTCW), DTTp)], k, 0, floor(size / 2)) → Vlines
34. Text("The table shows the percent unemployed for " + size + " different cities.") → DD1
35. Text("The table shows numbers of bird feeders sold in " + size + " different months.") → DD0
36. Text("The table shows proportions of students who earned C's in " + size + " different classes.") → DD2
37. Element(DDSq, ACDT + 1) → DD
38. If(ACDT ≟ 1, ".", "s.") → PLP1
39. If(ACCW ≟ 1, "", "s") → PLN2
40. If(ACNw ≟ 1, ".", "s.") → PLP3
41. If(ACNw ≟ 1, "", "s") → PLN3
42. Sequence(Text[Element[LCL, k], (FDTxLf, FDTxTp - (FDRH * k))], k, 1, classes) → LCLTx2
43. If(ACDT ≟ 1, "", "s") → PLN1
44. Sequence(Text[Element[FrqSq, k], (FDTxLf + 25, FDTxTp - (FDRH * k))], k, 1, classes) → FrqTxSq
45. Sequence(Text[Element[UCL, k], (FDTxLf + 8, FDTxTp - (FDRH * k))], k, 1, classes) → UCLTx2
46. Text("Construct a quantitative frequency distribution with " + classes + " different classes.") → PrbStm
47. Sequence(Text[Element[ToSq, k], (FDTxLf + 4.5, FDTxTp - (FDRH * k))], k, 1, classes) → ToTx
48. Sequence(Text[Element[L1, k], ((k * DTCW) + DTLf - 5, DTRL1)], k, 1, ceil(size / 2)) → DtRw1
49. Sequence(Text[Element[L3, k], ((k * DTCW) + DTLf - 5, DTRL2)], k, 1, ceil(size / 2)) → DtRw2
50. Sequence(Text[Element[LCL, k], (14, ClcHt - (FDRH * k))], k, 1, classes) → LCLTx1
51. Sequence(Text[Element[CWSq1, k], (6, ClcHt - ((k + 1) * FDRH))], k, 1, classes - 1) → CWTx1
52. Sequence(Text[Element[EqSq, k], (11.5, ClcHt - ((k + 1) * FDRH))], k, 1, classes - 1) → EqTx1
53. Sequence(Text[Element[Pls, k], (3, ClcHt - (k * FDRH))], k, 1, classes) → PlsTx1
54. Sequence(Text[Element[LCLTx2, k], ((-2), ClcHt - ((k + 1) * FDRH))], k, 1, classes - 1) → LCLCnTx
55. Sequence(Text[Element[UCLCn, k], (21, ClcHt - (FDRH * k))], k, 2, classes) → UCLCnTx
56. Sequence(Text[Element[Pls, k], (26, ClcHt - (FDRH * k))], k, 1, classes) → PlsTx2
57. Sequence(Text[Element[CWSq1, k], (28.5, ClcHt - ((k + 1) * FDRH))], k, 1, classes - 1) → CWTx2
58. Sequence(Text[Element[EqSq, k], (34, ClcHt - (FDRH * k))], k, 2, classes) → EqTx2
59. Sequence(Text[Element[UCL, k], (37, ClcHt - (FDRH * k))], k, 1, classes) → UCLTx1
60. Sequence(Sequence[Text[Element[Element[TlySq, k], j], (FDTxLf + 14.2 + (0.6 * j), FDTxTp - (FDRH * k))], j, 1, Element[FrqSq, k]], k, 1, classes) → TlyTxSq