不适当分数可视化

GeoGebra 命令及参数

1. If(a > 12, 14 / (a + 2), 1) → r
2. Sequence(A + (((1.2 * r) * (i - (k * Mod[i - 1, b]) - ((k * (b - 1)) * Div[i - 1, b]))), 0), i, 1, a) → p1
3. Sequence(Rotate[Translate[Element[p1, i], Vector[(0, r / 2)]], 3.141592653589793 / b + (((2 * 3.141592653589793) * k) * Mod[i - 1, b] / b), Element[p1, i]], i, 1, a) → p2
4. Sequence(Rotate[Translate[Element[p1, i], Vector[(0, r / 2)]], ((-3.141592653589793)) / b + (((2 * 3.141592653589793) * k) * Mod[i - 1, b] / b), Element[p1, i]], i, 1, a) → p3
5. Sequence(CircleSector[Element[p1, i], Element[p3, i], Element[p2, i]], i, 1, a) → secs
6. Div(a, b) → c
7. Mod(a, b) → a1
8. lt("=") → e1b
9. If(si, TableText[{{e1a, e1b, e1c}, {e2a, e1b, e2c}}, "rcl"], TableText[{{e1a, e2a}}]) → text3
10. Sequence(Text[If[Mod[i, b] ≟ 0, rt["" + (i)], bt["" + (i)]], ((-0.09), (-0.2)) + Element[p1, i], true, true], i, 1, a) → numbers
11. LaTeX(lm[frc["\blue{" + a + "}", "\red{" + b + "}"]]) → text1