等价分数生成器

GeoGebra 命令及参数

1. If(a, RandomElement[{2, 3, 4, 6, 8}], userDen) → SD
2. If(a, Random[1, SD - 1], userNum) → SN
3. Polygon((0, 0), (1, 0), (1, 1), (0, 1)) → fractionBox, f, g, h, i
4. Sequence(Segment[(0, ii / den), (1, ii / den)], ii, 1, den - 1) → partitions
5. Sequence(Point[{1 / 2, ii / den}], ii, 0, den) → dots
6. Point(dots) → shader
7. Polygon((0, 0), (0, y(shader)), (1, y(shader)), (1, 0)) → shading, j, k, l, m
8. TableText({right, wrong}, "_1 |1 vc") → text2
9. Textfield(userNum) → InputBox1
10. Textfield(userDen) → InputBox2
11. Segment(A, B) → n
12. If(a, true, IsInteger[userNum] ∧ IsInteger[userDen] ∧ userNum > 0 ∧ userDen > 0 ∧ userNum < userDen) → works