有理数运算

GeoGebra 命令及参数

1. Flatten(Sequence[Sequence[(b, c), b, 0, x(B) - 1], c, -1, y(B), -1]) → bList
2. Zip(Polygon[(x(a), y(a)), (x(a) + 1, y(a)), 4], a, bList) → list7
3. Flatten(Sequence[Sequence[(b, c), b, 0, x(A) - 1], c, 0, y(A) - 1]) → aList
4. Dilate(Translate[list7, Vector[((-x(B)), 0)]], -1 / y(B)) → list8
5. Zip(Polygon[(x(a), y(a)), (x(a) + 1, y(a)), 4], a, aList) → list5
6. Dilate(Translate[list5, Vector[((-x(A)), 0)]], 1 / y(A)) → list6
7. Polygon((0, -1), ((-sum), -1), ((-sum), -2), (0, -2)) → poly1, f, g, h, i
8. Translate(list6, Vector[(0, -2)]) → list6'
9. Translate(list8, Vector[((-(x(A) / y(A))), -1)]) → list8'