概率分布识别

GeoGebra 命令及参数

1. Sequence(Mod[3 + (8 * k), 23], k, 1, 24) → OpSq
2. Element(OpSq, Seed) → Opt
3. Sequence(Mod[Seed + (Opt * k), Sz1] - round(Sz1 / 2), k, 1, Sz1) → ErSq1
4. Sequence(round(100 / Sz1), k, 1, Sz1) → FrSq0
5. Sequence(Element[FrSq0, k] + Element[ErSq1, k], k, 1, Sz1) → FrSq1
6. Sum(FrSq1) → FrqSm
7. Sequence(round((100 * Element[FrSq1, k] / FrqSm)) / 100, k, 1, Sz1) → PrSq1
8. Sequence(Element[PrSq1, k], k, 1, Sz1 - 1) → PrSq2
9. Sum(PrSq2) → PrS2
10. Mod(Opt, 6) → Rslt
11. If(Rslt ≟ 0, Sz1 + 1, Sz1) → Sz2
12. Element(NwPrSq, Rslt + 1) → NwPrb
13. If(Rslt ≟ 0, Insert[{NwPrb1, NwPrb1A}, PrSq2, Pos], Insert[{NwPrb}, PrSq2, Pos]) → PrSq3
14. Sum(PrSq3) → PrS3
15. Sequence(Mod[2 + (7 * k), 18] + 1, k, 1, 5) → StSq
16. Element(StSq, Mod[Opt, 5] + 1) → St1
17. Element(RtSq, Mod[Opt, 6] + 1) → Rt1
18. If(Rslt ≤ 1, 91, If[Rslt ≟ 2, 97, 107]) → ModNm
19. Sequence(Mod[St1 + (k * Rt1), 19] + 2, k, 1, Sz1 - 1) → DvSq1
20. Sort(DvSq1) → DvSq2
21. Element(ErSq2, Mod[Opt, 4] + 1) → Err
22. Sequence(St2 + (k * Rt2), k, 1, Sz2) → TbTR1
23. Segment(TbLT, TbLB) → tblf
24. Segment(TbLT, TbRT) → tbtp
25. Segment(TbLB, TbRB) → tbbt
26. Segment(TbMB, TbMT) → tdlf
27. Segment(TbLM, TbRM) → tbhm
28. Element(CatSq, Mod[Opt, 5] + 1) → TbTR2
29. If(NwPrb < 0, 1, If[NwPrb > 1, 2, If[PrS3 < 1, 3, If[PrS3 > 1, 4, 5]]]) → AnNm
30. Element(AnSq, AnNm) → An0
31. If(Rslt ≟ 3, PrSL, If[Rslt ≟ 4, PrSH, PrS3]) → PrS0
32. Sequence(Mod[Element[OpSq, k], 6], k, 1, 24) → ReSq
33. Sum(PrSq1) → PrS4
34. If(Rslt ≟ 0, Insert[{NwPrb1, NwPrb1A}, PrSq2, Pos], Insert[{NwPrb}, PrSq2, Pos]) → PrSq5
35. Sequence(Text[Element[TbTR1, k], (0.5 + (TbCW * k), TbTp - TbCH + 0.1)], k, 1, Sz2) → TbTRTx1
36. Sequence(Text[Element[PrSq3, k], ((TbCW * k) + 0.35, TbTp - (2 * TbCH) + 0.1)], k, 1, Sz2) → TbBR
37. Sequence(Segment[(TbDL + (k * TbCW), TbTp), (TbDL + (k * TbCW), TbTp - (2 * TbCH))], k, 1, Sz2) → TbVLSq
38. Sequence(Text[Element[TbTR2, k], (0.1 + (TbCW * k), TbTp - TbCH + 0.1)], k, 1, Sz2) → TbTRTx2