象限角測驗

GeoGebra 命令及参数

1. Join({Sequence[((i * 5))°, i, 2, 16], Sequence[((i * 5))° + 90°, i, 2, 16], Sequence[((i * 5))° + 180°, i, 2, 16], Sequence[((i * 5))° + 270°, i, 2, 16]}) → listTheta
2. RandomElement(listTheta) → theta
3. If(theta < 90°, {N, E}, If[theta < 180°, {N, W}, If[theta < 270°, {W, S}, {S, E}]]) → listTwoPoint
4. Ray(A, B) → c
5. If(theta < 180°, "N", "S") → ans1
6. If(theta > 90° ∧ theta < 270°, "W", "E") → ans2
7. If(theta < 90°, 90° - theta, If[theta < 180°, theta - 90°, If[theta < 270°, 270° - theta, theta - 270°]]) → ans3
8. Shuffle({"A", "B", "C", "D", "F", "G", "H", "J", "K", "L", "M", "P", "Q", "R", "T", "U", "V", "X", "Y", "Z"}) → listLetter
9. RandomElement(listTwoPoint) → C
10. Angle(C, A, B) → angleShown
11. Sequence(Text[((i * 5))°], i, 0, 71) → list1
12. Append("?", Zip[If[Length[k] ≟ 2, "00", If[Length[k] ≟ 3, "0", ""]] + (k), k, list1]) → listBearing
13. SelectedElement(listBearing) → input
14. Angle(B, A, N) → angleAns
15. Element(listBearing, angleAns / (5°) + 2) → Answer