Geometric Transformations and Function Graphs by Juan Carlos Ponce Campuzano
Loading the math board and drawing, please wait…
In collections
GeoGebraScript for Making Constructions and Animations
This example demonstrates geometric transformations, including translation and dilation, and shows how to draw function graphs using GeoGebra. Key mathematical concepts include functions, trigonometry, and transformations. The specific implementation can be understood through commands like Sequence, Polygon, and Dilate in the construction summary. Suitable for high school mathematics education and learning.
GeoGebra Commands & Parameters
Sequence(((t * cos(((k * 2) * π / 3) + π / 2)), (t * sin(((k * 2) * π / 3) + π / 2))), k, 0, 2) → PointsSequence(((((-t) + 1.5) * cos(((k * 2) * π / 3) + (3 * π / 2))), (((-t) + 1.5) * sin(((k * 2) * π / 3) + (3 * π / 2)))), k, 0, 2) → Points1Polygon(A1, B2, A3, B1, A2, B3) → triangle, a1, b2, a3, b1, a2, b3Dilate(A1, 1 / 10, (0, 0)) → A1'Dilate(B2, 1 / 10, (0, 0)) → B2'Dilate(A3, 1 / 10, (0, 0)) → A3'Dilate(B1, 1 / 10, (0, 0)) → B1'Dilate(A2, 1 / 10, (0, 0)) → A2'Dilate(B3, 1 / 10, (0, 0)) → B3'Polygon(Dilate[A1, 1 / 10, (0, 0)], Dilate[B2, 1 / 10, (0, 0)], Dilate[A3, 1 / 10, (0, 0)], Dilate[B1, 1 / 10, (0, 0)], Dilate[A2, 1 / 10, (0, 0)], Dilate[B3, 1 / 10, (0, 0)]) → C1, f, g, h, i, j, kDilate(A1, 2 / 10, (0, 0)) → A1'_1Dilate(B2, 2 / 10, (0, 0)) → B2'_1Dilate(A3, 2 / 10, (0, 0)) → A3'_1Dilate(B1, 2 / 10, (0, 0)) → B1'_1Dilate(A2, 2 / 10, (0, 0)) → A2'_1Dilate(B3, 2 / 10, (0, 0)) → B3'_1Polygon(Dilate[A1, 2 / 10, (0, 0)], Dilate[B2, 2 / 10, (0, 0)], Dilate[A3, 2 / 10, (0, 0)], Dilate[B1, 2 / 10, (0, 0)], Dilate[A2, 2 / 10, (0, 0)], Dilate[B3, 2 / 10, (0, 0)]) → C2, l, m, n, p, q, rDilate(A1, 3 / 10, (0, 0)) → A1'_2Dilate(B2, 3 / 10, (0, 0)) → B2'_2Dilate(A3, 3 / 10, (0, 0)) → A3'_2Dilate(B1, 3 / 10, (0, 0)) → B1'_2Dilate(A2, 3 / 10, (0, 0)) → A2'_2Dilate(B3, 3 / 10, (0, 0)) → B3'_2Polygon(Dilate[A1, 3 / 10, (0, 0)], Dilate[B2, 3 / 10, (0, 0)], Dilate[A3, 3 / 10, (0, 0)], Dilate[B1, 3 / 10, (0, 0)], Dilate[A2, 3 / 10, (0, 0)], Dilate[B3, 3 / 10, (0, 0)]) → C3, s, a, b, c, d, eDilate(A1, 4 / 10, (0, 0)) → A1'_3Dilate(B2, 4 / 10, (0, 0)) → B2'_3Dilate(A3, 4 / 10, (0, 0)) → A3'_3Dilate(B1, 4 / 10, (0, 0)) → B1'_3Dilate(A2, 4 / 10, (0, 0)) → A2'_3Dilate(B3, 4 / 10, (0, 0)) → B3'_3Polygon(Dilate[A1, 4 / 10, (0, 0)], Dilate[B2, 4 / 10, (0, 0)], Dilate[A3, 4 / 10, (0, 0)], Dilate[B1, 4 / 10, (0, 0)], Dilate[A2, 4 / 10, (0, 0)], Dilate[B3, 4 / 10, (0, 0)]) → C4, f_1, g_1, h_1, i_1, j_1, k_1Dilate(A1, 5 / 10, (0, 0)) → A1'_4Dilate(B2, 5 / 10, (0, 0)) → B2'_4Dilate(A3, 5 / 10, (0, 0)) → A3'_4Dilate(B1, 5 / 10, (0, 0)) → B1'_4Dilate(A2, 5 / 10, (0, 0)) → A2'_4Dilate(B3, 5 / 10, (0, 0)) → B3'_4Polygon(Dilate[A1, 5 / 10, (0, 0)], Dilate[B2, 5 / 10, (0, 0)], Dilate[A3, 5 / 10, (0, 0)], Dilate[B1, 5 / 10, (0, 0)], Dilate[A2, 5 / 10, (0, 0)], Dilate[B3, 5 / 10, (0, 0)]) → C5, l_1, m_1, n_1, p_1, q_1, r_1Dilate(A1, 6 / 10, (0, 0)) → A1'_5Dilate(B2, 6 / 10, (0, 0)) → B2'_5Dilate(A3, 6 / 10, (0, 0)) → A3'_5Dilate(B1, 6 / 10, (0, 0)) → B1'_5Dilate(A2, 6 / 10, (0, 0)) → A2'_5Dilate(B3, 6 / 10, (0, 0)) → B3'_5Polygon(Dilate[A1, 6 / 10, (0, 0)], Dilate[B2, 6 / 10, (0, 0)], Dilate[A3, 6 / 10, (0, 0)], Dilate[B1, 6 / 10, (0, 0)], Dilate[A2, 6 / 10, (0, 0)], Dilate[B3, 6 / 10, (0, 0)]) → C6, s_1, t_1, a_1, b_1, c_1, d_1Dilate(A1, 7 / 10, (0, 0)) → A1'_6Dilate(B2, 7 / 10, (0, 0)) → B2'_6Dilate(A3, 7 / 10, (0, 0)) → A3'_6Dilate(B1, 7 / 10, (0, 0)) → B1'_6Dilate(A2, 7 / 10, (0, 0)) → A2'_6Dilate(B3, 7 / 10, (0, 0)) → B3'_6Polygon(Dilate[A1, 7 / 10, (0, 0)], Dilate[B2, 7 / 10, (0, 0)], Dilate[A3, 7 / 10, (0, 0)], Dilate[B1, 7 / 10, (0, 0)], Dilate[A2, 7 / 10, (0, 0)], Dilate[B3, 7 / 10, (0, 0)]) → C7, e_1, f_2, g_2, h_2, i_2, j_2Dilate(A1, 8 / 10, (0, 0)) → A1'_7Dilate(B2, 8 / 10, (0, 0)) → B2'_7Dilate(A3, 8 / 10, (0, 0)) → A3'_7Dilate(B1, 8 / 10, (0, 0)) → B1'_7Dilate(A2, 8 / 10, (0, 0)) → A2'_7Dilate(B3, 8 / 10, (0, 0)) → B3'_7Polygon(Dilate[A1, 8 / 10, (0, 0)], Dilate[B2, 8 / 10, (0, 0)], Dilate[A3, 8 / 10, (0, 0)], Dilate[B1, 8 / 10, (0, 0)], Dilate[A2, 8 / 10, (0, 0)], Dilate[B3, 8 / 10, (0, 0)]) → C8, k_2, l_2, m_2, n_2, p_2, q_2Dilate(A1, 9 / 10, (0, 0)) → A1'_8Dilate(B2, 9 / 10, (0, 0)) → B2'_8Dilate(A3, 9 / 10, (0, 0)) → A3'_8Dilate(B1, 9 / 10, (0, 0)) → B1'_8Dilate(A2, 9 / 10, (0, 0)) → A2'_8Dilate(B3, 9 / 10, (0, 0)) → B3'_8Polygon(Dilate[A1, 9 / 10, (0, 0)], Dilate[B2, 9 / 10, (0, 0)], Dilate[A3, 9 / 10, (0, 0)], Dilate[B1, 9 / 10, (0, 0)], Dilate[A2, 9 / 10, (0, 0)], Dilate[B3, 9 / 10, (0, 0)]) → C9, r_2, s_2, t_2, a_2, b_2, c_2Dilate(A1, 10 / 10, (0, 0)) → A1'_9Dilate(B2, 10 / 10, (0, 0)) → B2'_9Dilate(A3, 10 / 10, (0, 0)) → A3'_9Dilate(B1, 10 / 10, (0, 0)) → B1'_9Dilate(A2, 10 / 10, (0, 0)) → A2'_9Dilate(B3, 10 / 10, (0, 0)) → B3'_9Polygon(Dilate[A1, 10 / 10, (0, 0)], Dilate[B2, 10 / 10, (0, 0)], Dilate[A3, 10 / 10, (0, 0)], Dilate[B1, 10 / 10, (0, 0)], Dilate[A2, 10 / 10, (0, 0)], Dilate[B3, 10 / 10, (0, 0)]) → C10, d_2, e_2, f_3, g_3, h_3, i_3