分数约分可视化

GeoGebra 命令及参数

1. Sequence(i, i, 1, maxnumden) → list_1
2. Shuffle(list_1) → posrandomlist
3. Sequence((-i), i, 1, maxnumden) → list_2
4. Join({list_1, list_2}) → list_4
5. Shuffle(list_4) → randomlist
6. Sort(poslist_{f1}) → poslistsort_{f1}
7. Element(poslistsort_{f1}, 2) → posden_1
8. Sort(poslist_{f2}) → poslistsort_{f2}
9. Element(poslistsort_{f2}, 2) → posden_2
10. Element(poslistsort_{f1}, 1) → posnum_1
11. Element(poslistsort_{f2}, 1) → posnum_2
12. Sort(Sequence[(abs(Element[list_{f1}, i]), i), i, 1, Length[list_{f1}]]) → listhelp_1
13. Sort(Sequence[(abs(Element[list_{f2}, i]), i), i, 1, Length[list_{f2}]]) → listhelp_2
14. Sequence(Element[list_{f1}, y(Element[listhelp_1, i])], i, 1, Length[list_{f1}]) → listsort_{f1}
15. Sequence(Element[list_{f2}, y(Element[listhelp_2, i])], i, 1, Length[list_{f2}]) → listsort_{f2}
16. Element(listsort_{f1}, 1) → num_1
17. Element(listsort_{f2}, 1) → num_2
18. Element(listsort_{f2}, 2) → den_2
19. Element(listsort_{f1}, 2) → den_1
20. Random(2, maxmult + dummy - dummy) → mult
21. Point(Circle[A, 4]) → B
22. Polygon(A, B, C, D) → poly1, a_1, b_1, c_1, d
23. Polygon({B, B + (abs(anycancnum / anycancden) * (C - B)), A + (abs(anycancnum / anycancden) * (D - A)), A}) → FractionPoly, e, f, g, h
24. Sequence(Segment[B + (i * (C - B) / abs(anymultden)), A + (i * (D - A) / abs(anymultden))], i, 1, abs(anymultden)) → list1
25. Sequence(Segment[B + (i * (C - B) / abs(anycancden)), A + (i * (D - A) / abs(anycancden))], i, 1, abs(anycancden)) → list2
26. GCD(multposnum, multposden) → posfracgcd