等值分数与较大分母

GeoGebra 命令及参数

1. Shuffle({2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15}) → bList, {11, 5, 4, 8, 7, 14, 3, 9, 13, 15, 6, 2, 10, 12}
2. Element(bList, Mod[example, Length[bList]] + 1) → b
3. KeepIf(Length[Intersection[PrimeFactors[ii], PrimeFactors[b]]] ≟ 0, ii, Sequence[b]) → relativePrimes
4. Vector((0, -1.8)) → hei
5. Polygon(Zip[PixelsToPoint[Corner[1], Corner[3], Corner[5], A], A, {(pixelsLeft, pixelsTop), (pixelsLeft, y(Corner[5]) - pixelsBottom), Corner[5] - (pixelsRight, pixelsBottom), (x(Corner[5]) - pixelsRight, pixelsTop)}]) → borderBox
6. Vertex(borderBox) → A, B, C, D
7. Translate(A', hei) → A''_{1}
8. Translate(A''_{1}, Vector[wid / b]) → J
9. Vector(A''_{1}, J) → wid1part
10. Zip(Translate[(x(A'), 6.8), Vector[(wid1part * kk)]], kk, relativePrimes) → PositionsFakeSlider
11. Point(PositionsFakeSlider) → FakeSliderPoint
12. Corner(5) → AppSize
13. Translate(A, wid) → A'_{1}
14. Translate(A', wid) → A''
15. Polygon(A, A', A'', A'_{1}) → q1, a_{1}, a', a'', a'_{1}
16. Translate(A, hei) → A'_{2}
17. Translate(A'', hei) → A'''
18. Translate(A'_{1}, hei) → E
19. Polygon(A'_{2}, A''_{1}, A''', E) → q1', a'_{2}, a''_{1}, a''', e
20. Translate(A''_{1}, Vector[(0.8 * hei)]) → F
21. Translate(F, hei) → G
22. Translate(G, wid) → H
23. Translate(E, Vector[(2 * hei)]) → E'
24. Polygon(F, G, H, E') → q1'', f, g, h, e'
25. IndexOf(FakeSliderPoint, PositionsFakeSlider) → a
26. Length(relativePrimes) → maxA
27. Translate(A', Vector[wid / b]) → I
28. Polygon(A''_{1}, J, I, A') → q2, i, j, i_1, k
29. Sequence(Polygon[Translate[A''_{1}, Vector[(wid1part * ii)]], Translate[J, Vector[(wid1part * ii)]], Translate[I, Vector[(wid1part * ii)]], Translate[A', Vector[(wid1part * ii)]]], ii, 0, b - 1) → denMod1
30. Sequence(Polygon[Translate[A''_{1}, Vector[(wid1part * ii)]], Translate[J, Vector[(wid1part * ii)]], Translate[I, Vector[(wid1part * ii)]], Translate[A', Vector[(wid1part * ii)]]], ii, 0, Element[relativePrimes, a] - 1) → numMod1
31. Translate(G, Vector[(wid1part * Element[relativePrimes, a])]) → G'
32. Translate(F, Vector[(wid1part * Element[relativePrimes, a])]) → F'
33. Polygon({F, G, G', F'}) → GreenRectangleBelow
34. Translate(F, Vector[wid / n]) → F'_{1}
35. Translate(G, Vector[wid / n]) → G'_{1}
36. Sequence(Translate[Polygon[{F, G, G'_{1}, F'_{1}}], Vector[(wid / n * ii)]], ii, 0, n - 1) → DivisionsBelow
37. Sequence(Segment[Translate[A''_{1}, Vector[(wid1part * ii)]], Translate[F, Vector[(wid1part * ii)]]], ii, 0, b) → divisionsAbove
38. Segment(FakeSlider1, FakeSlider2) → fakeSlider_{1}
39. Polygon(A', A''_{1}, A''', A'') → q4, l, m, p, q
40. Polygon({F, G, H, (x(H), y(F))}) → q5
41. Segment(Element[PositionsFakeSlider, 1], Element[PositionsFakeSlider, Length[PositionsFakeSlider]]) → fakeSlider
42. Text(sliderALabel, FakeSliderPoint, true, true, 0, 1) → fakeSliderLabel
43. Segment((x(A), y(A) - (3 / 5 * (y(A) - y(A')))), (x(A), y(A) - (3 / 5 * (y(A) - y(A')))) + wid) → fackeSliderDash
44. Translate(FakeSliderPoint, Vector[A', G]) → FakeSliderPoint'
45. Segment(FakeSliderPoint, FakeSliderPoint') → verticalSegment
46. Translate(hGL, Vector[(Vector[Corner[4], Corner[1]] / 500 * 16)]) → hGL'
47. If(Length[denominators] ≟ 0, {}, Zip[(Element[relativePrimes, a] * kk / b), kk, denominators]) → numerators
48. Zip((((((("=\frac{" * nn) * "}{\textcolor{") * colorPurpleButton_{1}) * "}{") * dd) * "}}"), nn, numerators, dd, denominators) → l1