中心与离散度探索

GeoGebra 命令及参数

1. Mod(10 + (37 * seed), 80) → Nmbr1
2. Sequence(RandomPoisson[seed], k, 1, size) → Dt1
3. Max(Dt1) → DtMx1
4. Min(Dt1) → DtMn1
5. Sequence(k, k, DtMn1 - 10, DtMx1 + 10) → Dmn
6. Sequence(k, k, DtMn1, DtMx1) → DmnMd
7. Append(Append[Dt1, DtMn2], DtMx2) → Dt2
8. Union(Intersection[Dt1, DmnMd], {DtMn2, DtMx2}) → DtExt
9. Sort(Intersection[Dmn, DtExt]) → Rng
10. CountIf(x < DtMx2 + 1, Rng) → RngCnt
11. Sequence(CountIf[x ≟ Element[Rng, k], Dt2], k, 1, RngCnt) → FrqSq
12. Segment(LE, RE) → haxis
13. Sequence((Element[Rng, k], Element[FrqSq, k]), k, 1, RngCnt) → Dts1
14. Sequence(Sequence[(adp(Element[Rng, k]), 0.02 + (0.03 * j)), j, 1, Element[FrqSq, k]], k, 1, RngCnt) → Dts2
15. Sequence(Segment[((k * AxScl), -0.01), ((k * AxScl), 0.01)], k, 0, AxRE - AxLE, 5) → HTcs
16. Sequence(Text[k, (adp(k) - 1, -0.08)], k, AxLE, AxRE, 10) → HAxLbl
17. If(MinOrMax ≟ 1, "minimum", "maximum") → MnOrMx
18. If(DownOrUp ≟ 1, "decreases", "increases") → DnOrUp
19. Mean(Dt2) → DtAvg
20. Median(Dt2) → DtQ2
21. Q1(Dt2) → DtQ1
22. Q3(Dt2) → DtQ3
23. SampleSD(Dt2) → DtSD
24. If(DownOrUp ≟ 1, "increases", "decreases") → UpOrDn
25. If(MinOrMax ≟ 1, If[DownOrUp ≟ 1, "increases", "decreases"], If[DownOrUp ≟ 1, "decreases", "increases"]) → SpCh