除法的意义

GeoGebra 命令及参数

1. Mod(dividend, divisor) → remainder
2. Flatten(Sequence[Sequence[A + (i, j), j, 0, divisor - 1], i, 0, quotient + 1]) → arrayforunits
3. Sequence(Polygon[Element[arrayforunits, i], Element[arrayforunits, i] + (1, 0), 4], i, 1, counter) → list2
4. Flatten(Sequence[Sequence[A + (i, j), j, 0, divisor], i, 0, quotient + 1]) → arrayforappearance
5. Polygon(A, A + (quotient, 0), A + (quotient, divisor), A + (0, divisor)) → productpoly, a, f, g, h
6. Text(divisor, Midpoint[h] + (adjusthorizontal, 0)) → text1
7. Text(quotient, Midpoint[g] + (0, adjustvertical)) → text2
8. Polygon(A + (quotient, 0), A + (quotient + 1, 0), A + (quotient + 1, remainder), A + (quotient, remainder)) → remainderpoly, i, j, k, l
9. Text(remainder, Midpoint[j] - (adjusthorizontal, 0)) → text3
10. Textfield(dividendtext) → dividendinput
11. Textfield(divisortext) → divisorinput
12. Sequence(Text[i, Centroid[Element[list2, i]]], i, 1, dividend) → list1