散点图构造问题

GeoGebra 命令及参数

1. Element(SmpRtSq, Mod[seed, 6] + 1) → SmpRt
2. Element(DtXSq, data) → DtX1
3. Sequence(Element[DtX1, Mod[Strt + k * SmpRt, 15] + 1], k, 0, size - 1) → DtX2
4. Max(DtX2) → XMax
5. Min(DtX2) → XMin
6. If(5 * LBSX ≤ UBSX, 5 * LBSX, If[2 * LBSX ≤ UBSX, 2 * LBSX, LBSX]) → XScl
7. Element(DtYSq, data) → DtY1
8. Sequence(Element[DtY1, Mod[Strt + k * SmpRt, 15] + 1], k, 0, size - 1) → DtY2
9. Min(DtY2) → YMin
10. Max(DtY2) → YMax
11. Segment(Origin, HAE) → HAx
12. Segment(Origin, VAE) → VAx
13. If(5 * LBSY ≤ UBSY, 5 * LBSY, If[2 * LBSY ≤ UBSY, 2 * LBSY, LBSY]) → YScl
14. Sequence(Text[k, (-3.5, AdpY(k) - 0.35)], k, YAxMn, YAxMx, YScl) → YLbs
15. Sequence(AdpX(Element[DtX2, k]), k, 1, size) → PltX
16. Sequence(AdpY(Element[DtY2, k]), k, 1, size) → PltY
17. Sequence((Element[PltX, k], Element[PltY, k]), k, 1, size) → DtPnts
18. Segment(UL, UR) → TbTp
19. Segment(ML, MR) → TBMd
20. Segment(LL, LR) → TbBt
21. Segment(LL, UL) → Left
22. Segment(LM, UM) → DatLeft
23. Sequence(Segment[(AdpX(k), GB - 0.5), (AdpX(k), GB + 0.5)], k, XAxMin, XAxMax, XScl) → XTc
24. Sequence(Text[k, (AdpX(k) - 1, GB - 2.5)], k, XAxMin, XAxMax, XScl) → XLbs
25. Segment((GL - 1.414, GB - 1.414), (GL, GB)) → LLSg
26. Sequence(Segment[(GL - 0.5, AdpY(k)), (GL + 0.5, AdpY(k))], k, YAxMn, YAxMx, YScl) → YTc
27. Element(XAxLbSq, data) → XAxLb
28. Element(YAxLbSq, data) → YAxLb
29. Text(Element[XAxLbSq, data], (DtStr - 11.65, DtHgt - 1.9)) → XVlLb
30. Text(Element[YAxLbSq, data], (DtStr - 11.65, DtHgt - 4.4)) → YVlLb
31. Sequence(Segment[(DtStr + 6.2 + k * CW, DtHgt), (DtStr + 6.2 + k * CW, DtHgt - 5)], k, 1, size) → DvLn
32. Sequence(Text[Element[DtY2, k], (DtStr + 0.7 + CW * k, DtHgt - 4.4)], k, 1, size) → YDtTxt
33. Sequence(Text[Element[DtX2, k], (DtStr + 0.7 + CW * k, DtHgt - 1.9)], k, 1, size) → XDtTxt
34. Element(DDSq, data) → DD