Geometric Investigation of Trig Identity: Rotation & Area
Loading the math board and drawing, please wait…
This GeoGebra applet demonstrates geometric proofs of trigonometric identities through dynamic manipulation. It explores the relationship between sine/cosine functions and area/perimeter using geometric transformations. Construction highlights: Point, Segment, Polygon for basic shapes; Rotate, Vector for vector rotation; Circle, Semicircle, CircleSector for circular elements; Angle, OrthogonalLine for angle measurement; Mirror, Translate for transformations; Dilate for scaling. Covers trigonometric functions, area formulas, and vector operations. Ideal for high school math teachers demonstrating trig identities or students exploring geometric interpretations of trigonometric concepts.
GeoGebra Commands & Parameters
Point(Ray[(0, 0), (1, 0)]) → BRotate(B, π / 4, A) → B'Circle(A, B) → cPoint(CircleArc[A, B, B']) → DRotate(D, Angle[B, A, D], A) → D'Segment(A, D') → fOrthogonalLine(D', xAxis) → gIntersect(g, xAxis) → EIntersect(h, yAxis) → FIntersect(g, h) → GMirror(D, yAxis) → D'_{1}OrthogonalLine(D'_{1}, xAxis) → iSegment(A, D'_{1}) → jIntersect(i, xAxis) → HPolygon(A, H, 4) → poly1, k, l, m, n, I, JPolygon(H, D'_{1}, 4) → poly2, p, q, r, s, K, LSemicircle(M, B) → dPolygon(A, E, G, F) → q1, a_1, e, g_1, f_1Line(D'_{1}, K) → tCircle(H, Distance[H, I]) → c_1Intersect(c_1, t, 2) → NDilate(A, If[0 < a ≤ 1, 1 - a, 0], D) → A'Dilate(A, If[0 < a ≤ 1, 1 - a, 0], D') → A'_{1}Segment(A, A'_{1}) → h_1Segment(A, A') → i_1Circle(A, 0.6) → d_1Intersect(d_1, i_1, 1) → OAngle(B, A, D) → αAngle(B, A, O) → βAngle(D, A, D') → γIntersect(d_1, xAxis, 2) → PRotate(P, If[2 < a ≤ 3, ((a - 2) * α), α], A) → P'CircleSector(A, P, P') → e_1Rotate(e_1, If[4 < a ≤ 5, ((a - 4) * α), α], A) → k_1Angle(D'_{1}, A, M) → δRotate(k_1, If[6 < a ≤ 7, ((a - 6) * (π - (2 * α))), π - (2 * α)], A) → p_1Dilate(A, If[7 < a ≤ 8, 8 - a, 0], D'_{1}) → A'_{2}Segment(A, A'_{2}) → j_1Dilate(D'_{1}, If[9 < a ≤ 10, 10 - a, 0], H) → QDilate(D', If[9 < a ≤ 10, 10 - a, 0], E) → D''Segment(D', D'') → l_1Segment(D'_{1}, Q) → m_1Dilate(A, If[9 < a ≤ 10, 10 - a, 0], E) → A'_{3}Dilate(A, If[9 < a ≤ 10, 10 - a, 0], H) → A'_{4}Segment(A, A'_{3}) → n_1RotateText(text1, π / 2) → text2Rotate(H, If[13 < a ≤ 14, ((-(a - 13)) * π / 2), ((-π)) / 2], D'_{1}) → H'Segment(D'_{1}, H') → r_1Dilate(D'_{1}, If[14 < a ≤ 15, 15 - a, 0], H) → RVector(D'_{1}, R) → uTranslate(D'_{1}, u) → STranslate(H', u) → H''Segment(S, H'') → s_1Dilate(H, If[15 < a ≤ 16, 16 - a, 0], L) → H'_{1}Vector(H, H'_{1}) → vTranslate(D'_{1}, v) → TTranslate(Q, v) → Q'Segment(T, Q') → t_1Polygon(H, D'_{1}, H', L) → q2, h_2, d'_{1}, h', l_2Rotate(A, If[17 < a ≤ 18, ((-(a - 17)) * π / 2), ((-π)) / 2], H) → A'_{5}Dilate(H, If[18 < a ≤ 19, 19 - a, 0], I) → H'_{2}Vector(H, H'_{2}) → wTranslate(A, w) → A'_{6}Translate(A'_{4}, w) → UDilate(I, If[19 < a ≤ 20, 20 - a, 0], J) → I'Vector(I, I') → u_1Translate(H, u_1) → H'_{3}Translate(A'_{5}, u_1) → VAngle(F, A, D') → εRotate(D', If[20 < a ≤ 21, ((-(a - 20)) * ε), (-ε)], A) → D''_{1}Segment(A, D''_{1}) → i_2Dilate(A, If[21 < a ≤ 22, 22 - a, 0], F) → A'_{7}Vector(A, A'_{7}) → v_1Translate(A, v_1) → A'_{8}Translate(A'_{3}, v_1) → WSegment(A'_{8}, W) → j_2Dilate(F, If[22 < a ≤ 23, 23 - a, 0], G) → F'Vector(F, F') → w_1Translate(A, w_1) → A'_{9}Translate(D''_{1}, w_1) → ZSegment(A'_{9}, Z) → k_2Polygon(A, E, G, F) → q3, a_2, e_2, g_3, f_3Dilate(D'_{1}, If[26 < a ≤ 27, 27 - a, 0], N) → A_1Vector(D'_{1}, A_1) → u_2Translate(H', u_2) → H''_{1}Line(H''_{1}, L) → n_2OrthogonalLine(H, n_2) → p_2Intersect(n_2, p_2) → B_1Dilate(L, If[28 < a ≤ 29, 29 - a, 0], B_1) → L'Vector(L, L') → v_2Translate(H''_{1}, v_2) → C_1Dilate(H, If[30 < a ≤ 31, 31 - a, 0], A) → H'_{4}Vector(H, H'_{4}) → w_2Angle(B_1, H, I) → ζTranslate(N, w_2) → N'Translate(C_1, w_2) → D_1Translate(L', w_2) → L''Translate(H, w_2) → H'_{5}Polygon(N', D_1, L'', H'_{5}) → q5', n', r_2, l'', h'_{5}Rotate(N', If[30 < a ≤ 31, ((a - 30) * ζ), ζ], H'_{5}) → N''Rotate(D_1, If[30 < a ≤ 31, ((a - 30) * ζ), ζ], H'_{5}) → E_1Rotate(L'', If[30 < a ≤ 31, ((a - 30) * ζ), ζ], H'_{5}) → L'''Rotate(H'_{5}, If[30 < a ≤ 31, ((a - 30) * ζ), ζ], H'_{5}) → F_1Line(A, E) → b_2Circle(A, Distance[I, J]) → c_2Line(D'_{1}, H') → c_3Segment(A, B) → k_4Segment(A, M) → l_4Dilate(A, If[17 < a ≤ 18, 18 - a, 0], M) → A'_{11}Vector(A, A'_{11}) → u_4Translate(A, u_4) → A'_{12}Translate(A'_{1}, u_4) → V_1Segment(A'_{12}, V_1) → m_4Rotate(A'_{12}, If[17 < a ≤ 18, ((a - 17) * ((3 * π / 2) - γ)), (3 * π / 2) - γ], A'_{11}) → W_1Rotate(A'_{12}, If[17 < a ≤ 18, ((a - 17) * ((3 * π / 2) - (2 * γ))), (3 * π / 2) - (2 * γ)], A'_{11}) → Z_1Rotate(V_1, If[17 < a ≤ 18, ((a - 17) * ((3 * π / 2) - (2 * γ))), (3 * π / 2) - (2 * γ)], A'_{11}) → A_2Segment(Z_1, A_2) → n_4Rotate(Z_1, If[18 < a ≤ 19, ((-(a - 18)) * π / 2), ((-π)) / 2], A_2) → N_1Rotate(A_2, If[18 < a ≤ 19, ((-(a - 18)) * π / 2), ((-π)) / 2], A_2) → O_1Segment(N_1, O_1) → b_1Rotate(H, If[19 < a ≤ 20, ((a - 19) * π / 2), π / 2], Q') → H'_{6}Rotate(D'_{1}, If[19 < a ≤ 20, ((a - 19) * π / 2), π / 2], Q') → P_1Rotate(H', If[19 < a ≤ 20, ((a - 19) * π / 2), π / 2], Q') → H''_{2}Rotate(L, If[19 < a ≤ 20, ((a - 19) * π / 2), π / 2], Q') → L'_{1}Polygon(H'_{6}, P_1, H''_{2}, L'_{1}) → q2', h'_{6}, f_2, h''_{2}, l'_{1}Rotate(A'_{4}, If[19 < a ≤ 20, ((a - 19) * π / 2), π / 2], Q') → Q_1Segment(Q', Q_1) → g_2Segment(Q_1, P_1) → p_3Segment(P_1, H''_{2}) → s_3Segment(H''_{2}, Q') → t_3Polygon(H''_{2}, A'_{4}, D'_{1}, P_1) → q8, b_3, a'_{4}, p_4, q_4Circle(A'_{4}, 1) → c_4Intersect(c_4, c_3, 1) → R_1Dilate(D'_{1}, If[26 < a ≤ 27, 27 - a, 0], R_1) → S_1Vector(D'_{1}, S_1) → v_4Translate(P_1, v_4) → T_1Polygon(A'_{4}, S_1, T_1, H''_{2}) → q9, r_4, s_4, t_4, a_4Line(T_1, H''_{2}) → m_2Line(R_1, A'_{4}) → h_3OrthogonalLine(H''_{2}, h_3) → q_2Intersect(h_3, q_2) → U_1Dilate(A'_{4}, If[28 < a ≤ 29, 29 - a, 0], U_1) → B_2Vector(A'_{4}, B_2) → d_3Translate(A'_{4}, d_3) → C_2Translate(R_1, d_3) → D_2Polygon(D_2, T_1, H''_{2}, B_2) → q4, l_3, n_3, e_3, h_4Dilate(U_1, If[30 < a ≤ 31, 31 - a, 0], O_1) → E_2Vector(U_1, E_2) → s_2Translate(D_2, s_2) → F_2Translate(T_1, s_2) → G_2Translate(H''_{2}, s_2) → H_2Translate(B_2, s_2) → I_2Polygon(F_2, G_2, H_2, I_2) → q4', t_2, b_4, d_4, e_4Line(U_1, b_1) → g_5Point(g_5) → J_2Angle(J_2, U_1, R_1) → ηRotate(F_2, If[30 < a ≤ 31, ((-(a - 30)) * η), (-η)], E_2) → K_2Rotate(G_2, If[30 < a ≤ 31, ((-(a - 30)) * η), (-η)], E_2) → L_2Rotate(H_2, If[30 < a ≤ 31, ((-(a - 30)) * η), (-η)], E_2) → M_2Rotate(I_2, If[30 < a ≤ 31, ((-(a - 30)) * η), (-η)], E_2) → N_2Polygon(K_2, L_2, M_2, N_2) → q4'', h_5, i_5, j_5, k_5Dilate(K_2, If[32 < a ≤ 33, 33 - a, 0], L_2) → O_2Vector(K_2, O_2) → a_3Translate(A, a_3) → A'_{13}Translate(E, a_3) → E'_{1}Translate(G, a_3) → G'_{1}Translate(F, a_3) → F'_{2}Polygon(A'_{13}, E'_{1}, G'_{1}, F'_{2}) → q3', a'_{13}, e'_{1}, g'_{1}, f'_{2}Rotate(A'_{13}, If[33 < a ≤ 34, ((a - 33) * π / 2), π / 2], O_2) → P_2Rotate(E'_{1}, If[33 < a ≤ 34, ((a - 33) * π / 2), π / 2], O_2) → Q_2Rotate(G'_{1}, If[33 < a ≤ 34, ((a - 33) * π / 2), π / 2], O_2) → R_2Rotate(F'_{2}, If[33 < a ≤ 34, ((a - 33) * π / 2), π / 2], O_2) → S_2Polygon(P_2, Q_2, R_2, S_2) → q3'', f_4, l_5, m_5, n_5
AI Drawing Prompt Reference
Draw a unit circle centered at the origin. From the positive x-axis, rotate a radius by 45 degrees counterclockwise. Pick a point on the arc and rotate it about the origin by the same angle to get a symmetric point. Drop perpendiculars from this point to the x-axis and y-axis, forming rectangles and triangles. Construct a circular sector inside the circle and rotate it stepwise to show angle changes. Outside the circle, add a semicircle and several polygons, using scaling and mirroring to illustrate relationships between sine, cosine, and area. The final figure includes multiple rotated sectors, rectangles, triangles, and auxiliary lines for a geometric proof of trigonometric identities.
The prompt above was compiled from the original drawing commands and is for reference only.