分数除以分数的几何作图

GeoGebra 命令及参数

1. LCM(Bn, Rn) → Pn
2. PolyLine(B, B + (dist, 0), B + (dist, ht), B + (0, ht), B) → f
3. Sequence(Polygon[B + ((dist * (i - 1) / Bn), 0), B + ((dist * i / Bn), 0), B + ((dist * i / Bn), ht), B + ((dist * (i - 1) / Bn), ht)], i, 1, Bn) → list1
4. Sequence(Polygon[B + ((dist * (i - 1) / Bn), 0), B + ((dist * i / Bn), 0), B + ((dist * i / Bn), ht), B + ((dist * (i - 1) / Bn), ht)], i, 1, ShG) → list2
5. Textfield(Bn) → InputBox1
6. Textfield(Rn) → InputBox2
7. PolyLine(A, A + (dist, 0), A + (dist, ht), A + (0, ht), A) → r
8. Textfield(ShG) → InputBox3
9. Textfield(ShB) → InputBox4
10. Segment(E_1, I_1) → f_1
11. Segment(E_2, J_1) → g_1
12. Segment(D_1, K_1) → h_1
13. Segment(E_3, L_1) → i_1
14. Segment(F_1, M_1) → j_1
15. Segment(G_1, H_1) → k_1
16. Segment(G_2, P_1) → l_1
17. Segment(F_2, Q_1) → m_1
18. Segment(E, G) → i
19. Segment(D, F) → j
20. fractionbar(B, Pn, 0, dist, ht) → list5, list5_2, list5_3
21. fractionbar(C, ShB, ShB, (ShB * dist / Rn), ht) → list4, list6, g
22. fractionbar((-7, -1), Rn, 0, dist, ht) → list3, list3_2, list3_3