动态几何图形演示 by Tim Brzezinski (8)
几何画板及绘图内容加载中,请稍等……
这个范例动态演示了由 Antonio Gutierrez 提出的几何问题,涉及对数函数、抛物线、勾股定理、线性规划等核心数学概念。通过 GeoGebra 命令如 Segment(线段)、Rotate(旋转)、Angle(角度)、Ray(射线)、Point(点)、Polygon(多边形)、Line(直线)、Circle(圆)、Intersect(相交)、Min(最小值)、CircleSector(扇形)、Dilate(缩放)、Vector(向量)、Translate(平移)等,展示了图形的构造与变换过程。适合高中及以上学段,用于理解复杂几何问题的可视化解决方案。
GeoGebra 命令及参数
Segment(A, B) → fRotate(B, (a * π / 180), A) → B'Angle(B, A, B') → αRay(A, B') → gPoint(g) → CPolygon(A, C, B) → t1, b, a_1, cSegment(A, C) → hSegment(C, B) → iLine(A, i) → jLine(B, h) → kCircle(A, 2) → dIntersect(d, j) → D, ERay(A, D) → lPoint(l) → FCircle(B, Distance[A, F]) → eIntersect(e, k, 2) → GSegment(B, G) → mRay(A, G) → nRay(B, F) → pIntersect(n, p) → HRay(C, H) → qAngle(A, C, H) → βAngle(H, C, B) → γCircle(B, 2) → rLine(A, B) → sIntersect(d, s, 1) → IIntersect(r, s) → J, KRay(A, I) → tRay(B, K) → f_1Ray(B, G) → g_1Min({f, h, i}) → oCircle(A, (0.2 * o)) → c_1Circle(B, (0.2 * o)) → d_1Intersect(c_1, f, 1) → LIntersect(d_1, i, 1) → MRotate(M, If[0 < u ≤ 1, (u * (π - α - (2 * β))), π - α - (2 * β)], B) → M'Intersect(d_1, f_1, 1) → NCircleSector(B, M, M') → e_1Dilate(B, If[1.5 < u ≤ 2.5, 2.5 - u, 0], A) → B'_1Vector(B, B'_1) → vTranslate(e_1, v) → h_1Rotate(N, If[3 < u ≤ 4, ((u - 3) * α), α], B) → N'CircleSector(B, N, N') → k_1Dilate(B, If[4.5 < u ≤ 5.5, 5.5 - u, 0], A) → B'_2Vector(B, B'_2) → wTranslate(k_1, w) → p_1Dilate(A, If[7 < u ≤ 8, 8 - u, 0], F) → A'Segment(A, A') → i_1Dilate(A, If[8.5 < u ≤ 9.5, 9.5 - u, 0], B) → A'_1Vector(A, A'_1) → u_1Translate(A, u_1) → A'_2Translate(A', u_1) → A''Segment(A'_2, A'') → j_1Angle(G, B, A'') → δRotate(A'_2, If[9.5 < u ≤ 10.5, ((-(u - 9.5)) * δ), (-δ)], B) → ORotate(A'', If[9.5 < u ≤ 10.5, ((-(u - 9.5)) * δ), (-δ)], B) → A'''Segment(O, A''') → l_1Dilate(F, If[11.5 < u ≤ 12.5, 12.5 - u, 0], B) → F'Segment(F, F') → m_1Dilate(G, If[12.5 < u ≤ 13.5, 13.5 - u, 0], H) → G'Segment(G, G') → n_1Dilate(H, If[13.5 < u ≤ 14.5, 14.5 - u, 0], A) → H'Segment(H, H') → q_1Ray(C, H) → r_1Circle(C, (0.3 * o)) → s_1Intersect(s_1, h) → P,Dilate(C, If[14.5 < u ≤ 15.5, 15.5 - u, 0], H) → C'Segment(C, C') → t_1Rotate(P, If[16 < u ≤ 17, ((u - 16) * γ), γ], C) → P'CircleSector(C, P, P') → c_2Rotate(c_2, If[18 < u ≤ 19, ((u - 18) * γ), γ], C) → d_2