树状图质因数分解

GeoGebra 命令及参数

1. Factors(n) → fm
2. Join(Sequence[Sequence[Element[Element[fm, i], 1], j, 1, Element[Element[fm, i], 2]], i, 1, Length[fm]]) → factors
3. Vector(VVP) → vu
4. Textfield(n) → inputBox1
5. Vector(VP) → u
6. Sequence(ANC + (i * u), i, 0, Length[factors] - 1) → list2
7. Sequence(Product[Sequence[Element[factors, j], j, i, Length[factors]]], i, 1, Length[factors]) → list1
8. Mirror(u, x = 0) → u2
9. Sequence(Element[list2, i] + u2, i, 1, Length[list2] - 1) → list3
10. Sequence(Text["\" + (If[i ≟ Length[list1], "red", "blue"]) + "{" + (Element[list1, i]) + "}", Element[list2, i], false, true], i, 1, len) → list4
11. Sequence(Text["\red{" + (Element[factors, i]) + "}", Element[list3, i], false, true], i, 1, len - 1) → list5
12. Sequence(Segment[Element[list2, i] + hv, Element[list2, i + 1]], i, 1, len - 1) → list6
13. Sequence(Segment[Element[list2, i] + hvu, Element[list3, i] + wu], i, 1, len - 1) → list7
14. Sequence(Text["\times", Element[list2, i] + vu, false, true], i, 1, len - 1) → list8
15. IsPrime(n) → ip
16. Text(If[ip, "\ Is\ Prime!", "=\red{" + (Sum[Sequence[If[i ≟ 1, "", "\times"] + (Element[factors, i]), i, 1, Length[factors]]]) + "}"], B, false, true) → text1