MathPlotAI Logo MathPlotAI

Boat Coordinate Game by Markus Hohenwarter

Boat Coordinate Game by Markus Hohenwarter
Loading the math board and drawing, please wait…
2013-06-09 23:19
Coordinate GeometryGeometric ConstructionSlider Animation
This example uses a submarine search game to practice coordinates. Based on Daniel Mentrard's original game, it is optimized for tablets. It demonstrates coordinate geometry concepts using commands like Random, Circle, Ray, OrthogonalLine, Intersect, etc. Suitable for middle school and above students for coordinate and geometric construction practice.

GeoGebra Commands & Parameters

  1. Random(-10, 10) → bb
  2. Random(-10, 10) → aa
  3. Random(-10, 10) → cc
  4. Random(4, 15) → rr
  5. Circle(A, (1.5 * v - 1) * rr) → c'
  6. Ray(A, (0, 0)) → a
  7. OrthogonalLine(A, a) → b
  8. Intersect(c', b) → B, C
  9. Intersect(c', a) → D, T
  10. CircumcircleArc(B, D, C) → d
  11. Midpoint(C, D) → E
  12. Midpoint(B, D) → F_2
  13. Ray(A', E) → e
  14. Ray(A', F_2) → f
  15. Intersect(d, e) → G,
  16. Intersect(d, f) → H,
  17. CircumcircleArc(G, D, H) → g
  18. Circle(I, 1) → h
  19. Sequence(Text[If[s < 10, " ", ""] + (s), (21.6 + 2 * Mod[s - 1, 3], 7.75 - 2 * Div[s - 1, 3])], s, 1, 12) → liste3
  20. Circle(J, 1) → k
  21. Sequence(Text[If[s ≟ 1, " ", If[s < 5, " ", ""]] + (30 * (s - 1)) + "º", (21.25 + 2 * Mod[s - 1, 3], -6.25 - 2 * Div[s - 1, 3])], s, 1, 12) → liste4
  22. If(yB > -5, 5*°, (((xB - 3 * yB) / 2 - 19 - 1) * 30)°) → ang
  23. If(ang ≟ α ∧ dist ≟ rr, true, false) → raz
  24. Segment(O, N) → m
  25. Circle(A, (2 * v - 1) * rr - n) → p
  26. Sequence(Circle[A, (1.5 * v - 1) * rr - i], i, 0, n, n / 10) → liste5
  27. Polygon(P, Q, R, S) → poly1, p_1, q, r_1, s
  28. Circle((0, 0), If[2 * v * rr > 12, 0, 2 * v * rr]) → c
  29. Midpoint(K, L) → U
  30. Midpoint(U, L) → V
  31. Midpoint(U, V) → W
  32. Midpoint(V, L) → Z
  33. Segment(K, C_1) → l
  34. Line(A, l) → i
  35. Segment(A, U) → t
  36. Intersect(c, t) → A_1, B_1
  37. Segment(U, A_1) → a_1
  38. Rotate(C_1, 6 * v, U) → L'
  39. Segment(U, L') → b_1
  40. Mod(v * 100, 2) → ab
  41. Segment(O, D_1) → j
  42. Circle(O, C_1) → g_1
  43. Point(g_1) → E_1
  44. Segment(O, E_1) → h_1
  45. Circle(F_1, 6.5 - abs(r / 4.5)) → q_1
  46. Line(F_1, l) → i_1
  47. Intersect(q_1, i_1) → G_1, H_1
  48. Line(J_1, r_1) → j_1
  49. Point(j_1) → N_1
  50. Line(N_1, l) → l_1
  51. Line(J_1, l) → m_1
  52. Point(m_1) → O_1
  53. Point(l_1) → P_1
  54. Intersect(l_1, r_1) → M_1
  55. Polygon(M_1, N_1, J_1, F) → poly2, m_2, n_1, j_2, f_2
  56. Point(l_1) → Q_1
  57. Point(m_1) → R_1
  58. Polygon(P_1, Q_1, R_1, O_1) → poly3, p_2, q_2, r_2, o_1
  59. Point(j_1) → S_1
  60. Polygon(S_1, T_1, O_1, J_1) → poly4, s_1, t_1, o_2, j_3
  61. Midpoint(s_1) → V_1
  62. Midpoint(o_2) → W_1
  63. Midpoint(S_1, J_1) → Z_1
  64. Midpoint(t_1) → A_2
  65. Segment(V_1, W_1) → a_2
  66. Segment(Z_1, A_2) → b_2
  67. Intersect(b_2, a_2) → B_2
  68. Circle(B_2, V_1) → c_2
  69. Sequence((x(O) + i, y(D_1)), i, -11, 11, 1) → liste1
  70. Sequence((x(N) + i, y(N)), i, -11, 11, 1) → liste6
  71. Sequence((x(C_1), y(C_1) + i), i, -11, 11, 1) → liste7
  72. Sequence((x(E_1), y(E_1) + i), i, -11, 11, 1) → liste8
  73. Ray(M_1, T_1) → c_1
  74. Sequence(Segment[Element[liste8, i], Element[liste7, i]], i, 0, 22) → liste10
  75. Sequence((x(D_1) + i, 0), i, -11, 11) → liste2
  76. Sequence(Segment[Element[liste1, i], Element[liste6, i]], i, 0, 22) → liste9
  77. Line(S, P) → d_1
  78. Line(J_1, S_1) → e_1
  79. Line(Q_1, e_1) → f_1
  80. Intersect(d_1, s) → M
  81. Intersect(d_1, f_1) → C_2
  82. Line(R, d_1) → k_1
  83. Intersect(e_1, k_1) → D_2
  84. Polygon(S, C_2, Q_1, S_1, D_2, R) → poly5, s_2, c_3, q_3, s_3, d_2, r_3
  85. Point(d_1) → E_2
  86. Line(E_2, p_1) → e_2
  87. Intersect(k_1, e_2) → G_2
  88. Polygon(E_2, P, Q, G_2) → poly6, e_3, p_3, q_4, g_2
  89. Sequence(O + (i, 0), i, -10, 10) → liste11
  90. Sequence(O + (0, i), i, -10, 10) → liste12
  91. Sequence(i, i, -10, 10) → liste13
  92. Sequence(Text[Element[liste13, i], (x(Element[liste11, i] - 0.42), y(Element[liste11, i] - 0.85))], i, 1, Length[liste13], 2) → liste14
  93. Sequence(Text[Element[liste13, i], (x(Element[liste12, i] - 1), y(Element[liste12, i] - 0.31))], i, 1, Length[liste13], 2) → liste15