全等与相似三角形命名测验

GeoGebra 命令及参数

1. Sequence(30° + ((i * 10))°, i, 0, 12) → listAlpha
2. RandomElement(listAlpha) → α
3. Sequence(((i * 10))°, i, 1, (180 - α / °) / 10 - 1) → listBeta
4. RandomElement(listBeta) → β
5. RandomElement({0.75, 1, 1.25}) → k
6. Rotate(A, β, O) → A'
7. Line(O, A') → LineOA'
8. Rotate(O, (-α), A) → O'
9. Line(A, O') → LineAO'
10. Intersect(LineOA', LineAO') → B
11. Circle(O'', (Distance[O, B] * k)) → c
12. Rotate(Dilate[Translate[A, Vector[O, O'']], k, O''], If[rotate, theta, 0°], O'') → A''
13. Circle(A'', (Distance[A, B] * k)) → d
14. Intersect(c, d, 1) → B''1
15. Intersect(c, d, 2) → B''2
16. If(reflect, B''1, B''2) → B''
17. Max({Distance[A, B], Distance[A, O], Distance[O, B]}) → maxLength
18. Polygon(O, A, B) → poly1, b_1, c_1, a_1
19. Shuffle({"D", "E", "F", "G", "H", "J", "K", "L", "M", "N", "P", "Q", "R", "S", "T", "V", "W", "X", "Y"}) → listLetter
20. Angle(poly1) → angleO, angleA, angleB
21. Polygon(B'', O'', A'') → poly2, a_2, b_2, c_2
22. Angle(poly2) → angleB'', angleO'', angleA''
23. Take(listLetter, 1, 3) → listQuestion
24. Append("?", Sort[Take[listLetter, 4, 6]]) → listAnswer1
25. Append("?", Sort[Take[listLetter, 4, 6]]) → listAnswer2
26. Append("?", Sort[Take[listLetter, 4, 6]]) → listAnswer3
27. If(SelectedElement[listAnswer1] ≟ listLetter(4), angleO'', SelectedElement[listAnswer1] ≟ listLetter(5), angleA'', SelectedElement[listAnswer1] ≟ listLetter(6), angleB'', 0°) → ans1
28. If(SelectedElement[listAnswer2] ≟ listLetter(4), angleO'', SelectedElement[listAnswer2] ≟ listLetter(5), angleA'', SelectedElement[listAnswer2] ≟ listLetter(6), angleB'', 0°) → ans2
29. If(SelectedElement[listAnswer3] ≟ listLetter(4), angleO'', SelectedElement[listAnswer3] ≟ listLetter(5), angleA'', SelectedElement[listAnswer3] ≟ listLetter(6), angleB'', 0°) → ans3
30. Append("?", Sort[Take[listLetter, 4, 6]]) → listAnswer123