Explore the Area of a Circle: Cutting into Sectors and Rearranging into a Parall
Loading the math board and drawing, please wait…
① This GeoGebra example demonstrates the derivation of the circle area formula A = πr² by cutting a circle into sectors and rearranging them into a shape close to a parallelogram. ② Core mathematical concepts include area of a circle, sectors, arc length, pi, the idea of limits, and geometric transformations such as rotation and translation. ③ Construction highlights: using GeoGebra commands such as Segment, Point, Sequence, Rotate, Sector, Arc, CurveCartesian, Circle, Ray, Midpoint, Intersect, and CircleArc, the applet builds a dynamic slider n (number of sectors), angle θ, and multiple auxiliary points (O, A, B, C, D, E, F, G, H, I, J, K, L) and objects (list1, list2, dissect, circumference, text elements). The sectors are rotated and rearranged to form an approximate parallelogram, with explanatory text labels. ④ This resource is suitable for middle and high school geometry classes, especially for introducing the circle area formula or the concept of limits through visual exploration, and can be used in math labs or inquiry-based learning.
GeoGebra Commands & Parameters
Segment(E, (x(E) + 4, y(E))) → aPoint(a) → FMin((x(F) - x(E)) / (a / 2), 1) → kPoint(yAxis) → OSequence(If[k < 1, (x(O) + ((l * sin((i * φ))) * cos((i * φ)) / sin(φ)), y(O) + ((l * sin((i * φ))) * sin((i * φ)) / sin(φ))), (x(O) + (l * i), y(O))], i, 0, (2 * n)) → list2Sequence((x(O) + sin((i * θ)), y(O) + 1 - cos((i * θ))), i, 0, (2 * n)) → list1Max((x(F) - x(E)) / (a / 2) - 1, 0) → k'Rotate((x(O) + 0, y(O) + 1), ((-k) * θ / 2), O) → ARotate(O, ((-k) * θ / 2), O) → O'Rotate(Element[list1, 1], ((-k) * θ / 2), O) → BSector(Rotate[Circle[(x(O) + 0, y(O) + 1), O], ((-k) * θ / 2), O], Rotate[O, ((-k) * θ / 2), O], Rotate[Element[list1, 1], ((-k) * θ / 2), O]) → cRotate((x(O) + 0, y(O) + 1), ((-k) * θ / 2), O) → CRotate(O, ((-k) * θ / 2), O) → O'_1Rotate(Element[list1, 1], ((-k) * θ / 2), O) → DArc(Rotate[Circle[(x(O) + 0, y(O) + 1), O], ((-k) * θ / 2), O], O'_1, D) → dCurveCartesian(t - sin(t), 1 - cos(t), t, 0, 6.28319) → bCircle((0, 1), 1) → hRay((0, 0), (1, 0)) → iPoint(Segment[(0, 1), (6.28319, 1)]) → HSegment(H, (x(H), 0)) → jMidpoint(j) → IMidpoint(a) → JCircle(L, 1 / (1 - m)) → pCircle((0, 0), 1 / (1 - m)) → qIntersect(p, q, 1) → MCircle((0, 1), 1) → c_1Segment((0, 0), (6.283185307179586, 0)) → eSegment(G, (x(G), y(G) - 1)) → rSequence(Sector[Rotate[Translate[Circle[(x(O) + 0, y(O) + 1), Element[list1, i]], Vector[Element[list1, i], Element[list2, i]]], (((-((2 * i) - 1)) * k) * θ / 2), Element[list2, i]], Rotate[Translate[Element[list1, i], Vector[Element[list1, i], Element[list2, i]]], (((-((2 * i) - 1)) * k) * θ / 2), Element[list2, i]], Rotate[Translate[Element[list1, i + 1], Vector[Element[list1, i], Element[list2, i]]], (((-((2 * i) - 1)) * k) * θ / 2), Element[list2, i]]], i, 1, n) → list3Sequence(Sector[Rotate[Rotate[Translate[Circle[(x(O) + 0, y(O) + 1), Element[list1, i]], Vector[Element[list1, i], Element[list2, i]]], (((-((2 * i) - 1)) * k) * θ / 2), Element[list2, i]], (180° * k'), (x(O) + (n * l) - sin(θ / 2) / 2, y(O) + cos(θ / 2) / 2)], Rotate[Rotate[Translate[Element[list1, i], Vector[Element[list1, i], Element[list2, i]]], (((-((2 * i) - 1)) * k) * θ / 2), Element[list2, i]], (180° * k'), (x(O) + (n * l) - sin(θ / 2) / 2, y(O) + cos(θ / 2) / 2)], Rotate[Rotate[Translate[Element[list1, i + 1], Vector[Element[list1, i], Element[list2, i]]], (((-((2 * i) - 1)) * k) * θ / 2), Element[list2, i]], (180° * k'), (x(O) + (n * l) - sin(θ / 2) / 2, y(O) + cos(θ / 2) / 2)]], i, n + 1, (2 * n)) → list4CircleArc((0, 1 / (1 - m)), O, L) → s