分数除法几何作图 by James Monaghan

GeoGebra 命令及参数

1. Point(xAxis) → A
2. Point(xAxis) → C
3. Point(xAxis) → D
4. If(p ≟ false, j, 1) → allparts
5. Point(xAxis) → B
6. Polygon(A, B, 4) → polígono1, a, b, c, d, E, F
7. Polygon(C, D, 4) → poly1, c_1, d_1, e, f, G, H
8. Polygon(L, J, K, I) → poly1_1, l_1, j_2, k_1, i_1
9. Sequence(Segment[(0, (5 * g / h)), (5, (5 * g / h))], g, 0, h) → lista1
10. Sequence(Segment[(7, (5 * g / h)), (12, (5 * g / h))], g, 0, h) → lista6
11. Sequence(Segment[(0 + (5 * i / j), 0), (0 + (5 * i / j), 5)], i, 0, j) → lista5
12. Sequence(Segment[(7, (5 * i / j)), (12, (5 * i / j))], i, 0, j) → lista3
13. FractionText(y(J) - (5 * g / h)) → vertdist
14. Point(Circle[M, Segment[L, J]]) → N
15. Rotate(N + (Segment[J, K], 0), Angle[K - J] + Angle[N - M] - Angle[J - L], N) → O
16. Rotate(O + (Segment[K, I], 0), Angle[I - K] + Angle[O - N] - Angle[K - J], O) → P
17. Polygon(V, W, Z, A_1) → q2, v, w, z_1, a_1
18. Polygon(R, S, T, U) → q1, r, s, t, u
19. Polygon(B_1, C_1, D_1, E_1) → q3, b_1, c_2, d_2, e_1
20. Polygon(F_1, G_1, H_1, I_1) → q4, f_1, g_1, h_1, i_2
21. Polygon(J_1, K_1, L_1, M_1) → q5, j_1, k_2, l_2, m_1
22. Polygon(N_1, O_1, P_1, Q_1) → q6, n_1, o_1, p_1, q_1
23. Polygon(R_1, S_1, T_1, U_1) → q7, r_2, s_2, t_2, u_2
24. Polygon(V_1, W_1, Z_1, A_2) → q8, v_2, w_2, z_2, a_3