三合一：多面体构造、表面三角剖分与可视化（新版本）

GeoGebra 命令及参数

1. LaTeX(Um1) → lll1_1
2. LaTeX(Um0) → lll0
3. Sphere(O, R) → p1
4. Textfield(n) → InputBox1
5. Textfield(i0) → InputBox2
6. Text(r) → Txtr
7. Textfield(k_1) → InputBox4
8. UnicodeToLetter(34) → u34
9. Textfield(k_2) → InputBox5
10. TableText(ltxt0, ltxt1, "v") → textltxt01
11. Append(A, Sequence[((random(), random(), random()) * R), i, 2, n]) → l2s
12. Text(("(up\; to\; 10^{-15})\;\\ accuracy= " * ScientificText[cc, 3]), C, true, true) → text5r
13. Zip(Vector[a, a + UnitVector[a]], a, lP') → lVector1
14. Textfield(scale) → InputBox6
15. TableText(Append["i", 1…n], Append[" \fgcolor{orange}{GM :Δφ_i}, rad", l1], Append["\fgcolor{magenta}{GC :Δφ_i} , rad", l1c], "v") → text23
16. Text("\;\;\;\;\;\;\;\;\;\;\;\;\;\fgcolor{" + (If[c', "orange", "brown"]) + "} \boxed{ " + c' + "}\;\;\;\; \;\;\;\;\; \\\;\; ( accuracy- up\; to\;\; 2.*10^{" + k_2 + ("\;})\;\\\;\; ➤➤➤\;\;\;\scalebox{1.3}{ " + (ScientificText[cc, 3])) + "}\;█ ", C, true, true) → text9
17. If(bu, "Animation", "Stop") → bue0
18. Zip(Vector[a, a + (1.5 * UnitVector[b])], a, lP', b, Wi_P) → lVector3
19. Zip(Vector[a, a + (1.5 * UnitVector[b])], a, lP', b, Wi_Pc) → lVector2
20. TableText({Join[{{"n"}, Sequence[i, i, 4, 69 + 3]}], Join[{{" p_n=P_n/[R*n*(n-1)/2]"}, lp}]}, "vl") → txt_lp
21. Text("" + Um1) → txt_p
22. Sum(Flatten[Sequence[Append[Sequence[Element[txt_p, i], i, m1(k), m2(k)], " "], k, 1, 5]]) → txtUm1