互补与补充角的探索活动

GeoGebra 命令及参数

1. Shuffle(Sequence[Random[1, 2], t, 1, 100]) → angTypeList, {2, 1, 2, 1, 1, 2, 2, 1, 1, 2, 2, 1, 2, 1, 2, 1, 1, 2, 2, 2, 1, 2, 1, 1, 2, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 1, 2, 1, 1, 2, 1, 2, 2, 2, 2, 1, 2, 2, 2, 2, 1, 1, 2, 1, 1, 1, 2, 1, 1, 2, 2, 2, 1, 1, 2, 1, 2, 1, 2, 2, 2, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 2, 2, 2, 1, 2, 2, 2, 1, 1, 1, 1, 2, 1, 1, 2}
2. Element(angTypeList, Mod[countAngType, Length[angTypeList]] + 1) → angType
3. Shuffle(Sequence[Random[14, If[angType ≟ 1, 75, 165]], t, 1, 100]) → angList, {25, 15, 29, 34, 36, 23, 63, 14, 68, 33, 26, 22, 26, 29, 34, 22, 24, 25, 44, 61, 67, 60, 41, 42, 70, 16, 45, 23, 53, 41, 18, 18, 70, 65, 39, 47, 30, 74, 31, 67, 23, 50, 71, 48, 48, 28, 32, 62, 14, 49, 25, 57, 54, 37, 33, 49, 44, 57, 68, 17, 42, 63, 54, 38, 33, 46, 33, 34, 50, 22, 31, 50, 38, 37, 65, 66, 34, 73, 54, 16, 72, 49, 68, 29, 37, 64, 27, 18, 65, 40, 25, 44, 21, 17, 48, 57, 75, 73, 39, 56}
4. Element(angList, Mod[countMeasInt, Length[angList]] + 1) → angMeasInt
5. Sequence(Rotate[R, n, K], n, 0, 360°, 5°) → circleGrid
6. RandomElement(circleGrid) → A
7. Rotate(A, If[angType ≟ 1, 90°, 180°], K) → A'_{1}
8. Rotate(A, angMeasInt°, K) → A'
9. Angle(A', K, A'_{1}) → solAng
10. Angle(A, K, A') → givenAng
11. Element(angTypeList, Mod[countQuestion, 15] + 1) → randomNum2
12. Element(angList, Mod[countQuestion, 20] + 1) → randomNum1
13. Textfield(input1) → InputBox1
14. Textfield(input2) → InputBox2
15. Polygon(Zip[PixelsToPoint[Corner[1], Corner[3], Corner[5], A], A, {(pixelsLeft, pixelsTop), (pixelsLeft, y(Corner[5]) - pixelsBottom), Corner[5] - (pixelsRight, pixelsBottom), (x(Corner[5]) - pixelsRight, pixelsTop)}]) → borderBox
16. Corner(5) → layoutAppSize
17. Segment(K, A) → angStart
18. Rotate(K, angMeasInt°, K) → K'
19. Segment(K', A') → angEnd
20. Rotate(K, If[angType ≟ 1, 90°, 180°], K) → K'_{1}
21. Segment(K'_{1}, A'_{1}) → angHint
22. Midpoint(Segment[Rotate[K, givenAng / 2, K], Rotate[A, givenAng / 2, K]]) → L1
23. Circle(K, 6) → c
24. Intersect(c, angEnd) → B,
25. Intersect(c, angHint) → C,
26. Midpoint(B, C) → L2
27. Angle(angStart, angHint) → boxAng
28. Angle(A', K, A'_{1}) → xAng
29. Midpoint(Segment[Rotate[K, missingAng / 2, K], Rotate[A', missingAng / 2, K]]) → LAB