MathPlotAI Logo MathPlotAI

Bike Wheel Geometric Construction and Rotation Animation

Bike Wheel Geometric Construction and Rotation Animation
Loading the math board and drawing, please wait…
2021-06-13 07:26
CircleAngleVectorTransformationGeometric Construction
This GeoGebra example demonstrates the geometric construction of a bicycle wheel and its rotational motion. Core mathematical concepts include circle geometry, rotation transformation, angle calculation, and vector translation. Construction points: Create key points using Point command (wheel center, spoke endpoints), define angles with Angle command, draw spokes with Segment command, create wheel rim with Circle command, construct circular arcs with CircleSector and CircumcircleArc commands, build polygon wheel structure with Polygon command, generate spoke sequences with Sequence command, implement wheel rotation animation with Vector and Translate commands, perform mirror reflections with Mirror command, draw complex curves with PolyLine command. Use sliders to control rotation and dynamically demonstrate the mathematical principles of wheel rotation. Suitable for middle school mathematics courses on circle geometry, rotation transformations, and angle concepts, as well as practice of geometric construction skills.

GeoGebra Commands & Parameters

  1. Point(Circle[A, (2.5 * zr)]) → C'
  2. Angle(C, A, C') → ang
  3. Segment(F, E) → l
  4. Segment(A, C') → a
  5. CircleSector(A, F, Rotate[F, t1, A]) → c
  6. Circle(B, wr) → e
  7. Polygon(F + v / 5, F + h / 10, F - h / 10) → fth, b, f, g
  8. Polygon(E + v / 5, E + h / 10, E - h / 10) → bth, i, j, k
  9. Sequence(Rotate[fth, t1 + ((i * 2) * π / fthr), A], i, 1, fthr) → list3
  10. Sequence(Rotate[bth, t2 + ((i * 2) * π / bthr), B], i, 1, bthr) → list4
  11. Segment(Mirror[F, A], Mirror[E, B]) → m
  12. Vector(E, F) → clv
  13. Mirror(F, A) → F'
  14. CircleSector(B, E, Rotate[E, t2, B]) → d
  15. Mirror(E, B) → E'
  16. Vector(F', E') → clv2
  17. PolyLine(A, B, G, A, H, G) → n
  18. CircumcircleArc(H, H - (3 * v), I) → p
  19. Translate(e, Vector[B, I]) → e'
  20. Sequence(Segment[Rotate[D, t2 + ((i * 2) * π / ws), B], Rotate[E, t2 + ((i * 2) * π / ws), B]], i, 1, ws) → list1
  21. Sequence(Segment[I, Rotate[J, t2 + ((i * 2) * π / ws), I]], i, 1, ws) → list2
  22. Circle(M, (5 * zr)) → d_1
  23. Circle(K, (6 * zr)) → c_1
  24. Intersect(c_1, d_1, 2) → L
  25. Polygon(C' + (0.5 * h) + (0.25 * v), C' + (0.5 * h) - (0.25 * v), C' - (0.5 * h) - (0.25 * v), C' - (0.5 * h) + (0.25 * v)) → poly2, b_1, e_1, f_1, g_1
  26. PolyLine(K, L, M) → a_1
  27. Mirror(C', A) → C''
  28. Mirror(poly2, A) → poly2'
  29. Circle(N, (5 * zr)) → h_1
  30. Intersect(c_1, h_1, 2) → O
  31. PolyLine(K, O, N) → i_1
  32. Segment(A, C'') → j_1
  33. Circle(A, r1) → k_1
  34. Circle(B, r2) → p_1
  35. Sequence(Arc[k_1, Rotate[F, Min[3.141592653589793, Max[0, (((clink * i) + posModl) / cl1 * π)]], A], Rotate[F, Max[0, Min[3.141592653589793, (((clink * i) + posModl + clink / 2) / cl1 * π)]], A]], i, 0, round(cl1 / clink)) → list5
  36. Sequence(Arc[p_1, Rotate[E', Min[3.141592653589793, Max[0, (((clink * i) + posModr) / cl2 * π)]], B], Rotate[E', Max[0, Min[3.141592653589793, (((clink * i) + posModr + clink / 2) / cl2 * π)]], B]], i, 0, round(cl2 / clink)) → list7
  37. Sequence(Segment[F' + (clv2 * Min[1, Max[0, ((clink * i) + posModb) / l]]), F' + (clv2 * Min[1, Max[0, ((clink * i) + posModb + clink / 2) / l]])], i, 0, If[(clink * nclink) + posModb > l, nclink - 1, nclink]) → list6
  38. Sequence(Segment[E + (clv * Min[1, Max[0, ((clink * i) + posModt) / l]]), E + (clv * Min[1, Max[0, ((clink * i) + posModt + clink / 2) / l]])], i, 0, If[(clink * nclink) + posModb > l, nclink - 1, nclink]) → list8
  39. Element(list1, Length[list1]) → l_1

AI Drawing Prompt Reference

Draw a geometric bicycle-wheel scene on a plane with two main circular outlines: use two given centers to construct circles of different radii, then find intersection points between the circles to define key arcs and connecting segments. Set up reference angles using the center and an additional constructed point, and build wheel-like sector arcs from a radius direction. Create spoke lines by repeatedly rotating initial segments around each corresponding center in equal angular steps, forming multiple evenly spaced spokes. Mirror the spoke structures across the appropriate axes to obtain a symmetric counterpart. Combine the sector arcs, the rotated/mirrored segments, and additional polylines and circumferential arcs through the constructed intersection points to form the full wheel geometry, intended to illustrate rotational motion via a rotation parameter.
The prompt above was compiled from the original drawing commands and is for reference only.