乘法结构与剩余类几何模型

GeoGebra 命令及参数

1. Random(3, 17) → n
2. Sequence(GCD[i, n], i, 1, n) → div
3. Sequence(If[Element[div, i] ≟ 1, i, -1], i, 1, n) → divreverse
4. IndexOf(n - 1, relprimeton) → sizeofg
5. Sequence(Mod[(Mod[g1^(g(i)), n] * Mod[g1^(g(i + 1)), n]), n], i, 1, n) → lstart
6. IndexOf(g1, Last[lstart, n - 1]) → repeatindex
7. First(lstart, repeatindex) → l1
8. IndexOf(g2, l1) → pos
9. Sequence(Element[l1, f(Mod[(pos * i), sizeofg])], i, 1, sizeofg) → l2start
10. Sequence(GCD[i, sizeofg], i, 1, sizeofg) → d2
11. IndexOf(1, l2start) → q
12. Sequence(If[Element[d2, i] ≟ 1, -1, i], i, 1, sizeofg) → d2rev
13. GCD(RandomElement[notrelprimetonminus1], sizeofg) → r
14. Textfield(g1) → InputBox1
15. If(sizeofg ≟ repeatindex, true, false) → a
16. Textfield(g2) → InputBox2
17. If(q ≟ r, true, false) → b
18. First(l2start, q) → l2