分数乘法面积模型

GeoGebra 命令及参数

1. Point(a) → A
2. Sequence((x(A) + (i * denominatorsize), y(A)), i, 0, (denominator * numberofwholes)) → list1
3. Sequence((x(A) + (i * unitsize), y(A)), i, 0, numberofwholes) → list2
4. Sequence((x(A), y(A) + (i * denominatorsizev)), i, 1, (denominatorv * numberofwholesv)) → list3
5. Sequence((x(A), y(A) + (i * unitsizev)), i, 1, numberofwholesv) → list4
6. Sequence(Segment[Element[list2, i], Element[list2, i] + (0, (numberofwholesv * unitsizev))], i, 1, numberofwholes + 1) → UnitLongitude
7. Sequence(Segment[Element[list4, i], Element[list4, i] + ((numberofwholes * unitsize), 0)], i, 1, numberofwholesv + 1) → UnitLatitude
8. Polygon(A, B, OuterUpperRight, C) → poly1, a_1, b, upperright, c
9. Sequence(Segment[Element[list1, i], Element[list1, i] + (0, (numberofwholesv * unitsizev))], i, 1, (denominator * (numberofwholes + 1))) → GridLongitude
10. Sequence(Segment[Element[list3, i], Element[list3, i] + ((numberofwholes * unitsize), 0)], i, 1, (denominatorv * (numberofwholesv + 1))) → GridLatitude
11. Polygon(A, LowerRight, UpperRight, UpperLeft) → polyWhole, a_2, lowerright, upperright_1, upperleft
12. Polygon(UpperLeft, UpperRight, OuterUpperMid, C) → polyUpper, upperleft_1, upperright_2, outeruppermid, c_1
13. Polygon(LowerRight, B, RightUpperMid, UpperRight) → polyRight, lowerright_1, b_1, rightuppermid, upperright_3
14. Polygon(UpperRight, RightUpperMid, OuterUpperRight, OuterUpperMid) → polyCorner, upperright_4, rightuppermid_1, outerupperright, outeruppermid_1
15. LCM(denomList) → commondenominator
16. GCD(numanswerTEMP, commondenominator) → reduceby
17. GCD(commondenominator, numanswerTEMPTWO) → reducebyTWO