用区域模型加分数

GeoGebra 命令及参数

1. Polygon(A, A + (squarelength, 0), 4) → Whole1, f, g, h, i, C, D
2. Polygon(B, B + (squarelength, 0), 4) → Whole2, j, k, l, m, E, F
3. Textfield(inputnum1) → a1InputBoxNum1
4. Textfield(inputdenom1) → a2InputBoxDenom1
5. Textfield(inputnum2) → a3InputBoxNum2
6. Textfield(inputdenom2) → a4InputBoxDenom2
7. Sequence(Segment[A + ((i * Denom1Unit), 0), A + ((i * Denom1Unit), squarelength)], i, 1, inputdenom1 - 1) → Lines1Vertical
8. Sequence(Segment[B + (0, (i * Denom2Unit)), B + (squarelength, (i * Denom2Unit))], i, 1, inputdenom2 - 1) → Lines2Horizontal
9. Polygon(A, A + ((Denom1Unit * inputnum1), 0), A + ((Denom1Unit * inputnum1), squarelength), A + (0, squarelength)) → Fraction1Polygon, a_1, n, p, q
10. Polygon(B, B + (squarelength, 0), B + (squarelength, (Denom2Unit * inputnum2)), B + (0, (Denom2Unit * inputnum2))) → Fraction2Polygon, b, r, s, t
11. Translate(Lines1Vertical, Vector[(Vector[A, B] * mover1)]) → Lines1Moving
12. Translate(Lines2Horizontal, Vector[(Vector[B, A] * mover2)]) → Lines2Moving
13. GCD(numsum, newdenom) → reduceby