Comparing Fractions with Unlike Denominators

GeoGebra Commands & Parameters

1. Sequence((10 / ii, y1), ii, 2, 20) → chooseDen2
2. Point(chooseDen2) → D
3. Sequence(((10 * ii / d2), y1 + hei), ii, 0, d2) → chooseNum2
4. Point(chooseNum2) → B
5. Segment(B, B + (0, 1.1)) → ComparisonBar2
6. Vertex(ComparisonBar2, 2) → F
7. Sequence((10 / ii, y3), ii, 2, 20) → chooseDen1
8. Point(chooseDen1) → C
9. Sequence(((10 * ii / d1), y3 + hei), ii, 0, d1) → chooseNum1
10. Point(chooseNum1) → A
11. Polygon({C20, C21, C21 + (0, hei), C20 + (0, hei)}) → D20
12. Polygon({C19, C20, C20 + (0, hei), C19 + (0, hei)}) → D19
13. Polygon({C18, C19, C19 + (0, hei), C18 + (0, hei)}) → D18
14. Polygon({C17, C18, C18 + (0, hei), C17 + (0, hei)}) → D17
15. Polygon({C16, C17, C17 + (0, hei), C16 + (0, hei)}) → D16
16. Polygon({C15, C16, C16 + (0, hei), C15 + (0, hei)}) → D15
17. Polygon({C14, C15, C15 + (0, hei), C14 + (0, hei)}) → D14
18. Polygon({C13, C14, C14 + (0, hei), C13 + (0, hei)}) → D13
19. Polygon({C12, C13, C13 + (0, hei), C12 + (0, hei)}) → D12
20. Polygon({C11, C12, C12 + (0, hei), C11 + (0, hei)}) → D11
21. Polygon({C10, C11, C11 + (0, hei), C10 + (0, hei)}) → D10
22. Polygon({C9, C10, C10 + (0, hei), C9 + (0, hei)}) → D9
23. Polygon({C8, C9, C9 + (0, hei), C8 + (0, hei)}) → D8
24. Polygon({C7, C8, C8 + (0, hei), C7 + (0, hei)}) → D7
25. Polygon({C6, C7, C7 + (0, hei), C6 + (0, hei)}) → D6
26. Polygon({C5, C6, C6 + (0, hei), C5 + (0, hei)}) → D5
27. Polygon({C4, C5, C5 + (0, hei), C4 + (0, hei)}) → D4
28. Polygon({C3, C4, C4 + (0, hei), C3 + (0, hei)}) → D3
29. Polygon({C2, C3, C3 + (0, hei), C2 + (0, hei)}) → D2
30. Polygon({C1, C2, C2 + (0, hei), C1 + (0, hei)}) → D1
31. Element(Take[{D1, D2, D3, D4, D5, D6, D7, D8, D9, D10, D11, D12, D13, D14, D15, D16, D17, D18, D19, D20}, 1, d1], If[n1 ≟ d1 - 1, d1, d1 - 1]) → q2
32. LCM(d1, d2) → mcm
33. Segment(A, A - (0, 2.5)) → ComparisonBar
34. Text(If[n1 ≠ 0 ∧ d1 ≠ n1, (((("\frac{" * n1) * "}{") * d1) * "}"), Text[n1 / d1]], E + (0, 0.15), true, true, 0, 1) → text5
35. Text(If[n2 ≠ 0 ∧ n2 ≠ d2, (((("\frac{" * n2) * "}{") * d2) * "}"), Text[n2 / d2]], Midpoint[F, B], true, true, 0, 0) → text6
36. Sequence(((10 / d2 * ii), 1), ii, 0, d2) → PointsNL2
37. Corner(5) → AppSize
38. Translate(vGuideline, Vector[(Vector[Corner[1], Corner[2]] / 800 * 16)]) → vGuideline'
39. Segment((-0.5, 0.97992), (10.5, 0.97992)) → Nl2
40. Polygon({(0, y3), (10, y3), (10, y3 + hei), (0, y3 + hei)}) → Bar1
41. Polygon({(0, y1), (10, y1), (10, y1 + hei), (0, y1 + hei)}) → Bar2
42. Sequence(((10 / d1 * ii), y3 + hei), ii, 0, d1) → PointsBar1
43. Sequence(((10 / d1 * ii), y3), ii, 0, d1) → PointsBar1'
44. Sequence(((10 / d2 * ii), y1 + hei), ii, 0, d2) → PointsBar2
45. Sequence(((10 / d2 * ii), y1), ii, 0, d2) → PointsBar2'
46. Zip(Segment[PP, QQ], PP, PointsBar1, QQ, PointsBar1') → divisionsBar1
47. Zip(Segment[PP, QQ], PP, PointsBar2', QQ, PointsBar2) → divisionsBar2
48. Polygon({PointsBar1'(1), PointsBar1'(n1 + 1), PointsBar1(n1 + 1), PointsBar1(1)}) → FractionModel1
49. Polygon({PointsBar2'(1), PointsBar2'(n2 + 1), PointsBar2(n2 + 1), PointsBar2(1)}) → FractionModel2
50. Text("0", PointsNL2(1), true, true, 0, -1) → text2
51. Text("1", PointsNL2(-1), true, true, 0, -1) → text3
52. Sequence(((10 / mcm * ii), y2), ii, 0, mcm) → PointsNL1
53. Zip(Segment[PP + (0, 0.1), PP - (0, 0.1)], PP, PointsNL1) → ticksNL1
54. Zip(Segment[PP + (0, 0.1), PP - (0, 0.1)], PP, PointsNL2) → ticksNL2
55. TableText({texto1}, "c", 400, 0) → text7
56. Sequence(((10 / mcm * ii), y3 + hei), ii, 0, mcm) → l1
57. Sequence(((10 / mcm * ii), y3), ii, 0, mcm) → l2
58. Sequence(((10 / mcm * ii), y1), ii, 0, mcm) → l4
59. Zip(Segment[PP, QQ], PP, l1, QQ, l2) → l5
60. Sequence(((10 / mcm * ii), y1 + hei), ii, 0, mcm) → l3
61. Zip(Segment[PP, QQ], PP, l3, QQ, l4) → l6
62. If(onboardingStage ≟ 1, 188, posOB2) → onboardingX_{1}
63. onboardingTextOffset(Corner[onboardingText_{1}, 1], Corner[onboardingText_{1}, 3], onboardingCase_{1}, Corner[1], Corner[3], Corner[5]) → OnboardingTextOffset_{1}
64. Segment((-0.5, y2), (10.5, y2)) → NL1
65. Segment((0, y2 + 0.2), (0, y2 - 0.2)) → f
66. Segment((10, y2 - 0.2), (10, y2 + 0.2)) → g
67. Text("0", (0, y2 + 0.2), true, true, 0, 1) → text1
68. Text("1", (10, y2 + 0.2), true, true, 0, 1) → text4
69. circlePixels(C, 9 + (7 * pulsing), Corner[1], Corner[3], Corner[5]) → pulsingC
70. circlePixels(D, 9 + (7 * pulsing), Corner[1], Corner[3], Corner[5]) → pulsingD
71. Translate(hGuideline, Vector[(Vector[Corner[1], Corner[4]] / 500 * 16)]) → hGuideline'
72. Polygon({A1, A2, A2 + (0, hei), A1 + (0, hei)}) → B1
73. Polygon({A2, A3, A3 + (0, hei), A2 + (0, hei)}) → B2
74. Polygon({A3, A4, A4 + (0, hei), A3 + (0, hei)}) → B3
75. Polygon({A4, A5, A5 + (0, hei), A4 + (0, hei)}) → B4
76. Polygon({A5, A6, A6 + (0, hei), A5 + (0, hei)}) → B5
77. Polygon({A6, A7, A7 + (0, hei), A6 + (0, hei)}) → B6
78. Polygon({A7, A8, A8 + (0, hei), A7 + (0, hei)}) → B7
79. Polygon({A8, A9, A9 + (0, hei), A8 + (0, hei)}) → B8
80. Polygon({A9, A10, A10 + (0, hei), A9 + (0, hei)}) → B9
81. Polygon({A10, A11, A11 + (0, hei), A10 + (0, hei)}) → B10
82. Polygon({A11, A12, A12 + (0, hei), A11 + (0, hei)}) → B11
83. Polygon({A12, A13, A13 + (0, hei), A12 + (0, hei)}) → B12
84. Polygon({A13, A14, A14 + (0, hei), A13 + (0, hei)}) → B13
85. Polygon({A14, A15, A15 + (0, hei), A14 + (0, hei)}) → B14
86. Polygon({A15, A16, A16 + (0, hei), A15 + (0, hei)}) → B15
87. Polygon({A16, A17, A17 + (0, hei), A16 + (0, hei)}) → B16
88. Polygon({A17, A18, A18 + (0, hei), A17 + (0, hei)}) → B17
89. Polygon({A18, A19, A19 + (0, hei), A18 + (0, hei)}) → B18
90. Polygon({A19, A20, A20 + (0, hei), A19 + (0, hei)}) → B19
91. Polygon({A20, A21, A21 + (0, hei), A20 + (0, hei)}) → B20
92. Polygon({A21, A22, A22 + (0, hei), A21 + (0, hei)}) → B21
93. Element(Take[{B1, B2, B3, B4, B5, B6, B7, B8, B9, B10, B11, B12, B13, B14, B15, B16, B17, B18, B19, B20}, 1, d2], If[n2 ≟ d2 - 1, d2, d2 - 1]) → q1
94. Vertex(q1) → Q11, Q12, Q13, Q14
95. Segment(E + (0, 0.15), E - (0, 0.15)) → h
96. Segment(F + (0, 0.15), F - (0, 0.15)) → i