在复平面上加复数

GeoGebra 命令及参数

1. Vector(C) → vec
2. Vector(O, P'') → j
3. Circle(O, A) → UnitCircle
4. Point(UnitCircle) → B
5. If(unit, abs(B), abs(C)) → r
6. If(r > 1, xMin, floor(xMin) / r) → xMinStretch
7. Sequence(Line[(-1, i), (1, i)], i, yMin', yMax', 1) → yMajorLines
8. Sequence(Line[(i, -1), (i, 1)], i, xMin, xMax, 1) → xMajorLines
9. Sequence(Line[(i, -1), (i, 1)], i, xMin, xMax, 1 / 5) → xMinorLines
10. Join({{Sequence[Text[i, (i, -0.1)], i, xMin, -1]}, {Sequence[Text[i, (i, -0.1)], i, 1, xMax]}}) → xNumbers
11. If(unit, Angle[B], Angle[C]) → ang
12. Text("O", (-0.1, -0.1)) → OriginNumber
13. Translate(xaxis, vec) → xaxis'
14. If(r > 1, xMax, ceil(xMax / r)) → xMaxStretch
15. Sequence(Line[((r * i), -1), ((r * i), 1)], i, xMinStretch, xMaxStretch, 1) → xMajorStretch
16. Sequence(Line[((r * i), -1), ((r * i), 1)], i, xMinStretch, xMaxStretch, 1 / 5) → xMinorStretch
17. Sequence(Line[(-1, (r * i)), (1, (r * i))], i, xMinStretch, xMaxStretch, 1) → yMajorStretch
18. Sequence(Line[(-1, (r * i)), (1, (r * i))], i, xMinStretch, xMaxStretch, 1 / 5) → yMinorStretch
19. Join({{Sequence[Text[(i * "i"), (-0.15, i)], i, yMin, -1]}, {Sequence[Text[(i * "i"), (-0.1, i)], i, 1, yMax]}}) → yNumbers
20. Vector(O, C) → u
21. Vector(O, B) → v
22. Vector(O, P) → w
23. Vector(O, P') → h
24. Circle(O, P') → secondcircle
25. Vector(O, R') → a
26. Vector(O, R'') → b
27. Translate(xMajorLines, vec) → xMajorLines'
28. Translate(xMinorLines, vec) → xMinorLines'
29. Translate(yMajorLines, vec) → yMajorLines'
30. Sequence(Line[(-1, i), (1, i)], i, yMin', yMax', 1 / 5) → yMinorLines
31. Translate(yMinorLines, vec) → yMinorLines'
32. Translate(yaxis, vec) → yaxis'
33. Text("O", C - (0.1, 0.1)) → OriginNumber'
34. Join({{Sequence[Text[i, (i, -0.1) + vec], i, xMin', -1]}, {Sequence[Text[i, (i, -0.1) + vec], i, 1, xMax']}}) → xNumbers'
35. Join({{Sequence[Text[(i * "i"), (-0.1, i) + vec], i, xMin', -1]}, {Sequence[Text[(i * "i"), (-0.1, i) + vec], i, 1, xMax']}}) → yNumbers'