垂直直线方程（开放中间）

GeoGebra 命令及参数

1. Textfield(a) → InputBox1
2. Textfield(b) → InputBox2
3. Textfield(c) → InputBox3
4. Textfield(d) → InputBox4
5. Textfield(e) → InputBox5
6. Textfield(f) → InputBox6
7. Intersect(eq2, eq1) → B
8. Mode(l1) → l2
9. If(Length[l2] ≟ 0, "No digits repeat!", "Repeated digits exist.") → text2
10. Point(eq1) → A
11. Point(eq2) → C
12. Point(eq2) → D
13. Point(eq1) → E
14. Polygon(A, F, G) → t1, g_1, a_1, f_1
15. Dilate(A, If[0 < g ≤ 1, 1 - g, 0], C) → A'
16. Vector(A, A') → u
17. Translate(A, u) → A'_{1}
18. Translate(F, u) → F'
19. Translate(G, u) → G'
20. Polygon(A'_{1}, F', G') → t1', g', a'_{1}, f'
21. Translate(A, u) → A'_{2}
22. Translate(F, u) → F'_{1}
23. Translate(F, u) → F'_{2}
24. Translate(G, u) → G'_{1}
25. Segment(A, G) → h
26. Translate(A, u) → A'_{3}
27. Translate(G, u) → G'_{2}
28. Rotate(A'_{1}, If[1 < g ≤ 2, ((g - 1) * π / 2), π / 2], C) → H
29. Rotate(F', If[1 < g ≤ 2, ((g - 1) * π / 2), π / 2], C) → F''
30. Rotate(G', If[1 < g ≤ 2, ((g - 1) * π / 2), π / 2], C) → G''
31. Polygon(H, F'', G'') → t1'', g'', h_1, f''
32. Angle(C, B, A) → α